Get Selection Specification Example (VBA)

This example shows how to get the selection specification of a selected object.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a model document that contains at least two features.
' 2. Select two features in the FeatureManager design tree.
' 3. Open an Immediate window.
'
' Postconditions:
' 1. Gets the selection specifications of the first and second selections.
' 2. Inspect the Immediate window.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim SelMgr As SldWorks.SelectionMgr
Dim selObject As SldWorks.Feature
Dim selectByString As String
Dim objectTypeStr As String
Dim objectTypeInt As Long
Dim X As Double
Dim Y As Double
Dim Z As Double

Option Explicit

Sub main()

    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set SelMgr = Part.SelectionManager
   

    ' Get the selection specification of the first selected object
    Set selObject = SelMgr.GetSelectedObject6(1, -1)
    SelMgr.GetSelectByIdSpecification selObject, selectByString, objectTypeStr, objectTypeInt
    Debug.Print "Name of selected feature: " & selectByString
    Debug.Print "Type of object: " & objectTypeStr
    Debug.Print "Type of object as defined in swSelectType_e: " & objectTypeInt
   

    Debug.Print ""
   

    ' Get the selection specification of the selected object in position 2 of the selection list
    SelMgr.GetSelectionSpecification 2, selectByString, objectTypeStr, objectTypeInt, X, Y, Z
    Debug.Print "Name of selected feature: " & selectByString
    Debug.Print "Type of object: " & objectTypeStr
    Debug.Print "Type of object as defined in swSelectType_e: " & objectTypeInt
    Debug.Print "X Coordinate: " & X
    Debug.Print "Y Coordinate: " & Y
    Debug.Print "Z Coordinate: " & Z
   

End Sub