|
发表于 2015-9-26 18:57:24
|
显示全部楼层
' NX 10.0.1.4
' Journal created by maysen on Sat Sep 26 18:12:03 2015 中国标准时间
'
Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main (ByVal args() As String)
Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim displayPart As NXOpen.Part = theSession.Parts.Display
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Edit MILL10")
Dim markId2 As NXOpen.Session.UndoMarkId
markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Start")
Dim theUI As UI = UI.GetUI()
Dim millToolBuilder1 As NXOpen.CAM.MillToolBuilder
millToolBuilder1 = workPart.CAMSetup.CAMGroupCollection.CreateMillToolBuilder(CType(theUI.SelectionManager.GetSelectedObject(0), NXOpen.CAM.Tool))
theSession.SetUndoMarkName(markId2, "Milling Tool-5 Parameters Dialog")
Dim markId3 As NXOpen.Session.UndoMarkId
markId3 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Milling Tool-5 Parameters")
millToolBuilder1.TlFluteLnBuilder.Value = 11.234
theSession.DeleteUndoMark(markId3, Nothing)
Dim markId4 As NXOpen.Session.UndoMarkId
markId4 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Milling Tool-5 Parameters")
Dim nXObject1 As NXOpen.NXObject
nXObject1 = millToolBuilder1.Commit()
theSession.DeleteUndoMark(markId4, Nothing)
theSession.SetUndoMarkName(markId2, "Milling Tool-5 Parameters")
millToolBuilder1.Destroy()
theSession.DeleteUndoMark(markId2, Nothing)
' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
End Sub
End Module |
|