Script Auto tool Zero for USB MACH3 100Khz breakout board 5 axis

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script for USB MACH3 100Khz breakout board 5 axis

Dim Ztemp, SpeedCoarse, SpeedFine, SpeedRetract, MoveCoarse, MoveFine, RetractCoarse, RetractFine,TouchPlateHeight,Freespec

TouchPlateHeight=49.812         'Probe High  'Change this value to the thickness of your probe plate
SpeedCoarse=200            'Feed rate for a coarse probing
SpeedFine=10         'Feed rate for fine probing
SpeedRetract=200 'retract feed rate
MoveCoarse=-30 'Maximum moving range while probing, the machine will stop if the probe doesn't touch after moving the max range  
MoveFine=-0.8 'Maximum range moving down when doing fine probing
RetractCoarse=0.4 'Retract distance for fine probing
RetractFine=5'After final probing, move the tool to the distance RetractFine from surface of the stock
Freespec = 5
If IsSuchSignal (22) Then

Ztemp=GetOEMDRO(180)+MoveCoarse
code "G31 Z" & Ztemp & " F" & SpeedCoarse
While IsMoving()
Wend
 
Ztemp=GetOEMDRO(180)+RetractCoarse
code "G00 Z" & Ztemp & " F" & SpeedRetract
 
Ztemp=GetOEMDRO(180)+MoveFine
code "G31 Z" & Ztemp & " F" & SpeedFine
While IsMoving()
Wend
 
Call SetDRO(2,TouchPlateHeight)
 
Ztemp=TouchPlateHeight+ Freespec                           'Ztemp=RetractFine
code "G00 Z" & Ztemp & " F" & SpeedRetract
 
responce = MsgBox ("Remove Probe Sensor" )
code "G00 Z" & Ztemp & " F" & SpeedRetract              'code "G00 Z" & Ztemp & " F" & SpeedRetract
 
End If   
                  

หวังว่าจะเป็นประโยชน์สำหรับลูกค้าและผู้ใช้งานทั่วไปครับ

ลองใช้งานกันดูนะครับ ติดขัดตรงไหนแจ้งมาได้ครับผม 

email : aeknarin.electronics@gmail.com