Referenced Configuration of Top level Components in Assembly

 

    Dim swApp As SldWorks.SldWorks

    Dim swAssy As SldWorks.AssemblyDoc

    Dim swSelMgr As SldWorks.SelectionMgr

    Dim swModel As SldWorks.ModelDoc

    Dim swComp As SldWorks.Component

    Dim RefCfg As String

    Dim vcomp As Variant

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swAssy = swModel

    vcomp = swAssy.GetComponents(True)

    'Set swSelMgr = swModel.SelectionManager

    For i = 0 To UBound(vcomp)

    

    Set swComp = vcomp(i)

    ' Change component configuration to "in-use"

    'swComp.ReferencedConfiguration = ""

    RefCfg = swComp.ReferencedConfiguration

    MsgBox.Show swComp.Name2 & "-" & "Referenced configuration: " & RefCfg

    Next

    ' For changes to take effect

    swModel.EditRebuild3

End Sub