50 lines
725 B
Plaintext
50 lines
725 B
Plaintext
;drilling
|
|
|
|
; Use T = 0 for tailstock drilling, then this just sets speed
|
|
|
|
O<drilling> SUB
|
|
|
|
G18 ; XZ Plane
|
|
G21 ; Metric Units
|
|
G90 ; Absolute Distance
|
|
G91.1 ; but not for arcs
|
|
|
|
#10 = [#2 * 1000 / [ #1 * 3.141592]]
|
|
(debug, #10)
|
|
O90 IF [#7 GT 0.5]
|
|
M8
|
|
O90 ENDIF
|
|
|
|
O100 IF [#6 LT 0.5]
|
|
G97 M3 S#10
|
|
O<drilling> RETURN
|
|
O100 ENDIF
|
|
|
|
M6 T#6 G43
|
|
G0 X0
|
|
|
|
O83 IF [#5 GT 0] ; Pecking
|
|
G17
|
|
G95 F#3 ; Feed-Per-Rev Mode
|
|
G97 M3 S#10
|
|
G98
|
|
G83 R#<_z> Q#5 Z#4
|
|
M5 M9 G18
|
|
O<drilling> RETURN
|
|
O83 ENDIF
|
|
|
|
O82 IF [1]; not pecking
|
|
G17
|
|
G95 F#3 ; Feed-Per-Rev Mode
|
|
G97 M3 S#10
|
|
G98
|
|
G82 R#<_z> P0.5 Z#4
|
|
M5 M9 G18
|
|
O82 ENDIF
|
|
|
|
O<drilling> ENDSUB
|
|
|
|
O<drilling> call [10] [100] [0.03] [0] [2] [0] [1]
|
|
|
|
M2
|