Get Sheet in Multi-sheet Drawing Example (VBA)

This example shows how to get each sheet in a multi-sheet drawing regardless whether the sheet is loaded.

'----------------------------------------------------------------------
' Preconditions:
' 1. Click File > Open.
' 2. Open public_documents\tutorial\advdrawings\foodprocessor.sldrw.
' 3. Click Select sheets to open > Selected > Sheet1* (load) > OK  >Open.
' 4. Open the Immediate window.
'
' Postconditions:
' 1. Loads Sheet1 only.
' 2. Mouse over Sheet2, Sheet3, and Sheet4 tabs and examine the
'    Immediate window.
'
' NOTE: Because this drawing is used elsewhere, do not save changes.
'---------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDraw As SldWorks.DrawingDoc

Dim vSheetName As Variant

Dim i As Integer

Dim bRet As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

 

' Get the sheets in the drawing document

vSheetName = swDraw.GetSheetNames

 

' Traverse the drawing sheets and determine whether

' they're loaded

For i = 0 To UBound(vSheetName)

   bRet = swDraw.ActivateSheet(vSheetName(i))

   Dim swSheet As Sheet

   Set swSheet = swDraw.Sheet(vSheetName(i))

   'swSheet = swDraw.GetCurrentSheet

   If (swSheet.IsLoaded) Then

       Debug.Print (vSheetName(i) & " is loaded.")

   Else

       Debug.Print (vSheetName(i) & " is not loaded.")

   End If

Next i

End Sub