Rebuild a Document on Activation Example (VBA)

This example shows how to activate and rebuild an assembly document.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open an assembly.
' 2. Replace loaded_document with the assembly name.
' 3. Right-click a part in the FeatureManager design tree.
' 4. Select Open Part from the toolbar.
' 5. Edit a feature in the part.
' 6. Click the green check mark in the PropertyManager to accept the changes.
'
' Postconditions:
' 1. A dialog pops up.
' 2. Click Yes to rebuild the assembly.
' 3. The assembly document is activated and current.
' 4. Inspect the Immediate Window.
' ---------------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim Errors As Long

Sub main()

    Dim bValue     As Boolean
    Dim lValue     As Long
    Dim nValue     As SwConst.swRebuildOnActivation_e
   

    Set swApp = Application.SldWorks
   

   ' Set user preference to not rebuild on activation
    bValue = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swRebuildOnActivation, swRebuildOnActivation_e.swDontRebuildActiveDoc)
    Debug.Print ("Rebuild user preference set to not rebuild on activation: " & bValue)

    nValue = swApp.GetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swRebuildOnActivation)
    Debug.Print ("swRebuildOnActivation_e user preference is: " & nValue)

    ' Ignore the user preference just set
    Debug.Print ("Ignoring rebuild user preference.")

    ' Activate the loaded document and prompt for rebuild if the model is changed
    Set swModel = swApp.ActivateDoc3("loaded_document", False, swRebuildOnActivation_e.swUserDecision, Errors)
    Debug.Print ("Error code after document activation: " & Errors)
   

End Sub