Split Closed Sketch Segment Example (VB.NET)

'---------------------------------------------------------------
' Preconditions: 
' 1. Open a new part document.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Opens a sketch.
' 2. Creates a closed spline.
' 3. Splits the spline into two segments.
' 4. Examine the Immediate window.
'----------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro

    Dim swModel As ModelDoc2
    Dim swSketchSegment As SketchSegment
    Dim skSegmentArray As Object
    Dim boolstatus As Boolean

    Sub main()

        swModel = swApp.ActiveDoc

        swApp.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchInference, False)

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

        Dim pointArray As Object
        Dim points(20) As Double
        points(0) = -0.0243607314462504
        points(1) = 0.0404155099449417
        points(2) = 0
        points(3) = -0.000849151208568891
        points(4) = 0.0470352752545802
        points(5) = 0
        points(6) = 0
        points(7) = 0.0395024388677502
        points(8) = 0
        points(9) = -0.00530037270987752
        points(10) = 0.0358501545589842
        points(11) = 0
        points(12) = -0.00712651486426054
        points(13) = 0.0283173181721542
        points(14) = 0
        points(15) = -0.023219392599761
        points(16) = 0.0295727909032925
        points(17) = 0
        points(18) = -0.0243607314462504
        points(19) = 0.0404155099449417
        points(20) = 0
        pointArray = points

        swSketchSegment = swModel.SketchManager.CreateSpline((pointArray))
        swModel.ViewZoomtofit2()

        skSegmentArray = swModel.SketchManager.SplitClosedSegment(-0.0243607314462504, 0.0404155099449417, 0.0#, -0.023219392599761, 0.0295727909032925, 0.0#)

        ' Close the sketch and rebuild
        swModel.SketchManager.Insert3DSketch(True)

        Debug.Print("Number of segments in sketch = " & UBound(skSegmentArray) + 1)

    End Sub

    Public swApp As SldWorks


End Class