Option Strict Off
Imports System
Imports NXOpen

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

    Dim theSession As Session = Session.GetSession()
    Dim workPart As Part = theSession.Parts.Work

    For Each f As Features.Feature in workPart.Features
      f.ShowDimensions()
    Next

End Sub
End Module