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