---

Hallo zusammen,
wie kann ich in einem Makro die erzeugten Geometrical Sets gleichzeitig umbenennen?

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

---

Hallo meinlieberscholli,

willkommen im Forum!

Das Benennem des Sets ist sicher nicht so schwer!
Wenn Du Dein Set mit

Code:

---

Set=...HybridBodies.Add

---

erstellt hast, so kannst Du es mit

Code:

---

Set.Name = "Das_ist_mein_Name"

---

benennen. Ansonsten geht es wahrscheinlich auch mit

Code:

---

...HybridBodies.Item(...Hybridbodies.Count).Name = "Das_ist_mein_Name"

---

Ich hoffe, es hilft Dir und funktioniert auch, ich kann es gerade nicht prüfen!

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Hallo Lusilnie,

danke für die Hilfe.
Befinde mich bei Makros auf Neuland, deswegen habe ich es mit Deinen Angaben leider nicht zum Laufen gebracht.
Bis jetzt sieht's so aus und irgendwo dazwischen sollte der Name vergeben werden:

______________________________________________

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Konstruktion")

Set hybridBodies2 = hybridBody1.HybridBodies

Set hybridBody2 = hybridBodies2.Add()

part1.UpdateObject hybridBody2

End Sub
____________________________________________

Gruß

meinlieberscholli

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

---

Hallo,
versuche es mal hiermit.

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Konstruktion")

hybridBody1.Name = "Name_von_HB1"

Set hybridBodies2 = hybridBody1.HybridBodies

Set hybridBody2 = hybridBodies2.Add()

hybridBody2.Name = "Name_von_HB2"

part1.update

End Sub

------------------
Gruß,
Matthias

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

---

Hallo Heini_k,

vielen Dank, so hat's funktioniert.

Gruss

meinlieberscholli

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