Get Drawing View Names and Types Example (VBA)

This example shows how to get the names and types of all of the drawing views on the current sheet.

'---------------------------------------------------------------------------
' Preconditions: Open a drawing document.
'
' Postconditions: Inspect the Immediate window.
'---------------------------------------------------------------------------

Option Explicit

Sub main()

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

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    Set swSheet = swDraw.GetCurrentSheet
    Set swView = swDraw.GetFirstView

    Debug.Print "File = " & swModel.GetPathName
    Debug.Print "  " & swSheet.GetName

    While Not swView Is Nothing
        Debug.Print "    " & swView.GetName2 & " [" & swView.Type & "]"
        Set swView = swView.GetNextView
    Wend

End Sub