@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