DoSpinStop() ' Fermo il Motore
Xpos = GetParam("XMachine") ' Memorizzo XY in Assoluto
Ypos = GetParam("YMachine")
Zpos = GetParam("ZDRO") ' Memorizzo Z in Relativo
Fcurr = GetParam("FeedRate") ' Memorizzo FeedRate corrente
code "G53 X0 Y0" ' Posizione inizio ricerca Assoluta Switch Zero XY dove è messo il tastatore, questo valore "X0 Y0" va modificato in base alla propria cnc
While IsMoving() ' Aspetto mentre si muove
Wend
code "G53 Z-60" ' Scendo proprio sopra il tastatore anche questo va modificato
While IsMoving()
Wend
tmp = (GetParam("ZDRO")-20 ) 'Variabile temporanea forse si può evitare... cmq
ciao, mephysto, ho usato questo script , per il cambio utensile, e devo dire tutto ok. pero dopo la palpata di misurazione, la macchina si sposta tutta dietro a sinistra e mi dice di cambiare l'utensile .. e un po scomodo li .. io vorrei portarla in avanti verso di me, cosi avrei piu comodità . mi sapresti indicare il punto esatto dello script dove modificare sta cosa grazie, un'altra domanda , per il cambio utensile , e per lo zero pezzo cioè quello con la basetta in vetronite , sono 2 script ? cioè ho visto che 1 script e stato inserito , su edit button e poi ATZ.
l'altro script per il cambio utensile su: operator vb script editor, e cosi ho mi sto confondendo , ciao
code "G31 z" & tmp & "F50" ' Inizio ricerca Switch fino a -20
While IsMoving()
Wend
Call SetDRO( 2,GetUserDRO(1000)) ' Legge quello che c'è sul DRO aggiunto e lo scrive sullo ZDRO
SetParam("FeedRate",Fcurr) 'ripristina il feedrate
code "G0 Z" & Zpos ' alza la Z fino al valore iniziale
While IsMoving()
Wend
code "G53 X" & Xpos & "Y" & Ypos ' Ritorna alle X,Y iniziali
While IsMoving()
Wend
End If