Get Tangent Vectors for Sketch Points Example (VBA)

This example shows how to get the tangent vectors for the sketch points in an open sketch.

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

'

' Preconditions: Model document has an open sketch

'                of a spline that contains a frame point.

'

' Postconditions: None

'

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swFeat                  As SldWorks.feature

    Dim swSketch                As SldWorks.sketch

    Dim vSkPtArr                As Variant

    Dim vSkPt                   As Variant

    Dim swSkPt                  As SldWorks.SketchPoint

    Dim vID                     As Variant

    Dim vTan                    As Variant

    Dim i                       As Long

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSketch = swModel.GetActiveSketch2: Debug.Assert Not swSketch Is Nothing

    Set swFeat = swSketch

    Debug.Print "Feature = " & swFeat.Name

    Debug.Print "  Sketch Points:"

    vSkPtArr = swSketch.GetSketchPoints2: If IsEmpty(vSkPtArr) Then Exit Sub

    For Each vSkPt In vSkPtArr

        Set swSkPt = vSkPt

        vID = swSkPt.GetId

        vTan = swSkPt.GetFramePointTangent(bRet): Debug.Assert bRet

        Debug.Print "    ID = [" & vID(0) & ", " & vID(1) & "]"

        Debug.Print "      Tan = (" & vTan(0) & ", " & vTan(1) & ", " & vTan(2) & ")"

    Next vSkPt

End Sub

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