Code:
' NX 7.5.3.3
' Journal created by Daylight Time
'
Option Strict Off
Imports System
Imports NXOpenModule NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
' ----------------------------------------------
' Menu: Assemblies->Arrangements...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Edit Assembly Arrangements")
Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Set Assembly Arrangement")
Dim arrangement1 As Assemblies.Arrangement = CType(workPart.ComponentAssembly.Arrangements.FindObject("Arrangement OBEN"), Assemblies.Arrangement)
workPart.ComponentAssembly.RootComponent.SetUsedArrangement(arrangement1)
theSession.DeleteUndoMark(markId2, Nothing)
' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
End Sub
End Module