Problems with auto tool zero

[Mephysto]

Hi there,
I'm using this script:
Zmove = 10 'amount the tool will move down to hit the probe
Zpos = GetDRO(2)
Tool = GetDRO (24)
ZOffset = 33.32 'enter height of probe here

OldZpos = Zpos
ZPos = Zpos - ZMove
Code "G31 Z" & ZPos & " F40.0"
While IsMoving()
Wend
Zpos = GetVar (2002)
If Zpos = OldZpos - ZMove Then
responce = MsgBox ("ERROR! The tool did not hit the probe and DRO was not set" , 4 , "Probe ERROR!" )
Else
SetDRO (2,ZOffset)
End If

Code "G00 G53 Z-.1"

couple of times, after touching the probe, Z proceedes downward instead of upward causing "injuries" to the blade. Why does it happen?? Where is the the mistake? Help me please...

[BobMorside]

I'm guessing its the G53 that is causing you problems.
Since it is referencing machine coordinates while your DRO's are showing whatever coordinate system you are using when the routine started

[Mephysto]

So how can I change this script in order not to be scare every time I want to zero my tool?

[Shinosky]

I can't explain why the machine continues down after the G53 but try adding a pause statement after the SetDRO command.
The machine is executing the rapid move before the DRO is fully updated.
Try something like this..

Code "G4 P0.25" 'Pause for Dro to update

The P0.25 is a 1/4 second pause

Here is a complete script that others are using with much success.
Of course you would need to change some of the values to suit your needs.

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO

If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Code "G4 P2" ' this delay gives me time to get from computer to hold probe in place
Code "G31Z-20 F100" 'probing move, can set the feed rate here as well as how far to move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
Code "G0 Z20" 'put the Z retract height you want here
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "F" &CurrentFeed 'Returns to prior feed rate
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if applicable
Exit Sub
End If