Sample NX Open .NET Visual Basic program : report part name in nxmanager or native mode
Note: GTAC provides programming examples for illustration only, and assumes that you are familiar 
with the programming language being demonstrated and the tools used to create and debug procedures. 
GTAC support professionals can help explain the functionality of a particular procedure, but we 
will not modify these examples to provide added functionality or construct procedures to meet your specific needs.


Option Strict Off

Imports NXOpen
Imports NXOpen.UF
Imports System

Module report_part_name_in_nxmanager_or_native_mode

   Dim s As Session = Session.GetSession()
   Dim ufs As UFSession = UFSession.GetUFSession()
   Dim lw As ListingWindow = s.ListingWindow

   Sub Main()

      Dim managerActive As Boolean

      ufs.UF.IsUgmanagerActive(managerActive)

      lw.Open()

      lw.WriteLine("NX Manager Active: " + managerActive.ToString())

      Dim partName As String = ""
      ufs.Part.AskPartName(s.Parts.Display.Tag, partName)

      If managerActive = False Then

         lw.WriteLine("Native Part Name: " & partName)

      End If

      If managerActive = True Then

         lw.WriteLine("NXManager Part Name: " & partName)

         Dim partNumber As String = ""
         Dim partRevision As String = ""
         Dim partFileType As String = ""
         Dim partFileName As String = ""

         ufs.Ugmgr.DecodePartFileName(partName, partNumber, _
                                      partRevision, partFileType, _
                                      partFileName)

         lw.WriteLine("Part Number " & partNumber)
         lw.WriteLine("Part Revision " & partRevision)
         lw.WriteLine("Part File Type " & partFileType)
         lw.WriteLine("Part File Name " & partFileName)


      End If

   End Sub

   Public Function GetUnloadOption(ByVal dummy As String) As Integer

      Return Session.LibraryUnloadOption.Immediately

   End Function

End Module