---

Hab schon wieder ein Problem das ich was messen möchte.
Ich brauch den Winkel z.b 6Grad um damit in VB weiterzurechnen.

Wäre über jede Hilfe sehr dankbar... komme nicht mehr weiter 

' NX 4.0.4.2
Option Strict Off
Imports System
Imports NXOpen
Module Winkel
    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim lw As ListingWindow = theSession.ListingWindow
        Dim nullUnit As Unit = Nothing

        Dim Point1 As Point3d = New Point3d(0, 0, 0)
        Dim Point2 As Point3d = New Point3d(0, 2000, 0)

        Dim linewcs1 As Line
        linewcs1 = workPart.Curves.CreateLine(Point1, Point2)

        Dim Point3 As Point3d = New Point3d(100, 2000, 0)

        Dim linewcs2 As Line
        linewcs2 = workPart.Curves.CreateLine(Point1, Point3)

        Dim measureAngle1 As MeasureAngle
        measureAngle1 = workPart.MeasureManager.NewAngle(nullUnit, linewcs1, MeasureManager.EndpointType.StartPoint, linewcs2, MeasureManager.EndpointType.EndPoint, True)

        measureAngle1.Information()    'geht

        lw.WriteLine(?)                'geht nicht, brauch den Wert um in VB damit weiterzuarbeiten

    End Sub
End Module

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

---

Verstehe das Problem hier irgendwie nicht...?!

Code:

---

lw.Open()
lw.WriteLine(measureAngle1.Value.ToString()) 'geht hervorragend

---

Die Antwort erscheint mir aber schon zu trivial    
Also entweder fehlt Dir jeglicher Spürsinn für die Doku oder ich habe die Frage falsch verstanden.

   

[Diese Nachricht wurde von Overcast am 08. Okt. 2008 editiert.]

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

---

@Overcast
doch sowas meinte ich, danke

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