---

Hallo zusammen,

wie kann ich den Schwerpunkt einer Fläche als Formel erzeugen? Ich mein damit nicht GetCOG, denn das liest mir ja nur einmal die Koordinaten aus, die ich zur Erstellung eines Punktes verwenden kann. Ändert sich anschließend die Fläche bleibt der Punkt gleich. Es ist also eine Formel nötig. Wenn ich es per Hand mach und aufnehme kommt folgendes:

Code:

---

Set formula1 = relations1.CreateFormula("Formula.3", "", parameter1, "centerofgravity(`Fläche` ) ")

---

Ich weiß aber nicht, welchen Punkt ich mit parameter1 verknüpfen kann, dass das funktioniert. Wenn ich einfach einen Koordinatenpunkt wähle wird CATIA sofort beendet...

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

---

Servus
Hier (oder auch hier) findest du Beispielcode und eine Diskussion fü eine ähnliche Formel.
Hilft das schon?

Gruß
Bernd

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

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

---

Nein. Mein Problem ist nicht der Wert der Formel, sondern wie ich diesen Wert einem Parameter zuweise, der einen Punkt darstellt.

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

---

Hallo,

Versuch doch mal einen Parameter vom Typ Punkt zu erstellen.
Dann sollte es funktionieren mit der Formel.

Gruss
Philipp

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

---

Ja, das sollte es. Aber es gibt ja nicht die Möglichkeit eines CreatePoint, sowie z.B. CreateReal. Wie kann ich also so einen Parameter vom Typ Punkt erzeugen?

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

---

Servus
Du musst zunächst einen HybridPointExplicite anlegen (also einen isolierten Punkt). Diesen kannst du dann bei der Erstellung der Formel angeben.
zB (zusammengebastelter Code)

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")

part1.Update

Dim hybridShapePointCoord2 As HybridShapePointCoord
Set hybridShapePointCoord2 = hybridShapeFactory1.AddNewPointCoord(0#, 0#, 0#)

hybridBody1.AppendHybridShape hybridShapePointCoord2
part1.InWorkObject = hybridShapePointCoord2
part1.Update

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePointCoord2)

Dim hybridShapePointExplicit1 As HybridShapePointExplicit
Set hybridShapePointExplicit1 = hybridShapeFactory1.AddNewPointDatum(reference4)

hybridBody1.AppendHybridShape hybridShapePointExplicit1

Dim oForm As Formula
Set oForm = part1.Relations.CreateFormula("Test", "", hybridShapePointExplicit1, "point(1mm,1mm,1mm) ")

part1.InWorkObject = hybridShapePointExplicit1
part1.Update

hybridShapeFactory1.DeleteObjectForDatum reference4
End Sub

---

Gruß
Bernd

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

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

---

Klasse, so funktionierts. Vielen Dank

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

---

Hallo zusammen,
hänge gerade fest. Bei mir ist der GetNameToUseInRelation Befehl immer leer.
Woran liegts?

Hier ein Ausschnitt aus dem Code:

Code:

---

Dim Wkz3D As Factory
Set Wkz3D = CATIA.ActiveDocument.Part.HybridShapeFactory

Dim PunktMin As HybridShapePointExplicit
Dim PunktMax As HybridShapePointExplicit

Dim hybridShapePointCoord2 As HybridShapePointCoord
Set hybridShapePointCoord2 = hybridShapeFactory1.AddNewPointCoord(0, 0, 0)

hybridBody1.AppendHybridShape hybridShapePointCoord2
part1.InWorkObject = hybridShapePointCoord2
part1.Update

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePointCoord2)

Dim Bodyname As String

For i = 0 To 2
Set extremum1_max = hybridShapeFactory1.AddNewExtremum(reference1, directions1(i), 1)
hybridBody1.AppendHybridShape extremum1_max

Set PunktMax = hybridShapeFactory1.AddNewPointDatum(reference4)
hybridBody1.AppendHybridShape PunktMax

Set Bodyname = part1.Parameters.GetNameToUseInRelation(extremum1_max)
MsgBox Bodyname
Dim oForm As Formula
Set oForm = part1.Relations.CreateFormula("PunktMax", "", PunktMax, "centerofgravity(Bodyname)")

part1.InWorkObject = PunktMax
part1.Update

---

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

---

Servus

Da GetNameToUseInRelation dir ein String und kein Objekt liefert: lass mal das Set vor Bodyname weg
Beim erstellen der Formel müsstest du den  String übergeben :

