Get Selected Object Example (VBA)
This example shows how to select and get that object in a SolidWorks
document. It is assumed that you have an open SolidWorks document.
'------------------------------------------------------------
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
' Select the feature named "Extrude1"
boolstatus = Model.Extension.SelectByID2("Extrude1",
"BODYFEATURE", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)
' If the selection was successful, that is, "Extrude1"
was
' selected and it is a "BODYFEATURE", then get
that feature; otherwise,
' indicate failure
If boolstatus = True Then
Dim
SelMgr As SelectionMgr
Set
SelMgr = Model.SelectionManager
Set
feature = SelMgr.GetSelectedObject6(1,
0)
Debug.Print
feature.Name
Else
Debug.Print
"Error"
End If
End Sub