Answers for "new inventor sheet"

new inventor sheet

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