Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities

Public Class NXJournal
Shared theSession As Session = Session.GetSession()
Shared theUFSession As UFSession = UFSession.GetUFSession()
Shared workPart As Part = theSession.Parts.Work

Private Shared Sub DoIt()
Dim markId1 As NXOpen.Session.UndoMarkId = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "")

Dim pl_tags() As Tag = Nothing
Dim n_pls As Integer = Nothing
theUFSession.Plist.AskTags(pl_tags, n_pls)
Dim PartsList As DisplayableObject = DirectCast(NXObjectManager.Get(pl_tags(0)), DisplayableObject)

If PartsList.Layer = 0 Then
Dim tab_name As String = "C:\temp\xy.prt"
Dim pattern_tag As NXOpen.Tag
Dim group As Tag
Dim tabular_note_section As NXOpen.Tag
Dim tabular_note As NXOpen.Tag
Dim ufs As UFSession = UFSession.GetUFSession()
Dim myTag As NXOpen.Tag
Dim origin() As Double = {300, 100}
ufs.Plist.CreateFromTemplate(tab_name, origin, myTag) 'Create Parts List from Template
Dim my_plist As NXOpen.Tag = NXOpen.Tag.Null
Dim dispPartTag As NXOpen.Tag = theSession.Parts.Display.Tag
Dim traversalSettings1 As NXOpen.UF.UFPlist.TraversalSettings
traversalSettings1.master_model = True
traversalSettings1.top_level_only = True
ufs.Plist.SetTraversalSettings(myTag, traversalSettings1)
End If

End Sub

Public Shared Sub Main(ByVal args As String())
Dim workPart As Part = theSession.Parts.Work

If workPart IsNot Nothing Then
DoIt()
Return
End If

End Sub


Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
Return Session.LibraryUnloadOption.Immediately
End Function
End Class