Get Selected Object Example (VBA)
This example shows how to select and get that object in a SOLIDWORKS
document.
'------------------------------------------------------------
' Preconditions.
' 1. Open public_documents\samples\tutorial\api\box.sldprt.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Selects the Boss-Extrude1 feature.
' 2. Examine the Immediate window and graphics area.
'------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Model As ModelDoc2
Dim feature As feature
Dim boolstatus As Variant
Sub main()
Set swApp = Application.SldWorks
Set Model = swApp.ActiveDoc
boolstatus = Model.Extension.SelectByID2("Boss-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)
If boolstatus = True Then
Dim SelMgr As SelectionMgr
Set SelMgr = Model.SelectionManager
Set feature = SelMgr.GetSelectedObject6(1, 0)
Debug.Print (feature.Name & " selected")
Else
Debug.Print "Error"
End If
End Sub