---

Hallo Catia Uer!

Ich habe ein Problem mit dem ansprechen eines Haupkörpers in einem Exemplar eines Parts. Dieses Exemplare sind in einem Produkt zusammengefaßt.
Mit dem Befehl .ReferenceProduct.Parent.Part kann ich immer nur das Haupteil von dem das Exemplar abgeleitet wurde ansprechen.
Ich möchte aber den Body eines Exemplars ansprechen um diesen zu kopieren, damit dessen Lage im Produkt mitgezogen wird.

Ich hoffe es kann mir einer von euch einer bei der Problemlösung helfen.

Vielen Dank

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

---

instances.txt

Hallo peth,
such doch mal im Product nach Namen MIT InstanceNumber, dann das sel.item(1) als part deklarieren und den untergeordneten body kopieren. Hab die auswahl von einer instance eines parts mal probiert müsste so gehen..
HTH MfG Ronny

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

---

Damit kann man zumindest die Hauptkörper in verschiedenen Instances ansprechen, das mit dem kopieren ... mal sehen

HTH Ronny

Sub CATMain()

Dim ProductDocument1 As ProductDocument
Set ProductDocument1 = CATIA.ActiveDocument

Dim Selection1 As Selection
Set Selection1 = ProductDocument1.Selection

Dim Prod As Product
Dim Par As Part
Dim Bod As Body
Dim Partname As String

Partname = InputBox("Wie heisst das Part von dem mehrere Instances existieren?", , "Part1")

Selection1.Search "(((CATProductSearch.Product + CATAsmSearch.Product) + CATPcsSearch.Product) & Name=" + Partname + "'.'*),all"

i = Selection1.Count

For k = 1 To i
Set Prod = Selection1.Item(k).Value
Selection1.Clear
Selection1.Add Prod
Selection1.Search "((((((((CATProductSearch.Part + CATStFreeStyleSearch.PartFeature) + CATAsmSearch.Part) + CATPrtSearch.PartFeature) + CATGmoSearch.PartFeature) + CATPcsSearch.Part) & Name=" + Partname + ") - ((CATProductSearch.Product + CATAsmSearch.Product) + CATPcsSearch.Product)) & (((((((CATProductSearch.Part + CATStFreeStyleSearch.PartFeature) + CATAsmSearch.Part) + CATPrtSearch.PartFeature) + CATGmoSearch.PartFeature) + CATPcsSearch.Part) & Name=part1) - ((CATProductSearch.Product + CATAsmSearch.Product) + CATPcsSearch.Product)" & ")),sel"
Set Par = Selection1.Item(1).Value
'Selection1.Clear
Selection1.Add Prod
Selection1.Search "(((CATStFreeStyleSearch.BodyFeature + CATPrtSearch.BodyFeature) + CATGmoSearch.BodyFeature) & Name=Hauptkörper),sel"
Set Bod = Selection1.Item(1).Value
MsgBox ("Aktuelle Selection:" + vbCrLf + Prod.Name + "/" + Par.Name + "/" + Bod.Name)
Selection1.Search "(((CATProductSearch.Product + CATAsmSearch.Product) + CATPcsSearch.Product) & Name=" + Partname + "'.'*),all"
'selection1 = selection1.Item(1)
Next
Selection1.Clear
End Sub

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

---

Ist dieses Problem eigentlich mittlerweile gelöst? Wenn ja wie?

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

---

Servus
Schau zB mal hier.

Gruß
Bernd

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

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

---

Vielen Dank für den Hinweis.

Der angegebene Beitrag löst aber aus meiner Sicht nicht das Problem mit unterschiedlichen Exemplaren. Beispiel:

In einem Produkt habe ich zwei Parts deren angelegte Körper ich alle kopieren und in ein drittes Part einfügen möchte. Dabei ist aber Part 2 bereits eine Kopie (Exemplar) von Part 1 und nur anders positioniert. Wenn ich jetzt per Makro die Bodies von Part 2 selektiere, kopiere und einfüge wird nicht die richtige Position mit übernommen sondern die Originalposition dieser Bodies. Das möchte ich aber nicht da insbesondere manuell die Positionsübernahme beim kopieren der Kopie funktioniert.

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

---

Servus
Stimmt, da geht nur wenn das Teil nur einmal verbaut ist.
Dann könnte dir diese Makro weiterhelfen oder diese Makro (interessanter Ansatz, hab es noch nicht getestet).
Eine weitere Idee: immer nur die zu kopierende Instanz aktiviert zu haben die anderen deaktivieren

Gruß
Bernd

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

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