---

BildStrukturbaum.jpg

Hallo zusammen,

ich habe seit einiger Zeit ein Problem mit dem Selection-Object und ich weiß nicht genau, ob ich einfach einen Gedankenfehler habe... 

- Worum gehts genau?
Ihr könnt in dem Bild erkennen, wie der Strukturbaum aufgebaut ist. (Hier für diesen Beitrag ein schlichtes Beispiel)
Das Besondere an diesem Aufbau ist, dass "Part2" ursprünglich im "Product1" steckt und zusätzlich auch in "Product3" verbaut worden ist.
(Man könnte also sagen, dass „Product1“ meine Baugruppe 1 ist und „Product3“ meine Baugruppe 3. Baugruppe 3 ist ein Spiegelbild von der Baugruppe 1.
„Part2“ brauche ich aber nicht zu spiegeln, weil ich dieses Teil zweimal fertigen kann und es so wieder verbaue.)
Das soweit als Hintergrund.

- Und das Problem?
Ich habe jetzt eine Sub geschrieben, die mir den PartBody aus „Part2“ (Baugruppe 1) kopieren soll und in „Part4“ (von „Product2“, meiner Baugruppe 2) einfügen soll (PasteSpecial as Result with Link). Der Anwender soll den PartBody aus „Part2“ (Baugruppe 1) auswählen und das Tool erledigt den Rest.
Beim Einfügen wird jedoch der PartBody von „Part2“ aus Baugruppe 3 genommen. Bezogen auf unser fiktives Beispiel: Es wird das Part aus der gespiegelten Baugruppe, statt der Originalbaugruppe genommen.

(An dieser Stelle eine Anmerkung: Warum das Ganze, sei hier erstmal außenvor gestellt. Es geht eigentlich um das Kopieren von Bohrbilder aus verschiedenen Konsolen, um diese in eine Tischplatte zu übertragen. Das Problem lässt sich hier aber auf diesen Aufbau ebenfalls anwenden.)

- Und nun?
Wie kann ich denn beim Copy-PasteSpecial im Quellcode auf das richtige Object verweisen? Ich will ja den PartBody aus „Part2“ von Baugruppe 1 kopieren und einfügen, wenn ich diesen auswähle. Der Kontext muss also stimmen.

Habt ihr eine Idee, wo ich den Fehler mache und wie ich das Problem lösen kann?

LG Ente

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

---

Quellcode:

'Option Explicit

Sub CopyElements()
Dim Doc As Document
Dim Sel As Object 'INFITF.Selection
'##################  Dim  ##################

Set Doc = CATIA.ActiveDocument
Set Sel = Doc.Selection
Set Docs = CATIA.Documents
Set partDoc = Docs.Item("Part2.CATPart")
Set part1 = partDoc.Part

Dim filter(0)
filter(0) = "Body"
Status = Sel.SelectElement2(filter, "PartBody wählen", False)
If Status <> "Normal" Then Exit Sub

Set obj = Sel.Item2(1).Value 'part1.MainBody

Set partzielDoc = Docs.Item("Part4.CATPart")
Set partZiel = partzielDoc.Part

Sel.Clear
Sel.Add obj
Sel.Copy
Sel.Clear
Sel.Add partZiel
Sel.PasteSpecial "CATPrtResult"

Sel.Clear
End Sub

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

---

Servus Ente9000

Fall du innerhalb einer Baugruppe, im Kontext was kopieren möchtest, musst du wohl den Pfad zum kopierenden Element (bzw auch zum Einfügen) bilden, dann über CreateReferenceFromName die Reference daraus bilden, und diese dann selektieren.

Gruß
Bernd

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

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

---

Hallo Bernd,

Danke für die Antwort. Die Idee werde ich mir anschauen.

Grüße
Ente

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

---

Hallo,
da:
https://forum.cad.de/foren/ubb/Forum137/HTML/003671.shtml#000000
hab' ich vor langer Zeit ein fertiges Script gepostet, welches dein Problem beim kopieren beheben sollt.
mfG

------------------
tomtom1972

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

---

Hallo tomtom,

ich habe den Beitrag kurz überflogen. Das sieht sehr gut aus und deckt sich auch mit dem Vorschlag von Bernd.

Ich bin bisher noch nicht zu der Umsetzung gekommen, aber ich denke, dass das Ganze jetzt funktionieren wird.

Besten Dank euch!

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

---

Und als kurzer Nachtrag für alle anderen Interessierten:

Der ursprüngliche Link wurde bei mir blockiert.
Falls das bei euch ebenfalls der Fall sein sollte, hier der alternative Link zum Forumsbeitrag:

https://ww3.cad.de/foren/ubb/Forum137/HTML/003671.shtml#000004

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