---

2015-07-08_155518.jpg

Habe bereits versucht mit dem Makro-Recorder den Code zu bekommen. Dieser scheint jedoch unvollständig zu sein.
Ich ziehe meine Abzugskörper von einem anderen Körper ab und bekomme folgenden Code:

------------------------------------------
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Abzugskoerper_PC")

shapeFactory1.AddNewRemove body1

Dim body2 As Body
Set body2 = bodies1.Item("Adapter_Radabdeckung_hinten")

Dim shapes1 As Shapes
Set shapes1 = body2.Shapes

Dim remove1 As Remove
Set remove1 = shapes1.Item("Remove.26")

part1.UpdateObject remove1

Dim remove2 As Remove
Set remove2 = shapes1.Item("Remove.27")

part1.UpdateObject remove2

Dim remove3 As Remove
Set remove3 = shapes1.Item("Remove.28")

part1.UpdateObject remove3

Dim remove4 As Remove
Set remove4 = shapes1.Item("Remove.29")

part1.UpdateObject remove4

Dim remove5 As Remove
Set remove5 = shapes1.Item("Remove.30")

part1.UpdateObject remove5

Dim remove6 As Remove
Set remove6 = shapes1.Item("Remove.31")

part1.UpdateObject remove6

part1.Update

End Sub

---------------------------------------------------
Anhängende Fehlermeldung wird bei Codeausführung ausgespuckt.
Ein Klick auf Debug markiert die folgende Zeile gelb:
"Set remove1 = shapes1.Item("Remove.26")"

Viele Grüße
Dennis

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

---

Servus
Versuch mal den Code zu verstehen. Der Makrorekorder liefert auch mal Schrott.
IMHO ist der Code ab "Dim shapes1 ..." nicht mehr notwendig (ggf noch ein Part-Update drin lassen).

Gruß
Bernd

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

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

---

Danke für deine Antwort, Bernd.
Was Catia jetzt macht, ist einfach nur meinen Abzugskörper zu entfernen.
Ich finde auch im Code nicht die Stelle, an der steht, dass body1 von body2 abgezogen werden soll. 

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

---

Servus
Gemäß Doku wird mir ".AddNewRemove body1" der Body1 vom aktuell Körper abgezogen.

Gruß
Bernd

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

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

---

Hab das gestern noch hinbekommen dank deiner Hilfe.
Vielen Dank
und schönes Wochenende

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