mach3_4轴6轴对刀界面

'Rem Probe Down by PEU (Based on Erniebro Work) FeedCurrent = GetOemDRO(818) '读取F值 SafeZ = GetOemDRO(54) '读取安全Z数值 ZCurrent = GetDro(2) Code "G4 P1" 'Pause 1 second to give time to position probe plate Code "F100" 'slow feed rate to 100 MM/MIN GageH = GetOEMDRO (1002) Rem Probe Down by PEU (Based on Erniebro Work) FeedCurrent = GetOemDRO(818) 'Get the current settings ZCurrent = GetOemDro(802) Code "G4 P1" 'Pause 1 second to give time to position probe plate Code "F100" 'slow feed rate to 100 MM/MIN GageH = GetUserDRO(1152) ZNew = ZCurrent - 30 '对刀时，Z最多退30mm Code "G31 Z" &ZNew While IsMoving() Wend Call SetDro (2,GageH) FinalMove = GageH * 2 If SafeZ<FinalMove Then Code "G0 Z" &FinalMove Else Code "G0 Z" &SafeZ '退回到安全z End if Code "F" &FeedCurrent 'restore starting feed rate