' Ausgabe der DB_PART_NO des Aktiven Parts in den Windows Zwischenspeicher (Clipboard)
' Tested in NX10.0.3


Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main

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

' ----- das ist der filename ohne endung

Dim filename As String = workPart.GetStringAttribute("DB_PART_NO")

'System.Windows.Forms.MessageBox.Show(filename)

'Clipboard

My.Computer.Clipboard.SetText(filename)




End Sub
End Module