Inventor: Dupliquer une Feuille de MEP

Il arrive parfois qu’en production, nous ayons besoin de dupliquer une page dans un même document, afin d’y apporter simplement quelques petites modifications.

Ou même pour pouvoir changer la référence et ne pas refaire tout le travail de mise en page.

La façon d’y arriver est relativement simple, il s’agit de copier une page vers un dessin temporaire et de copier cette nouvelle page vers le document d’origine.

Manuellement, c’est un peu lourd…

Alors voici donc une façon d’y arriver via l’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

Une fois le tout intégré à un AddIn, l’action devient très aisée.