33 lines
316 B
Plaintext
33 lines
316 B
Plaintext
EXTERN SETKOS(INT)
|
|
|
|
DEFINE TOLER AS 10
|
|
DEFINE XMESS AS 5
|
|
DEFINE YMESS AS 5
|
|
DEFINE ZMESS AS 250
|
|
R83=0
|
|
R90=0
|
|
|
|
SOFT
|
|
|
|
;HOME
|
|
SETKOS(0)
|
|
TRAORI
|
|
|
|
|
|
; FAHRE UBER TEIL
|
|
G54
|
|
F17000
|
|
G90 G1 CP X=R51+XMESS Y=R52+YMESS Z=ZMESS A0 B0 C0 G94
|
|
|
|
;MESSE
|
|
IF $A_DBR[20] < (ZMESS+OFFSET_LASER_Z-TOLER)
|
|
R90=1
|
|
ENDIF
|
|
|
|
|
|
SETKOS(1)
|
|
;HOME
|
|
|
|
|
|
M17
|