Get Loaded Sheets Example (VBA)

This example shows how to determine which sheets in a drawing document are loaded.

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

' Preconditions:

' 1. Click File > Open.

' 2. Browse to <SolidWorks_install_dir>\samples\tutorial\advdrawings.

' 3. Select foodprocessor.slddrw.

' 4. Select Selected in Select sheets to load.

' 5. Click Open.

' 6. Run the macro.

'

' Postconditions: Only Sheet1 is loaded.

'

' NOTE: Because this drawing document is used by a

'       SolidWorks online tutorial, do not save any

'       changes when closing the document.

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

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swDraw                      As SldWorks.DrawingDoc

    Dim vSheetName                  As Variant

    Dim nRetval                     As Long

    Dim i                           As Long

    Dim bRet                        As Boolean

    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.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