Auto Tool Zero Script X button hoss

Rem VBScript For probing In the x- direction

If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
Code "(Probe plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
Code "G4 P2" 'Pause 1 second to give time to position probe plate

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
Code "F10"

Rem Probe Left

XNew = GetDro(0) - 3 'probe to current position - 3 inches
Code "G31 X" &XNew
While IsMoving() 'wait for prob move to complete
Wend
XNew = GetVar(2000) 'read the touch point

Rem move back To the hit point incase there was an overshoot

Code "G91 G0 Z.500"
Code "G90 G0 X" &XNew
Code "G91 X-.100"


While IsMoving ()
Wend
Call SetDro (0,0.000)
Code "G4 P0.25"

Code "F" &CurrentFeed 'restore original feed rate
End If
Wyszukiwarka

Podobne podstrony:
Auto Tool Zero Script X button hoss
Auto Tool Zero Script Y button hoss
Auto Tool Zero Script center button DRO report
Auto Tool Zero Script OD button DRO report
Auto Tool Zero Script Z axis
original c68 retail diy auto diagnostic tool manual
Demystifying Auto Zero Amps
AUTO TRANS DIAGNOSIS AG4
TD 53x INPA Script

więcej podobnych podstron