mi piacerebbe sapere se ad altri succede la stessa cosa, grazie
Franco
Mephysto ha scritto: ↑venerdì 18 settembre 2009, 13:07Grazie dei complimenti, ovviamente da estendersi a tutti quelli da cui anche io ho appreso le varie nozioni. Non ultimi quelli della Artsoft, la casa che produce Mach3, a cui tempo fa avevo notificato il difetto dello script sulla nuova vesione di Mach3. Oggi mi è arrivata l'email con la loro soluzione (da notare che l'altezza del tastatore è 10,50 e che la quota di risalita dopo l'azzermento sara 50, cioè 10,50+39,50; voi potete cambiare i parametri a vosto piacimento):
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 30.0
ZOffset = 10.50
ZSal = ZOffset + 39.50
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