---

Hallo!

ich habe folgendes Problem, ich möchte innerhalb eines Produktes ein GeoSet von einem Part in ein bestimmtes GeoSet in einem anderen Part kopieren. Mein Problem ist dass ich es nur hinbekomme das GeoSet in das neue Part zu kopieren, aber leider nicht in das vorher per Selektion oder über InWorkObject ausgewählte GeoSet. Vielen dank schon mal für eure schnelle hilfe.

Gruß Al-Fonse

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

---

Servus
Wie sieht dein Code dazu aus? Mein Schnelllösung (Makroaufzeichnung + Nacharbeit) siehe so aus:

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim QuellPartDoc As partDocument
Set QuellPartDoc = productDocument1.Product.Products.Item(1).ReferenceProduct.Parent

Dim selection1 'As Selection
Set selection1 = productDocument1.Selection

selection1.Clear

Dim QuellPart As part
Set QuellPart = QuellPartDoc.part

Dim hybridBodies1 As hybridBodies
Set hybridBodies1 = QuellPart.hybridBodies

Dim hybridBody1 As hybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")

selection1.add hybridBody1

selection1.Copy

selection1.Clear

Dim ZielPartDoc As partDocument
Set ZielPartDoc = productDocument1.Product.Products.Item(2).ReferenceProduct.Parent

Dim ZielPart As part
Set ZielPart = ZielPartDoc.part

Dim hybridBodies2 As hybridBodies
Set hybridBodies2 = ZielPart.hybridBodies

Dim hybridBody2 As hybridBody
Set hybridBody2 = hybridBodies2.Item("Geometrisches Set.1")

selection1.add hybridBody2

selection1.Paste

End Sub

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 21. Jan. 2014 editiert.]

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