Resolve All Lightweight Components Example (VBA)

This example shows how to resolve all lightweight components in an assembly.

'-------------------------------------

'

' Preconditions: Assembly document is open.

'

' Postconditions: All lightweight components are resolved.

'

'-------------------------------------

Option Explicit

Public Enum swComponentResolveStatus_e

    swResolveOk = 0

    swResolveAbortedByUser = 1

    swResolveNotPerformed = 2

    swResolveError = 3

End Enum

Sub main()

    Dim swApp               As SldWorks.SldWorks

    Dim swModel             As SldWorks.ModelDoc2

    Dim swAssy              As SldWorks.AssemblyDoc

    Dim nRetval             As Long

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swAssy = swModel

    nRetval = swAssy.ResolveAllLightweightComponents(False)

End Sub

'-------------------------------------