---

Hallo,

ich muss innerhalb einer Produktstruktur von einem Part etwas in ein anderes Part kopieren. Um den CSO-Fehler bei Selection.copy zu umgehen, muss man ja bekanntlich die Selection aus dem ActiveDocument also dem geöffneten, übergeordneten Produkt gehen und dann das Zielpart der Selection nach dem Copy über ReferenceProduct.Parent.Part hinzufügen. Und dann eben ein pastespecial machen. Funktioniert alles gut, jedoch nur unter einer Bedingung:

Das RootProduct, in welchem sich beide Parts befinden, muss Aktiv(blau hinterlegt) sein. Sich also im Editiermodus befinden. Ist das nicht der Fall und es ist z.B. ein Part aktiviert und im Editiermodus offen, dann stürzt die Selection und das ganze Programm/Vorgehen ab.

Wie schaffe ich da nun Stabilität reinzukriegen? Habe mich schon umgeschaut, ob man irgendwie das rootProduct aktivieren kann, aber das scheint iregdnwie nicht möglich zus ein. Oder kann man den Selection-Code irgendwie optimieren?

Code:

---

Sub catmain()
    Dim sel As Selection
   
    Dim productDocument1 As ProductDocument
    Set productDocument1 = CATIA.ActiveDocument
   
    Dim product1 As Product
    Set product1 = productDocument1.Product
   
    Dim product2 As Product
    Set product2 = product1.Products.Item("Part1.1")
   
    Dim product3 As Product
    Set product3 = product1.Products.Item("Part2.1")
   
    Dim hybridBodies1 As HybridBodies
    Set hybridBodies1 = product2.ReferenceProduct.Parent.Part.HybridBodies
   
    Dim hybridBody1 As HybridBody
    Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
   
    Dim hybridShapes1 As HybridShapes
    Set hybridShapes1 = hybridBody1.HybridShapes
   
    Dim hybridShapePointCoord1 As HybridShapePointCoord
    Set hybridShapePointCoord1 = hybridShapes1.Item("Point.1")

    Set sel = productDocument1.Selection
   
    sel.Add hybridShapePointCoord1
    sel.Copy
    sel.Clear
   
    sel.Add product1.Products.Item("Part2.1").ReferenceProduct.Parent.Part
    sel.PasteSpecial "CATPrtResultWithOutLink"
    sel.Clear

End Sub

---

Code ist für ein Product, wo 2 Parts drin hängen und wo im ersten Part im Geoset ein Punkt ist.

Vielen dank schon mal für die hilfe...

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

---

Du möchtest die Workbench wechseln.

Dies machst du indem du das entsprechende Objekt selektierst und die Workbench setzt, dazu bitte die Suche im Forum benutzen, ich weiß die Strings nicht auswendig.
Hierbei Achtung: Wenn du bereits in der Workbench bist, in die Du wechseln möchtest wird ein New ausgeführt, also vorher imemr schön prüfen.
Ich mach das alles in etwa so:

Prüfen welche Workbench offen ist.
Ist Assembly, dann gut, ist kein Assembly, dann Assembly
Selektieren part1 und PartWorkbench
Copy
Wechseln Assembly Workbench
Selektieren Part2 und PartWorkbench
Paste

Hoffe dein Problem überrissen zu haben. 

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Stimmt, WB wechseln rein. Ist ja cool...Naja dafür ist ja hier das Forum :-) Dann werd ich mich mal umschauen.....

Dankeschön für den Tipp

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