---

Hallo
in der V5R19 finde ich unterschiedliche Parametersets im Produkt in diversen Parts verschachtelt oder unverschachtelt. Diese möchte ich umbenennen. D.h. den kompletten Namen auslesen und mit einem neuen Namen überschreiben.
Im Forum habe ich mir hierzu Anleihen für Parameter zum umbenennen bereits erfolgreich geholt, nur bei den Sets fehlt mir die Syntax zur Parameter Sets zum Umbenennen.
Mit der Bitte um Unterstützung.
Danke.

------------------
mfg
Erich

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

---

Hallo
folgende funktionierende Code-Zeilen habe ich gefunden:
-------------------------------------------------------
Sub CATMain()
Set ProductDoc = CATIA.ActiveDocument
Set Product = ProductDoc.Part
Set RootParameterSet = Product.Parameters.RootParameterSet
Set ParameterSets = RootParameterSet.ParameterSets
Set ModelElement = ParameterSets.GetItem("_Material_and_Weight").GetItem("ModelElement")
ModelElement.DisplayName = "Material_and_Weight"
End Sub
-------------------------------------------------------
Hiermit passiert allerdings etwas seltsames, das Script läuft ohne Probleme im Part durch, es scheint aber sich nichts verändert zu haben.
Erst nachdem der Baum auf- und zugeklappt wurde erkennt man das gewünschte Ergebnis.
Hierzu meine Bitte - in meinem Script möchte ich über eine Suche die Parameter-Sets suchen (funktioniert bereits) nur wenn ich die
gefundenen P-Sets mit dem obigen Code umbenennen will -
-------------------------------------------------------
...
Set ModelElement = myParameterSet.GetItem(oSelPs.Item(i).value.name).GetItem("ModelElement")
ModelElement.DisplayName = MyParam_o_USSet
...
-------------------------------------------------------
bekomme ich eine Fehlermeldung.
Wer kann helfen?

------------------
mfg
Erich

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

---

Servus
Ist die Variabel "i" auch gesetzt? Oder sollte es "oSelPs.Item(1).value.name" heißen?
Hast du das ParameterSet zuvor selektiert? Dann sollte es auch direkt so funktionieren:

Code:

---

Set ModelElement = oSelPs.Item2(1).value.GetItem("ModelElement")
ModelElement.DisplayName = MyParam_o_USSet

---

Gruß
Bernd

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

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

---

Hallo Bernd
das war genau der richtige Schubs im Script, vielen Dank.
Jetzt läuft es durch.

------------------
mfg
Erich

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