---

Hi,
ich hab da n kleines Problem,
ich möchte den Winkel zwischen zwei Ebenen messen und in einer Variablen speichern.
Der Makrorecorder gibt dazu leider nichts her.
Wisst ihr, wie man sowas macht?

Vielen Dank,
UL-Schulz

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

---

Geht auch anders: mit den Methoden "GetOrigin", "GetFirstAxis" und "GetSecondAxis" die Lagen beider Ebenen im Raum herauszufinden und dann nach auf Basis der Ebenengleichungen (im Form Ax+By+Cz+D=0) den Winkel ausrechnen.

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

---

Mich interessiert das auch,
aber ich versteh grade nicht, wie ich die Zahlen zu deuten habe, die bei GetOrigin, GetFirstAxis und GetSecondAxis herauskommen und wie davon dann einen Winkel ableite 
Wäre sehr nett, wenn jemand ein kleines Muster schreiben könnte.
Danke vielmals!

[Diese Nachricht wurde von Wolfgang S. am 31. Jan. 2005 editiert.]

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

---

Ich tue das normalerweise nach dem Prinzip "Learning by doing". Ein Makro (ganz klein) mit dem Zweck, für eine ausgewählte Ebene (die ich vorher ganz normal erzeugt habe und weiß, wie sie definiert ist) die Daten (Origin und beide Achsen) ausgibt, dann weiß ich was da passiert. Vor allem wenn man mit DMU arbeitet, schließlich ist das Zeug nicht so gut beschrieben:-(

Aber zum ursprünglichen Problem: messen mit Makroaufzeichen funktioniert irgendwie nicht:-( OK, geht noch besser, mit Parametern. Ich habe eine Part mit "Geometrical Set.1" und Plane.1, Plane.2 dort erzeugt und einen folgenden Text aufzeichnen lassen (gefällt mir eigentlich ganz gut):

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim angle1 As Dimension
Set angle1 = parameters1.CreateDimension("Angle.1", "ANGLE", 0.000000)

Dim relations1 As Relations
Set relations1 = part1.Relations

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula.2", "", angle1, "angle(`Geometrical Set.1\Plane.1` ,`Geometrical Set.1\Plane.2` ) ")

formula1.Rename "Formula.2"

End Sub

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

---

Vielen Dank an Aero!
(wenn auch etwas verspätet  )

Kommst auch aus der Luftfahrtbranche?

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