Insert Grid System Feature Example (VB.NET)
This example shows how to insert a Grid System Feature into a model.
'-----------------------------------------------------------------------------
' Preconditions: Verify that the specified Part template exists.
'
' Postconditions:
' 1. GridSystem1 is in the FeatureManager design tree.
' 2. GridSystem1 contains Surface-Extrude1, Level1, Level2,
'
and two
derived sketches.
' 3. The height of each level of the surface extrude is 50.0 mm.
'------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Imports
System.Diagnostics
Partial
Class
SolidWorksMacro
Dim
GridFeature As
Feature
Dim
Part As
ModelDoc2
Dim
myModelView As
ModelView
Dim
skSegment As
SketchSegment
Dim
boolstatus As
Boolean
Dim
longstatus As
Long,
longwarnings As
Long
Sub
main()
swApp.ResetUntitledCount(0, 0, 0)
Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks
2011\templates\Part.prtdot", 0, 0, 0)
swApp.ActivateDoc2("Part1",
False,
longstatus)
Part = swApp.ActiveDoc
myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ShowNamedView2("*Isometric",
7)
skSegment = Part.SketchManager.CreateCircle(-0.019633, 0.076084,
0.0#, -0.001997, 0.081475, 0.0#)
Part.SketchManager.InsertSketch(True)
boolstatus = Part.Extension.SelectByID2("Sketch1",
"SKETCH",
0, 0, 0, False,
0, Nothing,
0)
Dim
offsetArray As
Object
Dim
heightsArray(1) As
Double
heightsArray(0) = 0.05
heightsArray(1) = 0.05
offsetArray = heightsArray
GridFeature = Part.FeatureManager.InsertGridFeature((offsetArray))
Debug.Print(GridFeature.Name & "
was created.")
Part.ViewZoomtofit()
End
Sub
Public
swApp As
SldWorks
End
Class