Copy a drawing to a new sheet in the same drawing file?

[zma1013]

Is there a way to copy a drawing sheet and all it's views and annotations to a new sheet within the same drawing file?

[-Aaron-]

Don't know about copying the sheet and pasting to the same drawing, but:

-you can create a new sheet

-copy existing views from other sheet

-paste to new sheet

Some more mouse clicks, but results are the same.  Dims and anything associated with the view will be copied.  This works for 2010...

[bobvdd]

You could also use attached VBA macro to copy the active sheet to a new sheet in the same drawing. Should work in any release of Inventor.

Sub copy_sheet()
    Dim oDrawingDocument1 As DrawingDocument
    Dim oDrawingDocument2 As DrawingDocument
    Dim oSheet As Sheet
    
    Set oDrawingDocument1 = ThisApplication.ActiveDocument
    Set oDrawingDocument2 = ThisApplication.Documents.Add(kDrawingDocumentObject, , False)
    Set oSheet = oDrawingDocument1.ActiveSheet
    oSheet.CopyTo oDrawingDocument2
    Set oSheet = oDrawingDocument2.Sheets.Item(oDrawingDocument2.Sheets.Count)
    oSheet.CopyTo oDrawingDocument1
    oDrawingDocument2.Close True
End Sub

 Cheers

Bob

[-Aaron-]

Thanks for this Bob. This will come in handy...

EDITED: Bob, please see screen shots.  Is there any reason why this macro would move my Section View away from it's original position??

[snowflake30]

Spot on