Get List of Configurations Example (VBA)

This example shows how to get a list of configuration names for the active document.

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim vConfigName             As Variant

    Dim sConfigName             As String

    Dim swConfig                As SldWorks.configuration

    Dim i                       As Long

    Dim bRet                    As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swConfig = swModel.GetActiveConfiguration

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Active Config = " & swConfig.Name

    Debug.Print ""

    vConfigName = swModel.GetConfigurationNames

    For i = 0 To UBound(vConfigName)

        sConfigName = vConfigName(i)

        Set swConfig = swModel.GetConfigurationByName(sConfigName)

        Debug.Print "  ConfigName(" + Str(i) + ") = " + sConfigName

        Debug.Print "    UseAlternateNameInBOM = " + Str(swConfig.UseAlternateNameInBOM)

        Debug.Print "    AlternateName         = " + swConfig.alternateName

        Debug.Print "    Comment               = " + swConfig.comment

        Debug.Print ""

    Next i

End Sub

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