Open and Exit Sketch Example (VBA)
This example shows how to open a sketch, sketch a line, and close the
sketch.
'------------------------------------------
'
' Preconditions:
' (1)
Model document is open.
' (2)
Planar face or a sketch is selected.
'
' Postconditions: A sketch is opened, a line is sketched,
and the sketch is closed.
'
'------------------------------------------
Option Explicit
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
swSkSeg As
SldWorks.SketchSegment
Dim
swSkLine As
SldWorks.SketchLine
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
'
A sketch on the selected planar face or the selected sketch is opened
swModel.InsertSketch2 True
'
A line is sketched
Set
swSkSeg = swModel.CreateLine2(0#,
0#, 0#, 0.1, 0.1, 0#)
Set
swSkLine = swSkSeg
'
Sketch is exited
swModel.InsertSketch2 True
End Sub