' NX 3.0.4.2 ' Journal created by sschneider on Mon Aug 27 09:54:46 2007 WesteuropOption Strict Off Imports System Imports NXOpen Module NXJournal Sub Main Dim theSession As Session = Session.GetSession() ' ---------------------------------------------- ' Menu: File->Open... ' ---------------------------------------------- Dim part1 As Part Dim partLoadStatus1 As PartLoadStatus part1 = theSession.Parts.OpenDisplay("%UGMGR=V3.2 PH=QXKZcPG_wqIpOC PN=0.760.34.677.00 PRN=A AN=Z1 AT=""UG part file"" RT=""has specification"" AUID=AOOZcfSnwqIpOC ", partLoadStatus1) partLoadStatus1.Dispose() ' ---------------------------------------------- ' Menu: Tools->Journal->Stop ' ---------------------------------------------- End Sub End Module