Split Open Sketch Segment Example (VBA)

This example shows how to split an open sketch segment.

'---------------------------------------------------------------
' Preconditions:  Open a part document.
'
' Postconditions:
' 1. A sketch is created.
' 2. A line segment is created.
' 3. The line segment is split into two segments.
'----------------------------------------------------------------

Option Explicit

Dim SwApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSketchSegment As SldWorks.SketchSegment
Dim skSegmentArray As Variant
Dim boolstatus As Boolean

Sub main()

    Set SwApp = Application.SldWorks
    Set swModel = SwApp.ActiveDoc

    boolstatus = swModel.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    swModel.SketchManager.InsertSketch True
    swModel.ClearSelection2 True
   

    'Create a line
    Set swSketchSegment = swModel.SketchManager.CreateLine(-0.055964, 0.033212, 0#, 0.102938, -0.014129, 0#)
    swModel.ViewZoomtofit2
   

    skSegmentArray = swModel.SketchManager.SplitOpenSegment(0.02, 0.01, 0#)

    ' Close the 3D sketch and rebuild
    swModel.SketchManager.Insert3DSketch True
   

End Sub