Sub tt()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr, SwFeat As Feature
Set SwSelMgr = SwModel.SelectionManager
Set SwFeat = SwSelMgr.GetSelectedObject5(1)
Debug.Print "Selected Feature is " & SwFeat.Name
End Sub
selction Part1.sldprt→ Extrude1 → result is correct
select b.sldasm→ like configuration (a2) → result is error → Type mismatch