Batch convert JT to UG Part from folder

Do you have any control over how the JT files are created? It seems that when exporting JT files from NX, there are a few different options on how to organize the JT files. The "as a single file" option seems to be the one you want. The other options may create individual files for the components. If a component is used multiple times in the assmebly, you may end up with multiple parts.

The following code will check to see if a part with the same name already exists before doing the "save-as", but the resulting assembly may not be what you want.

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

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

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

Dim FolderBrowserDialog1 As New FolderBrowserDialog
FolderBrowserDialog1.ShowDialog()

Dim path As String = FolderBrowserDialog1.SelectedPath().ToString()
Dim files() As String = Directory.GetFiles(path, "*.jt", SearchOption.TopDirectoryOnly)

For Each file As String In files
Dim basePart1 As NXOpen.BasePart
Dim partLoadStatus1 As NXOpen.PartLoadStatus
basePart1 = theSession.Parts.OpenBaseDisplay(file, partLoadStatus1)
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim displayPart As NXOpen.Part = theSession.Parts.Display
partLoadStatus1.Dispose()
Dim newFileName As String = file.Replace(".jt", ".prt")

If System.IO.File.Exists(newFileName) Then
Continue For
End If

Dim partSaveStatus1 As NXOpen.PartSaveStatus
partSaveStatus1 = workPart.SaveAs(file.Replace(".jt", ".prt"))
partSaveStatus1.Dispose()

theSession.Parts.CloseAll(NXOpen.BasePart.CloseModified.CloseModified, Nothing)
workPart = Nothing
displayPart = Nothing

Next

End Sub
End Module