Inventor: Duplicate Drawing Sheet

Sometimes, in production, we need to duplicate a page in a single document, just to make a few small changes.
Or even to change the reference and not redo all the layout work.
The way to get there is relatively simple, it’s about copying a page to a temporary drawing and copying that new page to the original document.
Manually, it’s a bit heavy …
So here is a way to get there via the API:
Dim drawingDoc As DrawingDocument = g_inventorApplication.ActiveDocument Dim tempDrawingDoc As DrawingDocument = Nothing For Each selectedObject As Object In drawingDoc.SelectSet Dim sheet As Sheet = TryCast(selectedObject, Sheet) If Not sheet Is Nothing Then If tempDrawingDoc Is Nothing Then tempDrawingDoc = g_inventorApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, , False) End If sheet.CopyTo(tempDrawingDoc).CopyTo(drawingDoc) End If Next If Not tempDrawingDoc Is Nothing Then tempDrawingDoc.Close(True) End If
Once all integrated into an AddIn, the action becomes very easy.
