Impossibile Configuazione Probe e EndStopo in Mach3 2.0

[Dodo66]

Ciao riprendo a cercare i settaggi giusti
grazie alle dritte che mi hai dato sui pin e la chiusura a massa del pin il probe e lo stop funzionano
ma come ti dicevo il probe trova la sonda si blocca e non risale lasciando bloccato Mach3 per resettare devo scollegare la sonda. lo scritto che uso è questo dalla rete:

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

inoltre se faccio lo zero pezzo va sullo zero della sonda non sul piano di lavoro in sintesi non funziona come un Probe ma come un limite swich
boh??????

[jjdege]

ciao, scusa non è che hai tradotto lo script e e ci sono alcune cose in italiano e non le legge?
ti ho reinserito le diciture in inglese scopiazzate dal mio che funziona, hai comunque dei parametri da cambiare credo, tipo l'altezza del tuo probe e la corsa Z per la ricerca del probe se non che la posizione di ricerca e di ritorno, io ho il mio funzionante ma prima vedi se riesci ad aggiustare il tuo e ti fai le ossa
P.S. fai le prove in sicurezza mi raccomando, sempre pronto a staccare la spina!!!

[jjdege]

DoSpinStop() 'Fermo Spin
VelocitaOld = GetOemDRO(818) 'Memorizzazione Velocità Attuale
ZMove = 30 'Misura Di Ricerca Del Probe
ZOffset = 20.00 'Altezza Del Probe
StopZmove = 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
Probepos = GetVar(2002) 'Lettura quota di contatto
If Probepos = - 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

[Dodo66]

Ok grazie appena posso iniziò a provare e a mettere mano al code
Ti aggiorno

[Dodo66]

Sto studiando il codice tuo ho trovato un errore alla riga 14
ho dovuto mettere il segno - davanti alla Z tra apicini altrimenti non veniva associato alla Z dandole un valore negativo.
così
If Posizione = "-"& ZRicerca Then 'Se la ricerca è arrivata in fondo...

ma ancora si comporta allo stesso modo trova il probe e si ferma ...ora sono stanco mi fermo riprendo domani

[jjdege]

ciao, guarda che non è il mio codice, è il tuo, ho solo sostituito in inglese alcune parole che erano in italiano, prova questo è sempre il tuo con qualche modifica

DoSpinStop() 'Fermo Spin
VelocitaOld = GetOemDRO(818) 'Memorizzazione Velocità Attuale
ZMove = 30 'Misura Di Ricerca Del Probe
ZOffset = 20.00 'Altezza Del Probe
StopZmove = 10 'Quota Z Dal Pezzo (0) Per Risalita Dopo L'Azzeramento
If GetOemLed (825)=0 Then 'Testa probe
DoOEMButton (1010) 'Azzera Z
Code "G53 X10 Y10 F800"
Code "G53 Z-40 F800"
Code "G4 P0.5" 'Ritardo
Code "G31 Z-"& ZMove & "F50" 'Comando ricerca on corsa massima
While IsMoving() 'Attendi fine ricerca
Sleep(200)
Wend
Probepos = GetVar(2002) 'Lettura quota di contatto
If Probepos = - ZMove Then 'Se la ricerca è arrivata in fondo
Result =MsgBox ("ATTENZIONE PROBE NON TROVATO" , 0 , "*** ERRORE ***" )
Code "G1 Z0 F500" 'Riporta la Z a 0
StopZmove = 1
Code "F" &CurrentFeed 'Reimposta velocità
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos 'Ritorno al punto preciso di contatto
While IsMoving () 'Attendi fine movimento
Sleep (200)
Wend
Call SetDro (2, ZOffset ) 'Forza la Z allo spessore del probe
Code "G4 P0.5" 'Pausa
Code "G53 Z0 F800"
Code "G53 X0 Y0 F800"
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

c'è la posizione di ricerca del probe con velocità e la posizione di ritorno che puoi modificare a tua esigenza, devi pero inserire la distanza di ricerca che è la corsa del tuo asse Z più o meno a seconda dell'utensile, e l'altezza del probe hai in modo che mach l'aggiunge alla corsa che fa

