Auto tool zero script

[buddace]

Buongiorno per favore qualcuno potrebbe darmi una mano con questo script ?
Il problema è questo: in maniera casuale quando cerca lo 0 invece che andarci piano piano ci va "di corsa" con il conseguente rischio di spaccare la fresa

Codice: Seleziona tutto

CurrentFeed = GetOemDRO(818)
PlateThickness =19.5
ProbeFeed = 100
ZSal = PlateThickness + 5.0


Code "G90 F" &ProbeFeed

If GetOemLed (825)=0 Then
'Code "G4 P5" 'Time to get to the z-plate
Code "G31Z-5 F" &ProbeFeed
While IsMoving()
Wend
Code "G4 P0.25"
ZProbePos = GetVar(2002)
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, PlateThickness)
Code "G4 P0.5" 'Pause for Dro to update.
Code "G0 Z" & ZSal
'Code "G0 Z2.0" 'Change the Z retract height here
Code "(Z axis is now zeroed)"
Code "F" &CurrentFeed
Else
Code "(Z-Plate is grounded, check connection and try again)"
Exit Sub
End If   

[Codvali]

DoSpinStop() 'Fermo Spin
VelocitaOld = GetOemDRO(818) 'Memorizzazione Velocità Attuale
ZRicerca = 30 'Misura Di Ricerca Del Probe
HProbe = 19.53 'Altezza Del Probe
ZRisalita = 25 'Quota Z Dal Pezzo (0) Per Risalita Dopo L'Azzeramento

If GetOemLed (825)=0 Then 'Testa probe
DoOEMButton (1010) 'Azzera Z
Code "G4 P0.5" 'Ritardo
Code "G31 Z-"& ZRicerca & "F50" 'Comando ricerca on corsa massima
While IsMoving() 'Attendi fine ricerca
Wend
Posizione = GetVar(2002) 'Lettura quota di contatto
If Posizione = - ZRicerca Then 'Se la ricerca è arrivata in fondo
Result =MsgBox ("ATTENZIONE PROBE NON TROVATO" , 0 , "*** ERRORE ***" )
Code "G1 Z0 F500" 'Riporta la Z a 0
Code "F" & VelocitaOld 'Reimposta velocità
Exit Sub 'Esce dalla routine
End If

[Codvali]

Code "G31 Z-"& ZRicerca & "F50" 'Comando ricerca on corsa massima

F50 e velocita con quale cerca pezzo di contatto . Nell tuo script nonce