---

Hallo Zusammen,

habe folgende Frage:

ich habe eine CATDrawing offen. In ihr befindet sich das Detailblatt „Ansichten“ und darin befindet sich die Ansicht „Unten“. Jetzt möchte ich das gesamte Detailblatt kopieren und in ein anderes CATDrawing einfügen.

Manuell ist das kein Problem, aber wie kann ich das per Makro machen?

Gruß willson

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bin in der Zwischenzeit dazu über gegangen, nur die Ansicht "Unten" in ein vorhandenes Detailblatt, das sich in einer anderen Drawing befindet, einzufügen.

Hier mal ein Auszug aus meinem Makro:

Dim Fenster1 As Windows
Set Fenster1 = CATIA.Windows.Item(2)
Fenster1.Activate

Set AktivesDokument = CATIA.ActiveDocument

Dim Selektion1 As Selection
Set Selektion1 = AktivesDokument.Selection

Set Blatt1 = AktivesDokument.Sheets.Item("Ansichten").Views.Item("Unten")  ' zu kopierendes Element

Selektion1.Clear
Selektion1.Add (Blatt1)
Selektion1.Copy
Selektion1.Clear

Dim Fenster2 As Windows
Set Fenster2 = CATIA.Windows.Item(1)
Fenster2.Activate

Set Blatt2 = CATIA.ActiveDocument.Sheets.Item("Blatt .2 (Detail )")  ' Einfügeort

Selektion1.Add (Blatt2)

Selektion1.Paste

Das Kopieren und der wechsel in die andere Drawing funktioniert einwandfrei. Nur das Einfügen will nicht.
Gibts an Stelle von "Paste" noch was?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP