Get Configurations Referenced in View Example (VBA)

This example shows how to get the names of the configurations referenced in each drawing view in the first sheet.

'---------------------------------------------------
' Preconditions:
' 1. Open a drawing document with at least one
'    drawing view in the first sheet in the
'    drawing.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Traverses the drawing views in the first drawing sheet
'    and gets the names of the model and configuration
'    in each drawing view.
' 2. Examine the Immediate window.
'---------------------------------------------------

Option Explicit

Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swView As SldWorks.View
    Dim bRet As Boolean    

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel

    Debug.Print "File = " & swModel.GetPathName
    

    ' First drawing view is actually the first sheet,
    ' so skip getting model name and configuration from 
    ' the sheet 
    Set swView = swDraw.GetFirstView
    ' Get first drawing view in first sheet
    Set swView = swView.GetNextView
    Do While Not swView Is Nothing
        Debug.Print "  View = " + swView.Name
        Debug.Print "    Model  = " + swView.GetReferencedModelName
        Debug.Print "    Config = " + swView.ReferencedConfiguration
        Set swView = swView.GetNextView
    Loop

End Sub