---

Hallo,

die Funktion "Analyse-->Lokaler Radius" berechnet den minimalen und maximalen Radius an einem Punkt. Über die Journalauzeichnung kann ich die Funktion auch über mein VB-Programm aufrufen. Bis hier funktioniert alles.

MEINE FRAGE: Wie kann ich die Werte "minimaler/maximaler Radius" auslesen und an Variablen in meinem VB-Programm übergeben?

Vielen Dank für die Hilfe.

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

---

Hallo Johannes,

dritte Frage und noch keine Antwort ? Liegt evtl. daran, daß Du anfangs SNAP verwendet hast, was relativ neu und m.E. nicht weit verbreitet ist. Da Du inzwischen beim "normalen" Journal angekommen bist, sollte alles kein Problem sein, sofern Du die richtigen Voraussetzungen, z.B. VB oder C# (Grund-) Kenntnisse und eine passende Entwicklerumgebung hast. Die verrät Dir dann auch die ganzen Details.

Gruß, Michael

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

---

Hallo mseufert,

ich habe genau das gleiche Problem. Bei mir werden im VB-Code keine Variablen mit den Werten für RMax und RMin angezeigt und ich weiß nicht, wie ich diese Werte an Variablen vergeben kann, damit ich mit diesen weiter arbeiten kann.
ich arbeite mit Visual Studio 2012 Express und NX9.
Hatte jemand eine Lösung oder gibt es dafür noch eine andere Funktion?

Gruß Matthias

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

---

@Johannes

falls du immer noch auf der Suche bist, ich habe eine Lösung gefunden, hierbei musst du noch die Auswahl deiner Fläche ergänzen und den richtigen Punkt eintragen:

Option Strict Off
Imports System
Imports NXOpen
Imports System.Windows.Forms

Module NXJournal
    Sub Main(ByVal args() As String)

        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim displayPart As Part = theSession.Parts.Display

        Dim geometricProperties1 As GeometricAnalysis.GeometricProperties
        geometricProperties1 = workPart.AnalysisManager.CreateGeometricPropertiesObject()
        geometricProperties1.OutputMethod = GeometricAnalysis.GeometricProperties.OutputType.Static

        Dim myFace As GeometricAnalysis.GeometricProperties.Face = Nothing
        Dim abspoint1 As Point3d = New Point3d(-758.48783689139, -537.956083994279, 163.667799476164)  'Dein Punkt auf der Fläche
        Dim status1 As GeometricAnalysis.GeometricProperties.Status

        geometricProperties1.GetFaceProperties(face1, abspoint1, myFace)  ' als face1 musst du die ausgewählte Fläche eintragen

        Dim RMin As Double
        Dim RMax As Double

        RMin = MyFace.InvOfMinRadiusOfCurvature      'Radien sind invertiert -->  1/R
        RMax = MyFace.InvOfMaxRadiusOfCurvature

        MessageBox.Show("RMin: " & 1 / RMin & vbcrlf & "RMax: " & 1 / RMax)

    End Sub
End Module

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