[jjdege]

scusa sono Zmove che adesso è a 20 e Zoffset adesso a 30

[hellfire39]

Piccolo consiglio: se utilizzate il tag code per inserire il codice, ne rendete più agevole la lettura.
È anche più facile ottenere suggerimenti!

[jjdege]

scusa Dodo, ma davo per scontato il mio "modo di operare" cosi com'è lo script ti fa fare il probe in un punto fisso, mentre forse tu vuoi farlo sul pezzo spostandoti manualmente o sbaglio?
se è così prova a inibire con cancelletto o cancella la riga 8/9/10,
sempre se lo script è valido...

[Dodo66]

Ciao oggi ho cercato e provato varie soluzioni:
L'aggiunta del punto preciso dove cercare il probe per ora l'ho saltato facendo in un punto preso manualmente vorrei prima risolvere il problema del ritorno al valore di
ZSal = ZOffset + 10.00
il mio Offset e di 20.00
ho aggiunto +10.00 quindi deve risalire di 30.00 mm.
Ma ovviamente ciò non accade.
ho trovato un script molto scarno che ti posto e che si comporta allo stesso modo degli altri

...
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 30.0
ZOffset = 20.00
ZSal = ZOffset + 10.00
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If
Exit Sub

Il Probe l'ho impostato alla porta 3 e al Pin 2 e Active Low è spuntato
quando la punta tocca la sonda nello Status esce il messaggio
Limit Switch Triggered...
qualcosa non torna...

[Dodo66]

Questo accade nella diagnostica quando la punta tocca il Probe

[jjdege]

ciao, lo script è identico al mio che funzionava, l'unica cosa che io non ho è quel Zsal
te lo posto

CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 130.0
ZOffset = 36.8
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G53 X70 Y60 F800"
Code "G53 Z-40 F800"
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F200"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G53 Z0 F800"
Code "G53 X0 Y0 F800"
Code "(Z calibrato)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If
Exit Sub

[jjdege]

comunque dal messaggio che ti da mach3 ti dice che hai attivato un fine corsa, mi sa che usi lostesso pin di un fine corsa, prova a verificare

[Dodo66]

Ciao ben trovato in effetti il pin che uso è il 2 collegato dalla casa madre ma io sul manuale della scheda ho visto che per il probe consiglia il pin 4.
L'incantesimo questa volta è che il pin 3 e 4 non comunicano ne ricevono nulla quindi devo ativarli io da mach3 nella scheda Port & Pin?
Forse questo è il motivo per cui tutti gli script testati funzionano come un limite Switch.
comunque ora riprovo questo nuovo script e ti aggiorno.
Ho provato lo Script di Mephisto quello corretto e funziona come gli altri ...

CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 30.0
ZOffset = 20.00
ZSal = ZOffset + 10.00
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If
Exit Sub

[Dodo66]

Finalmente Probe funziona gli script erano giusti con le dovute modifiche personali .
Ho collegato il probe al l'imput 4 assegnandogli il pin 4 in port & pin imput signal mentre alla Z-- un pin diverso il 2 per me così mach3 rileva solo il contatto e non va in blocco ora funziona ho usato questo codice:

DoSpinStop() 'Fermo Spin
VelocitaOld = GetOemDRO(818) 'Memorizzazione Velocità Attuale
ZMove = 30 'Misura Di Ricerca Del Probe
ZOffset = 20.00 'Altezza Del Probe
StopZmove = 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-"& ZMove & "F50" 'Comando ricerca on corsa massima


While IsMoving() 'Attendi fine ricerca
Wend
Probepos = GetVar(2002) 'Lettura quota di contatto
If Probepos = - ZMove 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" & StopZmove & "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

Ultimo problemino è quando faccio il Go To Z ritorna sull'altezza del probe anzicchè andare allo zero del pezzo. Se hai qualche dritta ti ringrazio