CurrentFeed = GetOemDRO(818) 'Salva o feedrate atual para retornar ao final
PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO

StopZmove = 0
If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zera o DRO do eixo Z e começa a descer o eixo
Code "G4 P2" ' 2 segundos de espera
Code "G31 Z-100 F100" 'Z vai baixar até o limite de -5.0 
While IsMoving() 'espera enquanto acontece
Wend
ZProbePos = GetVar(2002) 'pega o exato ponto aonde zera o Z
Code "G0 Z0" &ZProbePos 'retorna ao ponto 0, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2,0) 'insere na DRO do eixo Z o valor determinado que é 7.5
Code "G4 P0.25" 'Pausa para atualizar DRO.
Code "G0 Z10.000" 'retrai Z para +20.0
Code "(Z axis está com a altura de 30 MM )" 'retorna esta mensagem para o statusbar
Code "F" &CurrentFeed 'Retorna para o valor anterior do feedrate
Else
Code "(O Sensor já está em contato com o terra, verificar possível curto)" 'retorna esta mensagem para o statusbar
Exit Sub
End If