This example shows how to activate each Sheet in a drawing.
'-------------------------------------------------------------- 'Preconditions: ' 1. Create a VB.NET Windows console project. ' 2. Copy and paste this example into the VB.NET IDE. ' 3. Add a reference to: ' install_dir\APISDK\tlb\DraftSight.Interop.dsAutomation.dll. ' 4. Start DraftSight and open a document with multiple Sheets. ' 5. Start debugging the project. ' 'Postconditions: ' 1. Pops up a message box when a Sheet is activated. ' 2. Click OK to close each message box. '---------------------------------------------------------------- Imports DraftSight.Interop.dsAutomation Module Module1 Sub Main() Dim dsApp As Application Dim dsDoc As Document 'Connect to DraftSight dsApp = GetObject(, "DraftSight.Application") 'Abort any command currently running in 'DraftSight to avoid nested commands dsApp.AbortRunningCommand() 'Get active document dsDoc = dsApp.GetActiveDocument() If Not dsDoc Is Nothing Then 'Activate each Sheet, one by one SwitchSheets(dsDoc) Else MsgBox("There are no open documents in DraftSight.") End If End Sub Sub SwitchSheets(ByVal dsDoc As Document) Dim dsSheet As Sheet Dim dsVarSheets As Object Dim index As Integer Dim sheetName As String 'Get all Sheets dsVarSheets = dsDoc.GetSheets2 If IsArray(dsVarSheets) Then For index = LBound(dsVarSheets) To UBound(dsVarSheets) dsSheet = dsVarSheets(index) 'Get Sheet name sheetName = dsSheet.Name 'Activate Sheet dsSheet.Activate() 'Verify if the Sheet was activated If dsSheet.IsActive Then MsgBox(sheetName & " was activated.") End If Next End If End Sub End Module