---

Hallo Zusammen!

Ich versuche die Scherpunkte von unterschiedlichen Bauteile einer Baugruppe zu ermitteln. Wenn ich die "meausere Inertia" Funktion nutze, kriege ich den Schrerpunkt auf dem gobalen Urprung bezogen.
Leider hilft mir das nicht.

Ich habe im Forum gelesen, dass wen ich den Scherpunkt mit "Meausure Item" ermittle, ich den Ursprung neudefinieren kann.
Leider schaffe ich es nicht. Der Schwerpunkt wird immer noch auf dem globalen Ursprung bezogen  berechnet.

Wie wird ein neuer Ursprung mit "Measure Item" definiert?

Danke,
Trala

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

---

Traegheit1.jpg Traegheit2.jpg

HaLLO Trala;

Du musst auf "Anpassen" klicken und "Trägheitsmatrix/Achsensystem aktivieren. Dann wird ein zusätzliches Register aktiv, in dem Du auf ein neues Achsensystem referenzieren kannst.

Gruß
Mörchen

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

---

Danke Mörchen für die schnelle Antwort!
ich habe versucht den Schwerpunkt nach deriner Anweisung zu berechen, geht aber nicht.
Ich habe festgestellt, dass ich nur V17 habe und du V19.
Gibt es denn eine Möglichkeit den Ursprung bei V17 anderswo zu definieren?

Danke

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

---

Hallo trala-la,

vielleicht ging das in Release 17 nicht, ich weiß das grad nicht.

Aber schau mal hier: http://ww3.cad.de/foren/ubb/Forum139/HTML/002926.shtml#000001

Es ist auch möglich, die Trägheitsachsen und den Schwerpunkt mit dem Formeleditor zu erzeugen.

Für den Schwerpunkt:
 Einen Parameter Typ „Punkt“ (letzter Parametertyp in der Liste) erzeugen.

 Formel hinzufügen: Dazu die Punktkonstruktoren vorwählen (centerofgravity).

Nach dem gleichen Prinzip kann man die Trägheitsachsen erzeugen:

 Einen Parameter Typ „Linie“(unten in Liste) erzeugen

 Formel hinzufügen: Dazu die Linienkonstruktoren vorwählen (inertiaAxis)

Die 1 steht hier für die erste Achse.

Gruß
Mörchen

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

---

Hallo,

weiß jemand, wie man das auch per Makro machen kann?

Schöne Grüße
JimmyBly

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Was willst du mit einem Makro machen? (hier wurden einige Themen angesprochen)
Ggf ach mal im Programmier-Forum suchen.

Gruß
Bernd

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

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

---

Hallo,

im Programmierforum habe ich zu diesem Thema nichts gefunden.
Mein Makro soll einen Schwerpunkt von einem Body erzeugen, der sich per Formel automatisch neu berechnet, wenn sich am Body etwas ändert. Also im Grunde soll das Makro genau das machen, was oben für den interaktiven Fall so gut beschrieben ist.

------------------
Schöne Grüße
JimmyBly

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

---

Servus
Dafür rentiert sich IMHO kein Makro, aber egal.
Die Makroaufzeichnung liefert dabei dies (für den Hauptkörper, CATIA auf deutsch):

Code:

---

Sub CATMain()
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

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

hybridBody1.AppendHybridShape hybridShapePointCoord1
part1.InWorkObject = hybridShapePointCoord1
part1.Update

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

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

hybridShapePointExplicit1.Name = "CoG"

hybridBody1.AppendHybridShape hybridShapePointExplicit1

part1.InWorkObject = hybridShapePointExplicit1

part1.Update

hybridShapeFactory1.DeleteObjectForDatum reference2

Dim relations1 As Relations
Set relations1 = part1.Relations

Dim parameters1 As parameters
Set parameters1 = part1.parameters

Dim parameter1 As Parameter
Set parameter1 = parameters1.Item(hybridShapePointExplicit1.Name)

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("CoG", "", parameter1, "centerofgravity(`Hauptkörper` ) ")

part1.Update

End Sub

---

Das Script muss natürlich noch etwas optimiert/angepasst werden.

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 07. Mrz. 2011 editiert.]

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

---

Hallo Bernd,

vielen Dank für das CATScript! Das hilft mir weiter. Ich hatte das mit der Makroaufzeichnung auch schon probiert. Bei mir waren allerdings nur die letzten 5 Codezeilen brauchbar. Oben standen über 300 Codezeilen, die mit den ausgeführten Schritten nichts zu tun hatten. Wie kann das sein? Muß man bei der Makroaufzeichnung noch irgendetwas beachten, damit das sauber klappt?

------------------
Schöne Grüße
JimmyBly

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

---

Servus
Makroaufzeichnungen kann man meiner Erfahrung nach (fast) nie ohne Nacharbeit verwenden. Bei der Aufzeichnungen werden die meisten Elemente mit dem Name aufgerufen, was meist beim nächsten Makrodurchlauf schon wieder nicht mehr klappt.

Gruß
Bernd

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

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

---

Hallo Bernd,

es ist klar, daß man die Aufzeichnung überarbeiten muß und feste Namen durch Variablen ersetzen muß. Mich wundert nur, daß meine Makroaufzeichnung in diesem Fall nur aus 300 Zeilen DIM-Statements und zum Schluß wenigen sinnvollen Zeilen Code besteht:
Dim ...
Dim ...
Dim relations1 As Relations
Set relations1 = part1.Relations

Dim parameters1 As parameters
Set parameters1 = part1.parameters

Dim parameter1 As Parameter
Set parameter1 = parameters1.Item(hybridShapePointExplicit1.Name)

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("CoG", "", parameter1, "centerofgravity(`Hauptkörper` ) ")

Fehlt mir dazu eine bestimmte Lizenz oder eine Zusatzapplikation, damit ich einen vollständigen Code bekomme?

------------------
Schöne Grüße
JimmyBly

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

---

Servus
Du hast mich erwischt:
Ich hatte meinen Code auch schon etwas gesäubert und auch beim Aufzeichnen streng darauf geachtet was ich anklicke (alle unnötigen Klicks vermeiden) (aber 300 Zeilen DIM-Statements hatte ich nicht)

Gruß
Bern

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

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

---

Hallo...
der Thread ist schon was alt... aber dennoch...
Ich hab es so gemacht wie Mörchen beschrieben hat. Kann auch alles soweit auswählen. Aber wenn ich dann ein anderes Koordinatensystem auswähle ändert sich das Center of Grafity nicht --> ja ich bin mir sicher, dass die angegebenen Koordinaten nicht richtig sind.
Irgendwelche Vorschläge??? Bin um jeden Hinweis dankbar!
lg nikipedia

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

---

Servus
Willkommen im Forum.
Schau mal hier.

Gruß
Bernd

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

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