37 lines
780 B
Plaintext
Executable File
37 lines
780 B
Plaintext
Executable File
; Peck drill subroutine - drills with retract cycles to clear chips
|
|
; Params: #1=x, #2=y, #3=zstart, #4=zend, #5=peck_depth
|
|
o<drill> sub
|
|
; x1, y1, zstart, zend, peckdp
|
|
; #1 #2 #3 #4 #5
|
|
|
|
G90 ; absolute x,y,z
|
|
M101 ; enable Z-axis (M102 disables)
|
|
|
|
o1 if [EXISTS[#<_z_clearance>]]
|
|
#<z_clearance> = #<_z_clearance>
|
|
o1 else
|
|
#<z_clearance> = #3
|
|
o1 endif
|
|
|
|
;;;;;;;;;; PROGRAM ;;;;;;;;;
|
|
|
|
G0 Z#<z_clearance>
|
|
G0 X#1 Y#2
|
|
G0 Z#3
|
|
|
|
o104 if [#5 NE 0] ; peck drilling
|
|
#<h> = #3
|
|
o101 while [#<h> GT #4]
|
|
G1 Z#<h> ; drill to current peck depth
|
|
G0 Z#3 ; retract to clear chips
|
|
G0 Z[#<h>+.02] ; rapid back down, stopping just above previous depth
|
|
#<h> = [#<h>-#5]
|
|
o101 endwhile
|
|
o104 endif
|
|
|
|
G1 Z#4
|
|
G0 Z#<z_clearance>
|
|
|
|
o<drill> endsub
|
|
|
|
M2 |