VB.NET 访问进给速度

hchhyl

Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UF.UFParam
Imports System
Imports System.Windows.Forms
Imports System.Data
Imports System.Runtime.InteropServices


Module Module1
    Dim theUFsession As UFSession
    Dim theSession As Session

    Public Enum feed_unit
        UF_PARAM_feed_none = 0
        UF_PARAM_feed_per_minute = 1
        UF_PARAM_feed_per_revolution = 2
    End Enum

    Public Structure Feedrate
        Dim unit As feed_unit
        Dim value As Double
        Dim color As Integer
    End Structure

sub main()
        theSession = Session.GetSession()
        theUFsession = UFSession.GetUFSession()

        Dim Param As UFParam = theUFsession.Param

        Dim intptr_1 As System.IntPtr
        Dim Feedrate_Cut As Feedrate = New Feedrate
        With Feedrate_Cut
            .unit = feed_unit.UF_PARAM_feed_none
            .color = 123
            .value = 10
        End With

        'Operate是已知的nxopen.tag,这里不讲它怎么来的
       '但是下面这个查询进给速度的命令,总是对intptr_1的操作错了，谁能解答啊
        Param.AskSubobjPtrValue(Operate, 17, intptr_1)

end sub

昆山人

cam-yp

hchhyl