Wie kann ich ein Blatt innerhalb einer Zeichnung kopieren?
In der Originalzeichnung (A) Blatt > Rechtsklick > Kopieren
Neue Zeichnung (B) aufmachen > Dort oben auf Zeichnung > Rechtsklick > Einfügen
Das so in die neue leere Zeichnung (B) kopierte Blatt wieder kopieren und auf dem gleichen Weg in die Originalzeichnung (A) einfügen.
Ergebnis: In Originalzeichnung (A) ist nun das Blatt 1 ein zweites mal eingefügt.
Wer den Prozess häufiger braucht, kann es mal mit diesem VBA-Makro probieren:
Sub Blatt_kopieren()
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
oder auch über die Inventor Toolbox!
Keine Kommentare:
Kommentar veröffentlichen
War der Beitrag hilfreich oder hast du eine Ergänzung dazu?
Ist noch eine Frage offen?
Ich freue mich auf deine Rückmeldung!
Hinweis: Nur ein Mitglied dieses Blogs kann Kommentare posten.