Get Drawing View Names and Types Example (VBA)

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

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

'

' Preconditions: Drawing document is open.

'

' Postconditions: None

'

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

Option Explicit

Public Enum swDrawingViewTypes_e

    swDrawingSheet = 1

    swDrawingSectionView = 2

    swDrawingDetailView = 3

    swDrawingProjectedView = 4

    swDrawingAuxiliaryView = 5

    swDrawingStandardView = 6

    swDrawingNamedView = 7

    swDrawingRelativeView = 8

End Enum

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