AbsReadout (0).Caption = Format(((EncoderArray(0) * Val(Resolution0)) - WorkOffsetsArray(0)), "00.0000") AbsReadout(1).Caption = Format(((EncoderArray(1) * Val(Resolution1)) - WorkOffsetsArray(1)), "00.0000") AbsReadout(2).Caption = Format(((EncoderArray(2) * Val(Resolution2)) –
WorkOffsetsArray(2) - CurLength), "00.0000")
AbsReadout(3).Caption = Format(((EncoderArray(3) * Val(Resolution3)) - WorkOffsetsArray(3)), "000.000") End sub
Declaration: Public Declare Function AX_GetEncoderCounts Lib "MotionCore.DLL" _ (ByRef EncoderArray as Long) As Integer
AX_GetDistanceToGoCoordinates
Description Extract Distance to Go information from DLL in array
Returns (Integer) 1 on Success, 0 on Failure
Arguments Global DTGArray (0 To 8) As Long
VB Example: Ret = AX_GetDistanceToGoCoordinates (DTGArray(0))
Declaration: Public Declare Function AX_GetDistanceToGoCoordinates Lib _ "MotionCore.DLL" (ByRef lDTGArray As Long) As Integer
AX_GetAxisVelocity
Description Extract Master velocity from DLL
Returns (Integer) 1 on Success, 0 on Failure
Arguments Global MasterVel (0 To 8) As Double
VB Example: |
|
Ret = AX_GetAxisVelocity(mastervel(0)) | 'Get Master velocity |
‘ Display Current Profile Feedrate |
|
FeedsReadout (3). Caption = Format (mastervel (0), "0000.00")
Declaration: Public Declare Function AX_GetAxisVelocity Lib _ "MotionCore.DLL" (ByRef DMasterVel as Double) As Integer
(Bit Functions)
AX_BitOn
Description Turns on any bit except the Inputs
Returns (Integer) 1 on Success, 0 on Failure
Arguments Global BitNum as Integer
VB Example: Call Ax_BitOn (512) ‘set Kill Moves to Card
Declaration: Public Declare Function AX_BitOn Lib _ "MotionCore.DLL" (ByVal BitNum as Integer) As Integer
10 - API Command Descriptions | API Users Guide |