' Macro per Laser
' versione 2.0 04/08/2011
' Robot Factory
'  
' Condizioni macchina:
' Zero macchina: X tutto a destra Y tutto dietro Z tutto in alto.
'
' Direzioni macchina:
' Asse X: verso sinistra +X verso destra -X
' Asse Y: verso dietro -Y verso avanti +Y
' Asse Z: verso alto +Z verso basso -Z
'
' Condizioni di lavoro:
' 1) Aver installato, centrato e focalizzato il Laser
' 2) Aver referenziato a ZERO macchina
'
' Utilizzo:
' 1) Portarsi, utilizzando il Laser, con gli assi X ed Y sullo Zero pezzo
' 2) Azzerare i contatori X ed Y
' 3) Premere il bottone "Goto Zero"
' 
' Per utilizzare il Laser con lo ShuttlePro
' assegnare ad un bottone "Custom macro #1"  ed inserire 651 per la macro
' assegnare ad un bottone "OEM Button #1"  ed inserire 114 come codice
' codice 114 = "Mist Toggle" 

' variabili del programma
Xmove = GetUserDRO(1152)		' Valore di Offset da inserire per l'asse X
Ymove = GetUserDRO(1153)		' Valore di Offset da inserire per l'asse Y
fmin = 700				' imposto il feedrate

DoSpinStop()			' per sicurezza fermo il mandrino

' controllo se la macchina  stata referenziata
If (GetLed (7) = 0) And (GetLed (8) = 0) And (GetLed (9) = 0) Then
' controllo di non essere in coordinate macchina
If GetOEMLed (16) Then
	DoOEMButton (256)
    While IsMoving ()
    Wend
End If

' inizio programma

code "G0 F" & fmin			' cambio il feedrate con il valore richiesto
Code "G91 G0 X" &Xmove & "Y" &Ymove
While IsMoving ()
Wend
Code "G4 P0.5"
Code "G90 M9"		' Spengo il laser
Code "G4 P0.5"
DoOEMButton (1008)		' Azzero X
    While IsMoving ()
    Wend
DoOEMButton (1009)		' Azzero Y
    While IsMoving ()
    Wend
Else
	MsgBox ("Per poter utilizzare il laser bisognava prima aver referenziato la macchina")
End If

