Рет қаралды 2,888
macro cho mach3 lpt
ZCur = GetDro(2)
ZMove = ZCur-20.0 'hanh trinh Z di chuyen
ZOffset = 24.1 'chieu cao cuc set dao
ZSal = ZOffset + 10.0 'Chieu cao sau khi cham phoi
If GetOemLed (825)=0 Then
Code "G4 P2.5"
Code "G31 Z"& ZMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetDro(2)
Call SetDro(2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
Else
Code "(Kiem tra lai probe)"
End If
Exit Sub