Code:
Option Strict OffImports System
Imports System.IO
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities
Module export_all_bodies_to_parasolid
Dim S As Session = Session.GetSession()
Dim UFS As UFSession = UFSession.GetUFSession()
Sub Main()
Dim inx As Integer = 0
Dim dispPart As Part = S.Parts.Display
Dim n As String = vbCrLf
Dim bodies As BodyCollection = dispPart.Bodies
Dim bodyCount As Integer = bodies.ToArray.Length
Dim tagList(bodyCount - 1) As NXOpen.Tag
Do
tagList(inx) = dispPart.Bodies.ToArray(inx).Tag
inx = inx + 1
Loop Until inx = bodyCount
Dim fileName1, fileName2 As String
fileName1 = S.Parts.Display.FullPath
fileName2 = Path.GetDirectoryName(fileName1) + "\" + Path.GetFileNameWithoutExtension(fileName1) + ".x_t"
UFS.Ps.ExportData(tagList, fileName2)
UFS.Ui.SetStatus("Exported solids to Parasolid file: " & fileName2)
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY
End Function
End Module