Offset Sketch Example (VB.NET)
This example shows how to offset a sketch.
'----------------------------------------------------------------------------
' Preconditions: Ensure the specified template exists.
'
' Postconditions:
' 1. A part with a sketch of a line is created.
' 2. The sketch is offset 2.54 mm in both directions.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Dim
skSegment As
SketchSegment
Dim
boolstatus As
Boolean
Dim
longstatus As
Integer
Sub
main()
Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks
2012\templates\Part.prtdot", 0, 0, 0)
swApp.ActivateDoc2("Part2",
False,
longstatus)
Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch(True)
boolstatus = Part.Extension.SelectByID2("Top
Plane",
"PLANE", -0.0770466366627886,
0.00233041566204965, 0.0390732100788036,
False, 0,
Nothing, 0)
Part.ClearSelection2(True)
skSegment = Part.SketchManager.CreateLine(-0.081532,
0.028203, 0.0#, -0.029228, -0.017264, 0.0#)
skSegment = Part.SketchManager.CreateLine(-0.029228,
-0.017264, 0.0#, 0.035382, -0.025468, 0.0#)
skSegment = Part.SketchManager.CreateLine(0.035382,
-0.025468, 0.0#, 0.087008, -0.070346, 0.0#)
Part.ClearSelection2(True)
boolstatus = Part.Extension.SelectByID2("Line3",
"SKETCHSEGMENT",
0, 0, 0, False,
1, Nothing,
0)
boolstatus = Part.SketchManager.SketchOffset(0.00254,
True,
True,
True,
False,
True)
' Alternative sketch offset method
'
boolstatus = Part.SketchOffset2(0.00254, True, True)
Part.ClearSelection2(True)
Part.SketchManager.InsertSketch(True)
End
Sub
Public
swApp As
SldWorks
End
Class