程序模拟传输软件 CIMCO Edit V7 中文版 下载

ph19900929

谢谢楼主

1013570360

好东西，一定要顶顶顶

jg123

' 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

dream_M

{:soso_e179:}

cqzengsir

CIMCO Edit

ljm18881815610

谢谢楼主，现在试一下

BAOZEMAO

是破解版吗

焦作青春

看个贴也这么麻烦

大q123

1234658外

zp359288972

566