Code:

---

Set oForm = part1.Relations.CreateFormula("PunktMax", "", PunktMax, "centerofgravity(" & Bodyname & ")")

---

ggf den String der Formel zuvor zusammensetzen

Gruß
Bernd

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

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

---

Wunderbar, funktioniert.
Der Name der Formel sollte aber "PunktMax" heißen (steht ja auch so in der Formel). Angezeigt wird mir aber Point.XXX. Hab ich hier auch was übersehen?

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

---

Servus

Welchen Namen meinst du? Der Formel oder des Punktes? (ggf Screenshot)
Bei Point.XXX meinst du wohl eher einen Punkt.
Den solltest du mit PunktMax.Name umbenennen können.

Gruß
Bernd

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

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

---

Baum.png

Habe ich schon probiert (einmal mit oForm.Name und einmal mit PunktMax.Name), der Punkt heißt trotzdem Point.XXX (siehe Anhang)

Wollte das Ganze nun über ein Array lösen, aber ich habe das Gefühl, dass ich die aus der Formel erzeugten Punkte nicht ansprechen kann.

--> GetMinimumDistance failed
--> Die Maße Lauten dreimal 0mm...

Anbei der Code:

Code:

---

For i = 0 To 2
'PunktMax
Set extremum1_max = hybridShapeFactory1.AddNewExtremum(reference1, directions1(i), 1)
hybridBody1.AppendHybridShape extremum1_max

Set PunktMax = hybridShapeFactory1.AddNewPointDatum(reference4)
hybridBody1.AppendHybridShape PunktMax

Bodyname = part1.Parameters.GetNameToUseInRelation(extremum1_max)

Dim oForm As Formula
Set oForm = part1.Relations.CreateFormula("PunktMax", "", PunktMax, "centerofgravity(" & Bodyname & ")")
'Formelname = "PunktMax" & CStr(i)
'oForm.Name = Formelname

Set PunkteMax(i) = part1.CreateReferenceFromObject(oForm)

'PunktMin
Set extremum1_min = hybridShapeFactory1.AddNewExtremum(reference1, directions1(i), 0)
hybridBody1.AppendHybridShape extremum1_min

Set PunktMin = hybridShapeFactory1.AddNewPointDatum(reference4)
hybridBody1.AppendHybridShape PunktMin

Bodyname = part1.Parameters.GetNameToUseInRelation(extremum1_min)

Set oForm = part1.Relations.CreateFormula("PunktMin", "", PunktMin, "centerofgravity(" & Bodyname & ")")
'Formelname = "PunktMin" & CStr(i)
'oForm.Name = Formelname

Set PunkteMin(i) = part1.CreateReferenceFromObject(oForm)

Next

part1.Update

For i = 0 To 2
Set Measurable1 = TheSPAWorkbench.GetMeasurable(PunkteMax(i))
Laengen(i) = Measurable1.GetMinimumDistance(PunkteMin(i))
Next

Dim wert1, wert2, wert3

wert1 = Laengen(0)
wert2 = Laengen(1)
wert3 = Laengen(2)

MsgBox "Die Rohteilabmessungen lauten:" & Chr(13) & "Richtung1 = " & CInt(wert1) & "mm" & Chr(13) & "Richtung2 = " & CInt(wert2) & "mm" & Chr(13) & "Richtung3 = " & CInt(wert3) & "mm" & Chr(13), vbInformation, makroname + " " + version

---

[Diese Nachricht wurde von olleiCAD am 10. Nov. 2020 editiert.]

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

---

Servus

In deinem Bild ist nicht die Formel zu sehen sondern der Punkt der über eine Formel definiert wird.
Zum benennen des Punktes:

Code:

---

Set PunktMax = hybridShapeFactory1.AddNewPointDatum(reference4)
PunktMax.Name = "PunktMax" & CStr(i)
hybridBody1.AppendHybridShape PunktMax

---

Zum Messen musst du die Reference aus dem Punkt erzeugen und nicht der Formel:

Code:

---

Set PunkteMax(i) = part1.CreateReferenceFromObject(PunktMax)
'Bzw.
Set PunkteMin(i) = part1.CreateReferenceFromObject(PunktMin)

---

Gruß
Bernd

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

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

---

Da soll einer drauf kommen 
Traumhaft vielen vielen dank!

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