还是查询进给速度

hchhyl

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