---

Hi,

hab gleich noch ein Anliegen.
Kann mir jemand von euch sagen, wie man den Winkel zwischen zwei Linien messen kann. Der Aufzeichner zeichnet leider nichts auf

gruß

Hanni

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

---

Hallo!

Und ich nochmal!

Versuchs mal hiermit (Liniennamen musst noch anpassen):

Sub catmain()

    Set part1 = CATIA.ActiveDocument.part
   
    Set line1 = part1.FindObjectByName("Line.1")
                   
    Set line2 = part1.FindObjectByName("Line.2")
                      
    Set rk1 = part1.CreateReferenceFromObject(line1)
                   
    Set rk2 = part1.CreateReferenceFromObject(line2)
           
    Dim TheSPAWorkbench As Workbench
           
    Dim aTheMeasurable, bTheMeasurable As Measurable
           
    Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
           
    Set aTheMeasurable = TheSPAWorkbench.GetMeasurable(rk1)
                   
    angle1 = aTheMeasurable.GetAngleBetween(rk2)
                   
    MsgBox angle1

End Sub

Hoffs hilft,
Ciao
Max

[edit]
mit freundlicher Unterstützung von
http://ww3.cad.de/foren/ubb/Forum137/HTML/000301.shtml
[/edit]

[Diese Nachricht wurde von MaxZ am 29. Jul. 2005 editiert.]

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