Parker Hannifin acr-motion max api users guide Manual Do Utilizador

'Home X Axis

          Ret = AX_HomeAxis (0)

          HomingActiveLblTXT.Caption = " Homing ... " & Axis0Letter

          Sleep (500)

WaitForX: DoEvents

          If Mid (ControlSignals, 2, 1) = 1 Or Mid (ControlSignals, 3, 1) = 1 Then Goto HomeErr 'if Estop exit

           'If X not home yet done yet loop

          If Mid (ControlSignals, 43, 1) = 0 Then Goto WaitForX

(G Code Functions)

Send DLL a G-Code Filename to load in the Motion List

(Integer) 1 on File Load Success, 0 on Failure

Global GCodeFilename as String

Ret = AX_LoadGCodeFile (GCodeFilename) 'send file to DLL

Public Declare Function AX_LoadGCodeFile Lib _

"MotionCore.DLL" (ByVal filename As String) As Integer

Note: If File has Error the Error message System will pick it up to allow you to see what line caused the Error

Extract Current Gcode Line Number being executed in cycle

(Integer) 1 on Success, 0 on Failure

Global gCodeLineNumber As Long

Ret = AX_GetGCodeLineNumber (gCodeLineNumber) 'Get cur Line from DLL

 Public Declare Function AX_GetGCodeLineNumber Lib _

  "MotionCore.DLL" (ByRef gCodeLineNumber As Long) As Integer

(MDI Mode Functions)

Start MDI Mode Signal to DLL

(Integer) 1 on Success, 0 on Failure

None

Call AX_StartMDI: Sleep (100)