' porta fuori il carosello
ActivateSignal(Output1) 'sposta il carosello in fuori
sleep(timeout_carosello * 1000) ' attende che il carosello sia fuori
DeactivateSignal(Output1)
If(IsACTIVE(Input1)=0) Then ' se il sensore del carosello fuori non è attivo
MachMsg("IL CAROSELLO E' BLOCCATO","ERRORE",0) ' scrive messaggio di errore
ActivateSignal(Output2) 'riporta il carosello dentro
sleep(timeout_carosello*1000) 'aspetta
DeactivateSignal(Output2)
DoOEMButton(1003) 'ferma l'esecuzione del gcode
End 'esce dalla macro
End If
ActivateSignal(Output3) 'apre la pinza del mandrino per mollare l'utensile
da qui
sleep(1000) 'aspetta un secondo
ActivateSignal(Output4) 'flush aria compressa per pulizia
sleep(500) 'aspetta mezzo secondo
DeActivateSignal(Output4) 'ferma flush aria compressa per pulizia
End If
' *********** Va a prendere il nuovo utensile
Code "F" & Z_speed 'porta la velocità di Z a quella impostata per ATC
Code "G01 Z" & safe_z 'porta Z nella posizione Safe per far ruotare il carosello
While IsMoving() 'attendi fino a che si ferma
Wend
DeActivateSignal(Output3) 'chiude la pinza del mandrino
a qui
ci sta:
' porta fuori il carosello
ActivateSignal(Output1) 'sposta il carosello in fuori
sleep(timeout_carosello * 1000) ' attende che il carosello sia fuori
DeactivateSignal(Output1)
If(IsACTIVE(Input1)=0) Then ' se il sensore del carosello fuori non è attivo
MachMsg("IL CAROSELLO E' BLOCCATO","ERRORE",0) ' scrive messaggio di errore
ActivateSignal(Output2) 'riporta il carosello dentro
sleep(timeout_carosello*1000) 'aspetta
DeactivateSignal(Output2)
DoOEMButton(1003) 'ferma l'esecuzione del gcode
End 'esce dalla macro
End If
ActivateSignal(Output3) 'apre la pinza del mandrino per mollare l'utensile
sleep(1000) 'aspetta un secondo
questo, e fa un secondo
ActivateSignal(Output4) 'flush aria compressa per pulizia
sleep(500) 'aspetta mezzo secondo
e quest'alto mezzo secondo
DeActivateSignal(Output4) 'ferma flush aria compressa per pulizia
End If
' *********** Va a prendere il nuovo utensile
Code "F" & Z_speed 'porta la velocità di Z a quella impostata per ATC
Code "G01 Z" & safe_z 'porta Z nella posizione Safe per far ruotare il carosello
While IsMoving() 'attendi fino a che si ferma
Wend
DeActivateSignal(Output3) 'chiude la pinza del mandrino
dove aumentiamo?...mettiamo uno sleep maggior? ok, dimmi tu.....hai provato i tempi di movimento hardware? no? e allora come sappiamo quanto tempo?
