Iterate trough assembly selection

Olivia86 · Feb 24, 2021

I'm trying to build a macro that, from a selection of different parts or assemblies it will traverse a list with a for a loop and make some operations.

While this sounds very simple, I'm struggling with it. I've found this example but only select the last part.

https://help.solidworks.com/2017/en..._Objects_and_Types_in_Assembly_Example_VB.htm

Any advice?

fifiririloulou · Feb 26, 2021

Hello,
Select some components in the selection tree, then run the code below.
It will give their name in the order of the selection.

Code:

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim swSelComp As SldWorks.Component2
    Dim i As Integer
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    For i = 1 To swSelMgr.GetSelectedObjectCount2(-1)
        If swSelMgr.GetSelectedObjectType3(i, -1) = swSelectType_e.swSelCOMPONENTS Then
            Set swSelComp = swSelMgr.GetSelectedObjectsComponent3(i, -1)
            Debug.Print "Component #" & i & " : " & swSelComp.Name2
        End If
    Next
End Sub

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Iterate trough assembly selection

Olivia86

Automotive

fifiririloulou

Agricultural

Similar threads

Part and Inventory Search

Sponsor