Share

Create sheet with multiple views

Description

This sample demonstrates the creation of a drawing sheet based on a particular sheet format containing the definition for multiple views.

Code Samples

Have a drawing document open and run the following macro.
Public Sub AddUsingSheetFormat()
    'Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
    
    'Set a reference to the sheet format named "C size, 4 view"
    Dim oFormat As SheetFormat
    Set oFormat = oDrawDoc.SheetFormats.Item("C size, 4 view")
    
    'Open the model document invisible
    Dim oModel As Document
    Set oModel = ThisApplication.Documents.Open("C:\temp\block.ipt", False)
    
    'Create a new sheet based on the sheet format
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.Sheets.AddUsingSheetFormat(oFormat, oModel)
End Sub


Was this information helpful?