iCAx开思工具箱

标题: 还是查询进给速度 [打印本页]

作者: hchhyl 时间: 2006-7-13 16:42
标题: 还是查询进给速度
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.CAM
Imports NXOpen.CAM.Operation
Imports NXOpen.CAM.OperationCollection

Imports System

Module Module1
Dim theSession As Session = Session.GetSession
Dim theUfsession As UFSession = UFSession.GetUFSession
Dim theCamsession As CAMSession = theSession.CAMSession

Sub Main()
      Dim workPart As Part = theSession.Parts.Work
      Dim displayPart As Part = theSession.Parts.Display


      Dim operation3 As CAM.Operation = CType(workPart.CamSetup.CAMOperationCollection.FindObject("CAVITY_MILL_33"), CAM.Operation)
      Dim feed As Double
   ‘这里的"cut_feedrate"是我写的，函数说明是要求一个parameter index ,这个索引在那里查找呢
      operation3.GetFeedRate("Cut_FEEDRATE", feed)

End Sub

Public Function GetUnloadOption() As Integer
      Return Session.LibraryUnloadOption.Immediately
      ' Session.LibraryUnloadOption.Immediately()
      'Session.LibraryUnloadOption.AtTermination()
      'Session.LibraryUnloadOption.Explicitly()
End Function

End Module

作者: hchhyl 时间: 2006-7-14 02:17
没人回答吗？急啊。

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)