ASSE Z E PALPATORE

[quintino]

Buongiorno al Forum, da tempo non usavo la CNC, l'ho rispolverata, per un piccolo lavoretto che vorrei fare, una volta revisionata, calibrato gli assi, provata l'esattezza della geometria, tutto ok. Sono però 2 giorni che sbatto la testa col PALPATORE, che prima mi funzionava bene. Uso uno SCRIPT di MEPHISTO, che trasmetto, e mi succede che: UNA VOLTA CHE L'ASSE Z SCENDE, TOCCALA PIASTRINA, e anzichè risalirescende ancora, però il riquadro dell'asse Z, indica + positivo, chi mi illumina? grazie

DoSpinStop() 'Fermo Spin
VelocitaOld = GetOemDRO(818) 'Memorizzazione Velocità Attuale
ZRicerca = 30 'Misura Di Ricerca Del Probe
HProbe = 10.50 'Altezza Del Probe
ZRisalita = 10 '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

Code "G0 Z" & Posizione 'Ritorno al punto preciso di contatto
While IsMoving () 'Attendi fine movimento
Wend
Call SetDro (2, Hprobe ) 'Forza la Z allo spessore del probe
Code "G4 P0.5" 'Pausa
Code "G1 Z" & ZRisalita & "F500" 'Quota Z di ritorno dallo 0 pezzo
While IsMoving () 'Attendi fine movimento
Wend
Code "(Asse Z Azzerata)" 'Messaggio fine azzeramento
Code "F" & VelocitaOld 'Reimposta velocità


Else
Code "(Segnale a massa !!!)" 'Messaggio errore
Result =MsgBox ("ATTENZIONE PROBE A MASSA" , 0 , "*** ERRORE ***" ) 'PopUp Errore
End If