---

Hallo Programmierspezialisten,

ich möchte gerne 2D-Komponentenexemplare zwischen zwei Drawings kopieren. Ich weiss des es funktioniert, habe es aber mit diesem Code nicht geschafft. Ich sehe, dass das Öffnen und Selektieren funktioniert, aber das Einfügen will nicht. Besten Dank für jeden Hinweis.

Language="VBSCRIPT"
Sub CATMain()
Set documents1 = CATIA.Documents
Set drawingDocument1 = documents1.Open("
\2DLIB\GDF_A3.CATDrawing")
Set selection1 = drawingDocument1.Selection
selection1.Search "CATDrwSearch.DrwDitto,all"
Set drawingDocument1 = CATIA.ActiveDocument
Set selection2 = drawingDocument1.Selection
selection2.Clear
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.ActiveSheet
Set drawingViews1 = drawingSheet1.Views
Set drawingView1 = drawingViews1.Item("Main View")
Set drawingComponents1 = drawingView1.Components
Set drawingComponent1 = drawingComponents1.Item(1)
selection2.Add drawingComponent1
Set drawingComponent2 = drawingComponents1.Item(2)
selection2.Add drawingComponent2
Set drawingComponent3 = drawingComponents1.Item(3)
selection2.Add drawingComponent3
selection2.Copy

Set drawingDocument2 = CATIA.ActiveDocument

Set selection3 = drawingDocument2.Selection
selection3.Clear
Set drawingSheets2 = drawingDocument2.Sheets
Set drawingSheet2 = drawingSheets2.ActiveSheet
selection3.Add drawingSheet2

selection3.Paste

selection3.Clear
selection2.Clear
selection1.Clear
drawingDocument1.Close
End Sub

------------------
Gruss
Stefan Inderbitzin

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

---

Servus
Wechselst du überhaupt zu deiner Ziel-Zeichnung zurück?
Wenn du "Set drawingDocument2 = CATIA.ActiveDocument" definierst ist ja deine "Quell-Zeichnung" aktuell.
Vielleicht reicht es diese Zeile nach ganz vorne zu verschieben.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

ich habe den Oberspezi doch noch erwischt, hier das Resultat:

Language="VBSCRIPT"
Sub CATMain()
Set activeDoc = CATIA.ActiveDocument

Set templateDoc = CATIA.Documents.Open("
\2DLIB\GDF_A3.CATDrawing")
Set selection1 = templateDoc.Selection
selection1.Search "CATDrwSearch.DrwDitto,all"
selection1.Copy

activeDoc.Activate
Set drawingView1 = activeDoc.Sheets.ActiveSheet.Views.Item(1)
set targetSelection = activeDoc.Selection
targetSelection.Add drawingView1
targetSelection.Paste

targetSelection.Clear
templateDoc.Close
End Sub

Besten Dank für Deine Antwort.

------------------
Gruss
Stefan Inderbitzin

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