---

Hallo,

hab eine Frage. Ich habe mir ein Makro gebastelt mit dem ich einen Body1 erzeuge und einen Body2 als Copy/Paste(Link with Result) von einem selektierten Body3 erstelle. Nun möchte ich den kopierten Body2 mit Hilfe der Boolschen Operation "Add" in den Body1 einfügen.

Sub CATMain()

Dim part1 As Part
Set part1 = CATIA.ActiveDocument.Part

'----------Body1 erzeugen

Dim Bodies1 As Bodies
Dim body1 As Body

Set Bodies1 = part1.Bodies
Set body1 = Bodies1.Add
body1.Name = "Folge_xx"

'----------Body3 auswählen

Dim Selektion(0)
Dim Eingabe As CATBSTR
Dim UserSel As Selection

Set UserSel = CATIA.ActiveDocument.Selection
Selektion(0) = "Body"
Eingabe = UserSel.SelectElement(Selektion, "Folge selektieren!", false)

'----------Body3 kopieren und als Body2 einfügen

Dim body3 As Body
Set body3 = UserSel.Item(1).Value

UserSel.Clear
UserSel.Add (body3)
UserSel.Copy
UserSel.PasteSpecial ("CATPrtResult")

'----------Bodys 1 und 2 addieren

Dim body2 As Body
Set body2 = 

Dim Wzk3D As ShapeFactory
Set Wzk3D = part1.ShapeFactory

Part1.InWorkObject = Folge
Dim Operation As Add
Set Operation = Wzk3d.AddNewAdd (body2)

part1.Update

End Sub

Wie kann ich nun den eingefügten Body2 als Body deklarieren, bzw. eine Referenz von ihm erstellen, um ihn zum Body1 hinzuzufügen?

Gruß
Sven

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

---

Hi Zwenne,

das ist im Buch "Effiziente Konstruktion mit Makros" auf S. 68 mit einem Beispiel beschrieben. Wenn Du Dein Makro wie folgt änderst, werden body1 und body2 addiert, sofern body2 nicht der Hauptkörper ist:

...

Dim Wzk3D As ShapeFactory
Set Wzk3D = part1.ShapeFactory

part1.InWorkObject = body1
Dim Operation As Add
Set Operation = Wzk3d.AddNewAdd (body2)

...

Ich hoffe, das funktioniert so.

------------------
Tschüß, Dieter

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

---

Hallo Dieter,

danke für Deine Antwort. Das Problem an der Sache ist, das ich nicht weiß wie ich body2, der ja als "Result with Link" eingefügt ist, nun deklarieren kann um damit das "Add" durchzuführen.

Gruß
Sven

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

---

Hi Zwenne,

hierzu zwei Ideen:

Idee 1:
=======
Ein neu eingefügter Körper sollte das letzte Item in der Liste der Bodies sein:

Set Body2 = MyPart.Bodies.Item(MyPart.Bodies.Count)

Idee 2:
=======
Falls diese Regel in Deinem Fall nicht aufgeht, dann könntest Du Dir die Liste vorher in einem Array speichern und anschließend den Körper suchen, der in dieser Liste nicht enthalten ist.

------------------
Tschüß, Dieter

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

---

Hallo Dieter,

Deine 1. Idee ist voll aufgegangen  . Genau das habe ich gesucht. Aber was sagt jetzt die Eigenschaft "Count" eigentlich aus? Das immer das letzte Item in einer Liste genommen wird?

Danke nochmal für die Lösung 

Gruß
Sven

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

---

Property count gibt anzahl der Elemente in deinem "Kontainer"

------------------
Mit freundlichem Gruß von Carl Tenschert

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