---

Hallo zusammen,

ich versuch die Winkel Zwischen eine Linie und ZY Ebene zu messen, ich habe das hier versucht, aber geht net:

Code:

---

Dim TheSPAWorkbench As Workbench
Dim aTheMeasurable, bTheMeasurable As Measurable
Dim angle1
Dim reference1 As Reference
Dim reference2 As Reference

Set reference1 = CATIA.ActiveDocument.Part.HybridBodies.Item(4).HybridShapes.Item("LineNormal_1")

Set reference2 = CATIA.ActiveDocument.Part.AxisSystems.Item("KOS_1\ZY")

Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set aTheMeasurable = TheSPAWorkbench.GetMeasurable(reference1)
angle1 = aTheMeasurable.GetAngleBetween(reference2)

MsgBox angle1

---

oder soll ich erst ein Parallele Ebne zu ZY erstellen dann messen?
kann mir bitte jemand helfen?

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

---

ok ich habe es ;-)

Gruß

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

---

dann poste doch bitte auch deine lösung falls jemand mal das selbe problem hat.

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

---

Hallo,

Code:

---

Dim TheSPAWorkbench As Workbench
Dim aTheMeasurable, bTheMeasurable As Measurable
Dim angle1
Dim reference1 As Reference
Dim reference2 As Reference

Set reference1 = CATIA.ActiveDocument.Part.HybridBodies.Item(4).HybridShapes.Item("LineNormal_1")

Set reference2 = part1.CreateReferenceFromObject(part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(KOS_1;2);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRep Version_CXR15)", axisSystems1.Item("KOS_1")))

Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set aTheMeasurable = TheSPAWorkbench.GetMeasurable(reference1)
angle1 = aTheMeasurable.GetAngleBetween(reference2)

MsgBox angle1

---

Gruß

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