---

Hallo,
ich erstelle in einem Makro 4 Referenzebenen, das ist auch kein Problem. Allerdings würde ich sie gerne umbenennen und nach Ablauf des Makros wieder löschen. Aber wie bekomme ich das hin?
Ich schaffe weder das eine, noch das andere. Ich habe es schon über den Makrorecorder versucht, habe aber keinen Code bekommen.

Kann da jemand helfen?

Axel H. N.

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

---

Hallo Axel,

wenn Du diese Ebenen erstellst, gibt es doch sicherlich eine Object-Variable, die auf die Ebene verweist.

Dim Ebene1 as Object
'Ebene aus 2 Linien
Set Ebene1=hybridShapeFactory1.AddNewPlane2Lines(Reference1, Reference2)
hybridBody1.AppendHybridShape Ebene1
'Ueber die Name-Eigenschaft kann einem beliebigen Object ein Name zugewiesen werden
Ebene1.Name = "PositionsEbene"

Soll diese Ebene später wieder gelöscht werden, so weist man das Object der Selection zu und löscht über die Delete-Methode die Auswahl.

Bsp.

'Eventuelle momentane Auswahl aufheben
CATIA.ActiveDocument.Selection.Clear
'Ebene1 auswählen
CATIA.ActiveDocument.Selection.Add Ebene1
'Auswahl löschen
CATIA.ActiveDocument.Selection.Delete

Gruss Steffen

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

---

Hallo Steffen,
und vielen Dank. Das umbenennen hat wundedrbar geklappt, nur mit dem löschen, das bekomme ich nicht auf die Reihe.

Ich erzeuge mit

Dim hybridBodie1 as HybridBodie
set hybridBodie1 =hybridBodie1.Add()
hybridBodie1.Name = "Referenz"

einen geöffneten Körper mit dem Namen Referenz.

Darin erzeuge ich mit

Dim Ebene1 as HybridShapePlaneOffset
Set Ebene1=hybridShapeFactory1.AddNewPlaneOffset(Reference1, Offset)
hybridBody1.AppendHybridShape Ebene1
Ebene1.Name = "Ref-X"

nacheinander 4 Ebenen.

Wenn ich versuche den ganzen geöffneten Körper dann mit

  CATIA.ActiveDocument.Selection.Add (Referenz)

zu selektieren um ihn mit allen 4 Ebenen zu löschen bekomme ich immer die Meldung

  Runtime error 424 Objekt required

Was mache ich falsch? Ich wäre dir sehr dankbar wenn du mir da auch weiter helfen könntest.

Axel H.N.

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

---

Hallo Axel,

"Referenz" ist ja der Name von hybridBodie1.
Den versuche es mal mit
  CATIA.ActiveDocument.Selection.Add hybriedBodie1

Gruss
Jan

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

---

Danke JanF,

so ging es dann auch reibungslos.

Aber gibt es keine Möglichkeit anhand des Namens zu selektieren?
Ich müßte nämlich noch ein anderes Teil auswählen welches schon, neben einigen anderen, in der Zeichnung vorhanden ist. Und da das Makro universell laufen soll kann ich eine selection mit "MechanicalTool.?" u.a. wohl ausschließen. Aber der Name des Bodys ist immer der gleiche.
Wie kann ich das denn Lösen?

Axel H.N.

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

---

Hallo Axel,

die meisten Objekte können auch über den Namen angesprochen werden, wenn man die zugehörige Collection kennt. Am Beispiel deines geöffneten Körpers "Referenz" sieht das so aus:

CATIA.ActiveDocument.Selection.Clear
CATIA.ActiveDocument.Selection.Add (CATIA.ActiveDocument.Part.HybridBodies.Item("Referenz")
CATIA.ActiveDocument.Selection.Delete

Gruss Steffen

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