Code:
' NX 4.0.3.3
'
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.ufModule NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim _ufs As UFSession = UFSession.GetUFSession()
_ufs.Abort.DisableAbort()
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Edit Properties")
dim B as string = workPart.GetStringAttribute("DB_PART_NAME")
B=InputBox("Bitte Benennung (DB_PART_Name) eingeben", "Eingabe", B)
if len(B)>30 then
msgbox("Benennung zu lang")
exit sub
end if
workPart.SetAttribute("DB_PART_NAME", B)
End Sub
End Module