Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Drawings

Module NXJournal
Sub Main

'Set up basic session variables
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim theUI As UI = UI.GetUI()
Dim LW As ListingWindow

'Print the part name and drawing size to the listing window

Try

  LW = theSession.ListingWindow
  LW.Open()
  LW.WriteLine("Work part location: " & workPart.FullPath)
  LW.WriteLine("Work part name: " & workPart.Leaf)

  Dim drawingSheet As DrawingSheet 
  drawingSheet = workPart.DrawingSheets().CurrentDrawingSheet

  Dim height As Double = drawingSheet.Height
  Dim width As Double = drawingSheet.Length
  Dim dwgName As String = drawingSheet.Name

  LW.WriteLine("Drawing Name: " & dwgName)
  LW.WriteLine("Drawing height is: " & height)
  LW.WriteLine("Drawing width is: " & width)

Catch e As Exception
  LW.WriteLine("Error running application: " & e.Message)
End Try

End Sub
End Module