---

Hallo,

kann mir jemand bei folgenden helfen. Ich habe ein Part (Part2) offen und möchte ein zweites laden aus dem ich eine Fläche benötige. Die Fläche soll kopiert und als Ergebnis im Part2 dargestellt werden. Mit dem unten stehenden Code klappt das laden und kopieren aber das aktivieren des Part2 und Einfügen der Fläche will irgendwie nicht klappen.

'1. Neues Part laden
        Dim StandardsPart As Documents
        Set StandardsPart = CATIA.Documents
       
        Dim oActiveDoc As Document
        Set oActiveDoc = StandardsPart.Open("C:\Daten\Makros\Pfad\NewPart.CATPart")
        Set oActiveDoc = CATIA.ActiveDocument
       
        Dim PartStandard As Part
        Set PartStandard = oActiveDoc.Part
       
        'HybridBodies deklarieren in dem das Element ausgewählt werden soll
        Dim HBodies As HybridBodies
        Set HBodies = PartStandard.HybridBodies
           
        Dim H2Body As HybridBody
        Set H2Body = HBodies.Item("Flächen")

        Dim hybridShapes2 As HybridShapes
        Set hybridShapes2 = H2Body.HybridShapes

        Dim FormA As HybridShape
        Set FormA = hybridShapes2.Item("Fläche")
       
        Dim APart As Part
        Set APart = CATIA.ActiveDocument.Part
       
        oActiveDoc.Selection.Clear
        oActiveDoc.Selection.Add H2Body
        oActiveDoc.Selection.Copy
        oActiveDoc.Selection.Clear
        APart.Add FormA
        APart.Selection.PasteSpecial "CATPrtResultWithOutLink"

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

---

moin,

das Problem liegt darin, das der Zielort für den Paste-Befehl in der Selection stehen muss. Du mußt die erstmal das ActiveDocument vor dem Öffenen des Parts merken und dann nach dem Copy das ursprüngliche Part-Document aktivieren (Document.Activate), dir davon die Selection holen (sicherheitshalber löschen) und dann den Hybridbody, in den die Fläche eingefügt werden soll, per "Add" in die Selection einfügen und dann den Paste-Befehl ausführen.

grob skizziert sieht das dann so aus:

Code:

---

      set oldActDoc = CATIA.ActiveDocument
        ....
        'open other part
        ....
        oActiveDoc.Selection.Clear
        oActiveDoc.Selection.Add H2Body
        oActiveDoc.Selection.Copy
        oActiveDoc.Selection.Clear
       
        oldActDoc.Activate
        set sel = oldActDoc.Selection 
        sel.Add oldActDoc.Part.HybridBodies.Item("wie das auch immer heist")
        sel.PasteSpecial "CATPrtResultWithOutLink"

---

CU
    Tapani

------------------
Don't take life so seriously....
it's not a permanent  condition

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

---

Hallo Tapani,

Vielen Dank für Deine verständliche Erklärung! Ich habe es jetzt geschnallt und angewendet. Jetzt funktioniert es bestens.

Gruß und schönes Wochenende
Frank

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