'Get Sheet Numbers and Names Example (VB)

'This example shows how to get the sheet numbers and names for multiple sheets in a drawing document.

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

'

' Preconditions: Drawing document is open and has multiple sheets.

'

' Postconditions: None

'

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swDraw                  As SldWorks.DrawingDoc

    Dim swSheet                 As SldWorks.Sheet

    Dim vSheetNames             As Variant

    Dim bRet                    As Boolean

    Dim i                       As Long

    Dim oName

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swDraw = swModel

    With swDraw

      Set swSheet = .GetCurrentSheet

      Debug.Print .GetSheetCount

      'oName = swSheet.GetSheetFormatName

    End With

    Debug.Print "FileName = " + swModel.GetPathName

    Debug.Print "  Current sheet = " & swSheet.GetName

    Debug.Print ""

    vSheetNames = swDraw.GetSheetNames

    For i = 0 To UBound(vSheetNames)

        Debug.Print "  SheetName[" & i & "] = " & vSheetNames(i)

       swDraw.SheetNext

       Set swSheet = swDraw.GetCurrentSheet

        Debug.Print swSheet.GetSheetFormatName

    Next i

End Sub

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

debug.print ---result

4
FileName = F:\\BE(J)S\\aa\\Draw1.SLDDRW
  Current sheet = Sheet1

  SheetName[0] = Sheet1
Sheet Format2
  SheetName[1] = Sheet2
图纸格式1
  SheetName[2] = 图纸2
图纸格式2
  SheetName[3] = 图纸3
图纸格式2

------------------------

My question

How to find the first a Sheet, use  "swDraw.SheetNext" sentence traversal whole Sheet

Thans