---

Hallo Forum,
ich möchte den Namen einer hinzugefügten Materialeigenschaft wie die Dichte auslesen und ändern. Dies klappt auch mit folgendem Code:

Dim MyPart As Part
Set MyPart = Catia.ActiveDocument.Part
Dim Relation As Relations
Set Relation = Catia.ActiveDocument.Part.Relations
Dim Para As Parameters
Set Para = MyPart.Parameters
Dim Materialdichte As Parameter
Set Materialdichte = Para.Item("Rohr\Aluminium\Aluminium.1.1\Density")
Dim FName As CATBSTR
FName = "Materialdichte"
Dim Formel As Formula
Set Formel = MyPart.Relations.CreateFormula ("FName", "", Materialdichte, "Dichte_angepasst")

Mein Problem hierbei ist aber, dass der Ausdruck beim Einlesen "Set Materialdichte = Para.Item ("Rohr\Aluminium\Aluminium.1.1\Density") nicht allgemein ist. D.h. dass ich mein Makro nur bei diesem bestimmten Part verwenden kann.
Meine Frage ist nun, wie ich den Namen "Rohr\Aluminium\Aluminium.1.1\Density" mit einer Variablen auslesen kann. Der Name ist der Parametername der Dichte, die beim definieren von Material, in dem Fall Aluminium, entsteht. (Rohr ist der Partname)

Über Hilfe wäre ich sehr dankbar.

mfg Tobi

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

---

Habs schon selber. So gehts falls es jemanden auch interessiert:

Dim Material As Parameter
Dim Name As Parameter
Dim MyPart As Part
Set MyPart = Catia.ActiveDocument.Part
Dim Relation As Relations
Set Relation = Catia.ActiveDocument.Part.Relations
Dim Para As Parameters
Set Para = MyPart.Parameters
Set Material = Para.Item("Material")
Name = MyPart.Name+"\"+Material.Value+"\"+Material.Value+".1.1\Density"
Dim Materialdichte As Parameter
Set Materialdichte = Para.Item(Name)
Dim FName As CATBSTR
FName = "Materialdichte"
Dim Formel As Formula
Set Formel = MyPart.Relations.CreateFormula ("FName", "", Materialdichte, "Dichte_angepasst")

mfg Tobi

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