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