' 
' 
'
Option Strict Off
Imports System
Imports NXOpen
Imports System.IO
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports NXOpen.UF
Imports NXOpen.Utilities
Imports NXOpen.UI

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
' ----------------------------------------------
'   Menu: File->Open...
' ----------------------------------------------
Dim basePart1 As BasePart
Dim partLoadStatus1 As PartLoadStatus
basePart1 = theSession.Parts.OpenBaseDisplay("defaultBlend_secCurve.prt", partLoadStatus1)

Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display
Dim UFSes         As UFSession = UFSession.GetUFSession()
Dim UISes         As UI        = UI.GetUI()
partLoadStatus1.Dispose()
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Enter Gateway")

Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Enter Modeling")

' ----------------------------------------------
'   Menu: Information->Object...
' ----------------------------------------------
Dim Path As String = "test.txt"
Dim objs() As NXObject = workPart.Layers.GetAllObjectsOnLayer(15)

theSession.Information.DisplayObjectsDetails(objs)
ufses.Ui.SaveListingWindow(path)

' ----------------------------------------------
'   Menu: File->Close->All Parts
' ----------------------------------------------
theSession.Parts.CloseAll(BasePart.CloseModified.CloseModified, Nothing)

workPart = Nothing
displayPart = Nothing
' ----------------------------------------------
'   Menu: Tools->Journal->Stop Recording
' ----------------------------------------------

End Sub
End Module