Get Sheet in Multi-Sheet Drawing Example (VB.NET)

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:

'  <SolidWorks_install_dir>\samples\tutorial\advdrawings\foodprocessor.sldrw

' 3. Select Selected and select Sheet1 in Select sheets to load .

' 4. Click Open.

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

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

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

 

Partial Class SolidWorksMacro

 

    Public Sub main()

 

        Dim swModel As ModelDoc2

        Dim swDraw As DrawingDoc

        Dim vSheetName As Object

        Dim i As Integer

        Dim bRet As Boolean

 

        swModel = swApp.ActiveDoc

        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

            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

 

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

 

End Class