---

Hallo Liebe CAD-Gemeinde,

ich bin neu im Forum angemeldet habe aber schon oft Beiträge gelesen und CAD.DE konnte mir oft bei meinen Problemen helfe.
Dafür möchte ich mich an dieser Stelle bedanken .
Leider habe ich zu diesem Thema noch nichts passendes gefunden außer folgenden Beitrag http://ww3.cad.de/foren/ubb/Forum134/HTML/003701.shtml.

Erstmal zu meinem Problem:
Catia V5 R19 CATDrawing
Ich würde gern per makro ein Schriftfeld aus einem Detailblatt in ein Konstruktionsblatt kopieren (Exemplar einer 2D Komponente erzeugen). Ich habe auch ein Quellcode erstellt
hier ein Ausschnitt:
                    Set drawingDocument1 = CATIA.ActiveDocument
                    Set drawingSheets1 = drawingDocument1.Sheets
                    Set drawingSheet1 = drawingSheets1.ActiveSheet
                    Set drawingSheetView1 = drawingSheets1.ActiveSheet.Views
                    Set drawingComponents1 = drawingSheetView1.Item(2)
                 
                    Set documents1 = CATIA.Documents
                    Set drawingDocument2 = CATIA.ActiveDocument
                    Set selection1 = drawingDocument2.Selection
                    selection1.Clear
                    Set drawingSheets2 = drawingDocument2.Sheets
                    Set drawingSheet2 = drawingSheets2.Item(2)
                    Set drawingViews1 = drawingSheet2.Views
                    Set drawingView1 = drawingViews1.Item(2).Components.Item(1)
                 
                    selection1.Add drawingView1
                    selection1.Copy
                    drawingSheet1.Activate
                    Set selection2 = drawingDocument1.Selection
                    selection2.Clear
                    selection2.Add drawingComponents1
                    selection2.Paste
                    drawingComponents1.Components.Item(1).x = 0
                    drawingComponents1.Components.Item(1).y = 0
                    drawingSheetView1.Item(1).Activate
Es funktioniert auch alles soweit. Das einzige Problem ist, dass eine Detailansicht nicht in ein Konstruktionsblatt kopiert werden kann.
Jetzt fehlt mir der Ansatz wie ich die Catia-Funktion "Exemplar einer 2D Komponente erzeugen" nachbauen kann , damit ich mein Schriftfeld per Makro in ein Konstruktionsblatt einfügen kann. Ich hoffe es kann mir jemand bei diesem Problem helfen.
Vielen Dank im Voraus .

Gruß CADmaschine
 

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

---

Servus
Willkommen im Forum.
Die Funktion "Exemplar einer 2D Komponente erzeugen" findest du bei den DrawingComponents (siehe V5Automation) mit der Methode "Add". Anbei ein Beispiel:

Code:

---

Set KatalogViews = KatalogSheet.Views
Set KatalogView = KatalogViews.Item("Test") 'Name der 2D-Komponente auf dem Datailblatt
Set KatalogComponents = ZielView.Components    'die Collection der 2D-Komponentn in der Zielansicht aufrufen
Set KatalogComponent = KatalogComponents.Add(KatalogView, 0, 0) 'einfügen bei den Koordinaten 0,0

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 11. Jan. 2012 editiert.]

[Diese Nachricht wurde von bgrittmann am 11. Jan. 2012 editiert.]

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

---

Ja Warum einfach, wenn es auch kompliziert geht.

Das hat super funktioniert. Danke schön für die schnelle Antwort.

Gruß CADmaschine

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