' NX 10.0.3.5
' Journal created by merkerm on Thu Oct 27 13:13:59 2016 Mitteleuropäische Sommerzeit
'
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module NXJournal
Sub Main (ByVal args() As String) 
Dim importverz As String
Dim logverz As String

'ANPASSUNGEN
importverz="...." !Hier steht der Importpfad
logverz="......" !Hier steht der logfile

    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim gufs As UFSession = UFSession.GetUFSession()
theSession.LogFile.WriteLine("***START***")

        Dim strSNR, strAEBU As String
        Dim strPath, strFile As String
        Dim NX_SNR, NX_AEBU As String
        
        Dim file As System.IO.StreamWriter

        strPath = importverz
        strFile = Dir(strPath & "*.x_t")     
theSession.LogFile.WriteLine(strFile & "-1")
 
        Do Until strFile = ""
        NX_SNR = Left(strFile, 8)
        NX_AEBU = Left(Right(strFile, 5), 1)
            
' ----------------------------------------------
'  Menü: Datei->Öffnen...
' ----------------------------------------------
try
   theSession.Parts.SetNonmasterSeedPartData("@DB/" & NX_SNR & "/" & NX_AEBU)
catch ex as Exception
   UI.getUI().NXMessageBox.Show("Fehler", NXMessageBox.DialogType.Error, NX_SNR & "/" & NX_AEBU & " existiert nicht in Datenbank")
   file = My.Computer.FileSystem.OpenTextFileWriter(logverz & "log-alvo-error.txt", True)
   file.WriteLine(strFile)
   file.Close()
   Goto nextfile 
end try

Dim basePart1 As NXOpen.BasePart
Dim partLoadStatus1 As NXOpen.PartLoadStatus
basePart1 = theSession.Parts.OpenBaseDisplay("@DB/" & NX_SNR & "/" & NX_AEBU, partLoadStatus1)

Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim displayPart As NXOpen.Part = theSession.Parts.Display

partLoadStatus1.Dispose()
' ----------------------------------------------
'  Menü: Anwendung->Konstruktion...
' ----------------------------------------------
theSession.ApplicationSwitchImmediate("UG_APP_MODELING")

' ----------------------------------------------
'  Menü: Bearbeiten->Löschen...
' ----------------------------------------------
Dim notifyOnDelete1 As Boolean
notifyOnDelete1 = theSession.Preferences.Modeling.NotifyOnDelete

' ----------------------------------------------
'  Menü: Datei->Importieren->Parasolid...
' ----------------------------------------------
Dim importer1 As NXOpen.Importer
importer1 = workPart.ImportManager.CreateParasolidImporter()
importer1.FileName = importverz & strFile

Dim nXObject1 As NXOpen.NXObject
nXObject1 = importer1.Commit()

importer1.Destroy()

' ----------------------------------------------
'  Menü: Datei->Schließen->Speichern und schließen
' ----------------------------------------------
Dim partSaveStatus2 As NXOpen.PartSaveStatus
partSaveStatus2 = workPart.Save(NXOpen.BasePart.SaveComponents.True, NXOpen.BasePart.CloseAfterSave.True)

workPart = Nothing
displayPart = Nothing
partSaveStatus2.Dispose()

file = My.Computer.FileSystem.OpenTextFileWriter(logverz & "log-import.txt", True)
file.WriteLine(strFile)
file.Close()

nextfile:
strFile = Dir()
Loop
MsgBox ("Ich habe fertig!")
End Sub
End Module