Script azzeramento utensile

Sezione dedicata a Mach3
Rispondi
righez
Newbie
Newbie
Messaggi: 9
Iscritto il: martedì 2 ottobre 2012, 13:28
Località: Veneto

Script azzeramento utensile

Messaggio da righez » lunedì 15 ottobre 2012, 13:04

Ciao a tutti,
ho provato vari script per l'azzeramento dell'utensile, uno l'ho trovato anche in questo forum, il mio problema è che tutti gli script provati
durante la discesa dell'asse Z fanno muovere anche gli assi X e Y in contemporanea.
Ho praticamente un movimento sui 3 assi quando invece dobrebbe muoversi solo lo Z.

Sapete dirmi perchè ? Ho qualche configurazione sbagliata su Mach3?

Grazie

torn24
God
God
Messaggi: 5327
Iscritto il: venerdì 1 febbraio 2008, 11:28
Località: Modena

Re: Script azzeramento utensile

Messaggio da torn24 » lunedì 15 ottobre 2012, 15:21

Se si muovono tutti e tre gli assi , è perchè nello script è programmato cosi :badgrin:

cosa intendi per azzeramento utensile ?? la lunghezza utensile ?? come vuoi azzerare l'utensile ??

spiega meglio cosa intendi per azzeramento utensile , in che modo lo vuoi azzerare , e posta uno degli script che hai a disposizione
magari con il link dove lo hai trovato e vediamo di aiutarti se possibile !
CIAO A TUTTI !

righez
Newbie
Newbie
Messaggi: 9
Iscritto il: martedì 2 ottobre 2012, 13:28
Località: Veneto

Re: Script azzeramento utensile

Messaggio da righez » lunedì 15 ottobre 2012, 16:23

Questo è lo scritp che ho provato;

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

righez
Newbie
Newbie
Messaggi: 9
Iscritto il: martedì 2 ottobre 2012, 13:28
Località: Veneto

Re: Script azzeramento utensile

Messaggio da righez » lunedì 15 ottobre 2012, 16:26

Ho realizzato un tastatore meccanico,
collegato all'ingresso Probe.
Il tastatore funziona e mi serve per regolare lo "0" Z del pezzo.
Spesso succede che eseguendo lo script, oltre a muoversi Z si muovono anche X e Y

torn24
God
God
Messaggi: 5327
Iscritto il: venerdì 1 febbraio 2008, 11:28
Località: Modena

Re: Script azzeramento utensile

Messaggio da torn24 » lunedì 15 ottobre 2012, 17:48

Non è che capisca tutte le funzioni dello script , ma sembra che non ci sia nessun comando di movimento degli assi x y
non è che ci sono comandi errati nel programma iso ???
Mi viene in mente di provare lo script , richiamando la funzione M dove lo hai inserito da mdi , senza nessun programma in esecuzione
cosi puoi sapere se devi cercare l'errore da qualche altra parte .
CIAO A TUTTI !

Rispondi

Torna a “Mach3”