---

Hallo,

hat jemand ne Ahnung, wie die den Radius von SurfaceOfRevolution und Cylindrical auslesen kann?

Wenn man eine Fläche auswählt und Informationen-->Objekt.. klickt, wird der Radius im ListingWindow ausgegeben.

Code:

---

Imports System
Imports NXOpen

Module Module1
    Dim theSession As NXOpen.Session = Session.GetSession()

    Sub Main()
        Ausgabe(Now)
        Dim workPart As Part = theSession.Parts.Work
        'Flächen im workPart
        For Each aktBody As Body In workPart.Bodies
            Ausgabe(aktBody.JournalIdentifier & " - " & aktBody.GetFaces.Length)
            For Each aktFace As Face In aktBody.GetFaces
                Ausgabe(aktFace.SolidFaceType.ToString)
                aktFace.Unhighlight()
                Select Case aktFace.SolidFaceType
                    Case Face.FaceType.SurfaceOfRevolution, Face.FaceType.Cylindrical
                        aktFace.Highlight()
                End Select
            Next
        Next
    End Sub

    Sub Ausgabe(ByVal sText As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(sText)
    End Sub
End Module

---

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

---

Hallo,

für Cylindrical habe ich es hinbekommen. Aber wie bekomme ich den Radius von SurfaceOfRevolution?

Code:

---

Imports System
Imports NXOpen

Module Module1
    Dim theSession As NXOpen.Session = Session.GetSession()

    Sub Main()
        Ausgabe(Now)
        Dim workPart As Part = theSession.Parts.Work
        For Each aktAttribut As NXObject.AttributeInformation In workPart.GetAttributeTitlesByType(NXObject.AttributeType.Any)
            Ausgabe(aktAttribut.ToString)
        Next
        'Flächen im workPart
        For Each aktBody As Body In workPart.Bodies
            Ausgabe(aktBody.JournalIdentifier & " - " & aktBody.GetFaces.Length)
            For Each aktFace As Face In aktBody.GetFaces
                aktFace.Unhighlight()
                Select Case aktFace.SolidFaceType
                    Case Face.FaceType.Cylindrical
                        Dim mr As MeasureDistance = workPart.MeasureManager.NewDistance(Nothing, aktFace)
                        Ausgabe(mr.Value)
                        'aktFace.Highlight()
                    Case Face.FaceType.SurfaceOfRevolution
                End Select
            Next
        Next
    End Sub

    Sub Ausgabe(ByVal sText As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(sText)
    End Sub
End Module

---

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

---

Hallo met,

Was ist denn der Radius von einer SurfaceOfRevolution?

Im Sinne des Radius einer Cylindrical Face wie ihn Dein Programm ermittelt, hat eine SurfaceOfRevolution unendlich viele Radien.

Viele Grüße
Jan

------------------
Jan Böttcher
www.ib-boettcher.de

[Diese Nachricht wurde von Jan Boettcher am 17. Mrz. 2011 editiert.]

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

---

Hallo,
hier ein Auszug aus Info.
Ich hätte gerne den Innenradius

Code:

---

Informationen über Objekt # 1

Besitzendes Teil    D:\EXPORT_NX\P20046XXYY_V-01.00.prt
Layer                1
Typ                  Fläche
Farbe [von Körper]  87 (Hellgrau)
Font                SOLID
Breite              Normal
Geänderte Version    198  11 Nov 2010 11:44 (durch Anwender rogner)
Erzeugte Version    166  17 Feb 2010 18:55 (durch Anwender rogner)
Inform.-Einheit    mm
Flächentyp          Torusförmig

Mitte                XC =  371.982392380          X =  371.982392380     
                    YC =  815.845012523          Y =  815.845012523     
                    ZC =    5.000000000          Z =    5.000000000     

Achse - Absolut      I  =    0.000000000     
                    J  =    0.000000000     
                    K  =    1.000000000     

Achse - WCS          I  =    0.000000000     
                    J  =    0.000000000     
                    K  =    1.000000000     

Hauptradius          =    463.394052068
Innenradius          =      5.000000000

---

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

---

Met,

Du hast hier einen TORUS am Wickel, keine SurfaceOfRevolution.  Die hat, wie Dir Jan schon versucht hat klarzumachen, keinen eideutigen Radius.

Da es den Radius also geometrisch nicht gibt, kann Über die API auch keiner ausgelesen werden.

Mögliche Alternative: Über Geometric Properties die Hauptkrümmungen an einer bestimmten Stelle der Fläche abfragen.

Gruß, Michael

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