Get Sketch Point's Selection Mark Example (VBA)

This example shows how to get the selection mark of a selected sketch point.

'------------------------------------------------
' Preconditions:
' 1. Part document is open.
' 2. Sketch point is selected.
' 3. Open the Immediate window.
' 4. Run the macro.
'
' Postconditions: The selection mark of the selected
' sketch point is printed to the Immediate window.
'-----------------------------------------------

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks
    Dim swModel                     As SldWorks.ModelDoc2
    Dim swSelMgr                    As SldWorks.SelectionMgr
    Dim swFeat                      As SldWorks.Feature
    Dim swSketch                    As Sketch
    Dim sketchPoints                As Variant
    Dim swSketchPoint               As SldWorks.SketchPoint
    Dim swSelData                   As SldWorks.SelectData
    Dim status                      As Boolean

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
    Set swSketch = swFeat.GetSpecificFeature2
    sketchPoints = swSketch.GetSketchPoints2
    Set swSketchPoint = sketchPoints(0)  

    ' Get selection mark of sketch point
    Set swSelMgr = swModel.SelectionManager
    Set swSelData = swSelMgr.CreateSelectData
    status = swSketchPoint.Select4(True, swSelData)
    Debug.Print "Selection mark of sketch point: " & swSelData.Mark   

End Sub