Create 3D Spline Example (VBA)

This example shows how to create a 3D spline.

'----------------------------------------------

'

' Preconditions: Model document is open.

'

' Postconditions: 3D sketch of a spline is created as per the specified data points.

'

'----------------------------------------------

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim nPtData(11)             As Double

    Dim vPtData                 As Variant

    Dim swSketchSeg             As SldWorks.SketchSegment

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    nPtData(0) = -0.1163867779204: nPtData(1) = -0.01327060333761: nPtData(2) = 0#

    nPtData(3) = -0.08195494223363: nPtData(4) = 0.060973042362: nPtData(5) = 0.1

    nPtData(6) = -0.03568716302953:nPtData(7) = 0.01004261874198: nPtData(8) = 0.2

    nPtData(9) = 0.02779653401797: nPtData(10) = 0.04160513478819: nPtData(11) = 0.3

    vPtData = nPtData

    swModel.Insert3DSketch2 True

    Set swSketchSeg = swModel.CreateSpline(vPtData)

    Debug.Assert Not swSketchSeg Is Nothing

    swModel.Insert3DSketch2 True

End Sub

'----------------------------------------------