Extract information from imported geometry using NX Open | Working with Solids | Using UFUNC AskFaceData / AskPointContainment / AskFaceUvMinmax

Imports System
Imports System.Collections.Generic
Imports NXOpen
Imports NXOpen.UF

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

Dim theUI As UI = UI.GetUI()
Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim theUFSession As NXOpen.UF.UFSession = NXOpen.UF.UFSession.GetUFSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim displayPart As NXOpen.Part = theSession.Parts.Display

Dim lw As nxopen.listingwindow = theSession.ListingWindow

lw.open()

Dim curves As New list(Of curve)

Dim faceList As System.Collections.Generic.List(Of Face)

faceList = New System.Collections.Generic.List(Of Face)

For Each thebody As body In workpart.bodies()

For Each theface As Face In theBody.GetFaces()

If theface.SolidFaceType = Face.FaceType.Cylindrical Then

Dim type As Integer = Nothing

Dim axispoint(2) As Double

Dim axisDir(2) As Double

Dim faceBox(5) As Double

Dim radius As Double = Nothing

Dim radiusdata As Double = Nothing

Dim normdirection As Integer = Nothing

theUFSession.Modl.AskFaceData(theface.Tag, type, axispoint, axisDir, faceBox, radius, radiusdata, normdirection)

Dim pointstatus As Integer = Nothing

theUFSession.Modl.AskPointContainment(axispoint, theBody.Tag, pointstatus)

Dim chk(3) As Double

theUFSession.Modl.AskFaceUvMinmax(theface.Tag, chk)

If pointstatus = 2 And (chk(0) = 0.0) And (chk(1) = Math.PI * 2) Then

faceList.Add(theface)

lw.writeline("Name: " & theface.name & " Radius: " & radius)

End If

End If

Next

Next

End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image immediately after execution within NX
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
'-------------------------------

End Function
End Module