---

Hallo,

ich habe eine Zeichnung mit meheren Blättern. In diese Zeichnung möchte ich ein weiteres Blatt einfügen, das bereits in einer anderen Zeichnung existiert. Ich habe es mit Selektion des gewünschten Blattes probiert, Selektieren geht, aber es wird nicht eingefügt. Warum?

Mein Code:

Set DrwDocument = CATIA.ActiveDocument
Set DrwSheets  = DrwDocument.Sheets
Set DrwSheet    = DrwSheets.Item(1)
Set SelMasterDoc = CATIA.ActiveDocument.Selection
SelMasterDoc.Add(DrwSheet)
'-- ... Blatt kopieren, ... --
SelMasterDoc.Copy
'-- ... zur ursprünglichen Zeichnung umschalten ...
SwitchToOldDrw
'-- ...und Blatt in Zeichnung einfügen --
Set DrwDocument = CATIA.ActiveDocument
Set DrwSheets  = DrwDocument.Sheets
Set DrwSheet = DrwSheets.Item(1)
Set SelOldDrw = CATIA.ActiveDocument.Selection
SelOldDrw.Add(DrwSheet)
SelOldDrw.Add(SelMasterDoc.Item(1).value)
SelOldDrw.Paste

------------------
Karin

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