Get Name of Active Configuration Example (VBA)

This example shows how to get the name of the active configuration for the specified SolidWorks document.

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

'

' Preconditions: SolidWorks file named block.SLDPRT exits.

'

' Postconditions: None

'

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

Option Explicit

Sub main()

    Const sFileName                 As String = "block.SLDPRT"

    Dim swApp                       As SldWorks.SldWorks

    Set swApp = Application.SldWorks

    Debug.Print "File = " & sFileName

    Debug.Print "  Last config = " & swApp.GetActiveConfigurationName(sFileName)

End Sub