---

95_richtig.jpg 85_falsch.jpg

Hallo Zusammen,

folgende Code messe ich ein Winkel zwischen 2 Linie, aber die Ergebnisse sind nicht immer gleich (siehe Anhang).
Es hängt davon ab, in welchem Quadranten des Koordinatensystem (Absolute) sich der Schnittpunkt befindet.

Bild1: Schnittpunkt <50; -50; -50>
Bild2: Schnittpunkt <50; 50; -50>

Kennt Ihr eine Lösung dafür?

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim UserSelection as Selection
Set UserSelection = CATIA.ActiveDocument.Selection

Dim Mes1 As Reference

dim status
Dim Was(0)
Was(0)="HybridShape"

UserSelection.Clear
status=UserSelection.SelectElement2(was, "Select a Line", False)
Set Mes1=part1.CreateReferenceFromObject(UserSelection.Item(1).Value)

Dim Mes2 As Reference

UserSelection.Clear
status=UserSelection.SelectElement2(was, "Select a Line", False)
Set Mes2=part1.CreateReferenceFromObject(UserSelection.Item(1).Value)

Set TheSPAWorkbench =CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable =TheSPAWorkbench.GetMeasurable(Mes1)
angle =TheMeasurable.GetAngleBetween(Mes2)

angle = round(angle,2)
MsgBox angle

UserSelection.Clear

End Sub

---

[Diese Nachricht wurde von imation1999 am 24. Apr. 2013 editiert.]

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

---

Led die Koordinaten des Schnittpunktes aus und mach eine Fallunterscheidung für die verschiedenen Quadranten.

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

---

Hallo ThomasJay,

vielen Dank für die Antwort.

Ist das die einzigste Lösung?

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