Hallo Gemeinde!
Ich versuche mittels eines Makros eine Tabelle auf einer Vorlagezeichnung auf eine Zeichnung zu kopieren.
Mit dem Makrorekorder bin ich schon ralativ weit gekommen, nur funktioniert das ganze noch nicht wie es sollte.
Hier mal der Makro-Code:
Language="VBSCRIPT"
Sub CATMain()
Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Sheet.2 (Detail)")
drawingSheet1.Activate
Set documents1 = CATIA.Documents
Set drawingDocument2 = documents1.Open("\SAP_WORK_DIR\100000147118_831_000.CATDrawing")
Set drawingDocument2 = CATIA.ActiveDocument
Set selection1 = drawingDocument2.Selection
selection1.Clear
Set drawingSheets2 = drawingDocument2.Sheets
Set drawingSheet2 = drawingSheets2.Item("Aenderungstabellen")
Set drawingViews1 = drawingSheet2.Views
Set drawingView1 = drawingViews1.Item("Aenderungstabelle A3[2].1[2]")
selection1.Add drawingView1
selection1.Copy
drawingDocument1.Activate
drawingSheet1.Activate
selection1.Paste
End Sub
Am Ende soll es so aussehen. Ich habe eine neue Zeichnung und möchte auf ein Detail Sheet eine Änderungstabelle aus einer Vorlagezeichnung einfügen.
Wenn ich das derzeitige Makro ausführe, geschieht folgendes:
Es wird die Vorlagezeichnung geöffnet und auch die korrekte Tabelle kopiert. Dann spring Catia auf das Sheet.2 der neuen Zeichnung zurück und ich bekomme die Fehlermeldung: "Cut or copied elements cannot be pasted in the selected item".
Wenn ich nun am Sheet.2 versuche mittels rechter Maustaste die Tabelle einzufügen, habe ich keinen "Paste" Befehl verfügbar. Springe ich dann einmal auf Sheet.1 und zurück auf Sheet.2 kann ich die Tabelle mittels rechter Maustaste und paste einfügen. Es muss also mit dem aktivieren des Sheet.2 zusammenhängen.
Bitte um Hilfe eines Wissenden - DANKE und leibe Grüße!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
