---

Hallo,

ich möchte gerne in ein Translate das X Y Z hat eine formel erstellen. will nicht alle 200 Translates und die dazugehörigen Korrdinaten X Y Z anklichen und per Hand dann mit rechts klick eine formel erstellen sondern mit einem makro.
Ich habe es schon geschaft wenn formeln vorhanden sind das die umgeschrieben werden aber ich weis nicht wie man neue formeln erstellt.

bitte um hilfe

danke

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Das geht mit dem Befehl CreateFormula . Ein Beispiel aus der Doku:

Code:

---

...
Dim CATDocs As Documents
Set CATDocs = CATIA.Documents
Dim part1 As Document
Set part1 = CATDocs.Add("CATPart")
Dim width As RealParam
Set width = part1.Part.Parameters.CreateReal("width", 1.) 
Dim height As RealParam
Set height = part1.Part.Parameters.CreateReal("height", 2.) 
Dim depth As RealParam
Set depth = part1.Part.Parameters.CreateReal("depth", 3.) 
Dim density As RealParam
Set density = part1.Part.Parameters.CreateReal("density", 1.5) 
Dim mass As RealParam
Set mass = part1.Part.Parameters.CreateReal("mass", 0.) 
Dim computemass As RealParam
Set computemass = part1.Part.Relations.CreateFormula ("computemass","Computes the cuboid mass",  mass,"(width*height*depth)*density")

---

Gruß
Bernd

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

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

---

Hallo,

Wie kann ich denn eine Formel erstellen bei der nicht nur Variablen eingegeben werden müssen, sondern Geometrien als Input verwendet werden? z.B. mein Makro erzeugt eine Fläche und von dieser möchte ich dann den Flächenschwerpunkt erhalten.

Gruß,
Thomas

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

---

Hallo ThomasJay,

du musst in der Formelbeziehung den kompletten Text abbilden, den du auch bei der manuellen Formelerzeugung vorfinden würdest.
Damit nicht irgendeine generische Nummer wie Fläche.5 entsteht und eingegeben werden müsste (die du im voraus nicht unbedingt wissen wirst), kannst du deine neu erzeugten Flächen-Elemente umbenennen mit ".Name = " und den Namen samt Auffindeort des Geosets in die Formel zuordnen.

Ich bilde dazu vorher mit einem String (Dim Formelstring As String) den kompletten Formeltext ab und setzte diesen String dann in die Formelerzeugung ein.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

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

---

Servus
Kleiner Hinwies zu Thomas Erklärung:
Mir dem Befehl "GetNameToUseInRelation" (aus dem Parameters-Objekt) kannst du direkt den Namen (mit dem Pfad) eines Objekt ausgeben lassen, sowie du das Objekt in der Formel angeben musst (ZB GeoSet1\Punkt.23)

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 27. Mai. 2011 editiert.]

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

---

Hallo,
danke erst mal für die vielen antwortetn.
So habe ich das gemacht,

' für Y Verschiebung

K=0

For I = 580 to 699

K= K+1

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("SCHLEIFE_HINTEN.CATPart")

Set part1 = partDocument1.Part

Set relations1 = part1.Relations

Set formula1 = relations1.Item("Formula."+ CStr(I))

formula1.Modify "((MeasureBetween."+ CStr(K)+"\Diry* MeasureBetween."+ CStr(K)+"\Diry )  /  sqrt    ((MeasureBetween."+ CStr(K)+"\Diry *MeasureBetween."+ CStr(K)+"\Diry) + (MeasureBetween."+ CStr(K)+"\Dirz  *MeasureBetween."+ CStr(K)+"\Dirz)) ) * ( sqrt((MeasureBetween."+ CStr(K)+"\Diry *MeasureBetween."+ CStr(K)+"\Diry) + (MeasureBetween."+ CStr(K)+"\Dirz *MeasureBetween."+ CStr(K)+"\Dirz)))  -  `minimaler Freigang beim Vorbeidrehen + 0,02mm Toleranz`)  * `Ausgleichsfaktor TEST`  / (abs(sqrt((MeasureBetween."+ CStr(K)+"\Diry *MeasureBetween."+ CStr(K)+"\Diry) + (MeasureBetween."+ CStr(K)+"\Dirz *MeasureBetween."+ CStr(K)+"\Dirz)) )  +  0.000001mm)"

formula1.Rename "Formula."+ CStr(I)

das funktioniert wenn die formel vorhanden ist.
Ich habe es probiert mit creat formula leider geht das nicht

' Set documents1 = CATIA.Documents

' Set partDocument1 = documents1.Item("SCHLEIFE_HINTEN.CATPart")

' Set part1 = partDocument1.Part

' Set relations1 = part1.Relations

' Set parameters1 = part1.Parameters

' For J = 121 to 240

' J=120

' J= J +1

' Set length1 = parameters1.Item("SCHLEIFE_HINTEN\Verschiebungen der Schnittpunkte für korrigierten Fugenverlauf\Translate."+CStr(J)+"\Y")

' K=0

' For I = 580 to 699

' K= K+1

' Set formula1 = relations1.CreateFormula("Formula."+ CStr(I), "", length1, "((MeasureBetween."+ CStr(K)+"\Diry* MeasureBetween."+ CStr(K)+"\Diry )  /  sqrt((MeasureBetween."+ CStr(K)+"\Diry *MeasureBetween."+ CStr(K)+"\Diry) + (MeasureBetween."+ CStr(K)+"\Dirz *MeasureBetween."+ CStr(K)+"\Dirz)) ) * ( sqrt((MeasureBetween."+ CStr(K)+"\Diry *MeasureBetween."+ CStr(K)+"\Diry) + (MeasureBetween."+ CStr(K)+"\Dirz *MeasureBetween."+ CStr(K)+"\Dirz)))  -  `minimaler Freigang beim Vorbeidrehen + 0,02mm Toleranz`)  * `Ausgleichsfaktor TEST`  / (abs(sqrt((MeasureBetween."+ CStr(K)+"\Diry *MeasureBetween."+ CStr(K)+"\Diry) + (MeasureBetween."+ CStr(K)+"\Dirz *MeasureBetween."+ CStr(K)+"\Dirz)) )  +  0.000001mm)")

' formula1.Rename "Formula."+ CStr(I)

vielleicht könnt ihr damit mehr anfangen als nur mit der erklärung was ich genau machen will. Es sind und die 800 formeln die ich dann per hand schreiben müsste

mfg Culd

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