Are the Assembly Configurations Loaded Example (VBA)

This example shows how find out if the configurations in an assembly are loaded, whether the configurations need to be rebuilt, and the configuration types.

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

' Preconditions:

' 1. Specified file exists.

' 2. After running the macro, examine the Immediate window.

'

' Postconditions: All configurations are loaded.

'

' NOTE: Because the assembly document is used in

' an online tutorial, do not save the document

' when you close it.

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

Option Explicit

 

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swConfiguration As SldWorks.Configuration

Dim swConfigurationMgr As SldWorks.ConfigurationManager

Dim vConfNameArr As Variant

Dim vConfName As Variant

Const sDocFilename As String = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\pdmworks\speaker.sldasm"

Dim boolstatus As Boolean

Dim nErrors As Long

Dim nWarnings As Long

 

Sub main()

 

    Set swApp = Application.SldWorks

 

    ' Open document; exit if it doesn't open

    Set swModel = swApp.OpenDoc6(sDocFilename, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings)

    If swModel Is Nothing Then

        Exit Sub

    Else

        Debug.Print "File = " + swModel.GetPathName

        Debug.Print ""

    End If

    

    Set swConfigurationMgr = swModel.ConfigurationManager

    Set swConfiguration = swConfigurationMgr.ActiveConfiguration

    vConfNameArr = swModel.GetConfigurationNames

 

    Debug.Print "Traverse assembly without activating other configurations..."

    For Each vConfName In vConfNameArr

        Set swConfiguration = swModel.GetConfigurationByName(vConfName)

        Debug.Print "  Name of configuration: " & swConfiguration.Name

        Debug.Print "    Is configuration loaded? " & swConfiguration.IsLoaded

        Debug.Print "    Does configuration need to be rebuilt? " & swConfiguration.NeedsRebuild

        Debug.Print " What is the configuration type? " & swConfiguration.Type

    Next

    

    Debug.Print ""

    

    ' Traverse the assembly again, but this time activate all

    ' configurations, which loads them

    Debug.Print "Traverse assembly and activate all configurations..."

        For Each vConfName In vConfNameArr

        Set swConfiguration = swModel.GetConfigurationByName(vConfName)

        boolstatus = swModel.ShowConfiguration2(vConfName)

        Set swConfiguration = swConfigurationMgr.ActiveConfiguration

        Debug.Print "  Name of configuration: " & swConfiguration.Name

        Debug.Print "    Is configuration loaded? " & swConfiguration.IsLoaded

        Debug.Print "    Does configuration need to be rebuilt? " & swConfiguration.NeedsRebuild

        Debug.Print " What is the configuration type? " & swConfiguration.Type

    Next

 

End Sub