87 lines
2.1 KiB
Plaintext
87 lines
2.1 KiB
Plaintext
; MACROCOMMAND= Drill Diameter,Finish Depth,SFM,FPR,Tool Number,Peck Depth,Retract Depth
|
|
; MACRODEFAULTS=1.0,-1.0,300.0,.007,1,0.2,.1
|
|
; MACROSVG=LatheMacro.svg,6
|
|
; O<drill> call [${drill.diameter-f}] [${drill.zdepth-f}] [${drill.sf-f}] [${drill.feed-f}] [${drill.tool-s}] [${drill.peck-f}] [${drill.retract-f}]
|
|
|
|
; #1 drill diameter
|
|
; #2 zdepth
|
|
; #3 surface speed
|
|
; #4 feed/rpm
|
|
; #5 tool number
|
|
; #6 peck amount
|
|
; #7 peck retract amount - not used right now
|
|
|
|
O<drill> sub
|
|
|
|
O100 IF [#<_imperial>]
|
|
(MSG, IMPERIAL sizes)
|
|
(MSG, )
|
|
#<diam> = [#1 * 25.4]
|
|
#<zDepth> = [#2 * 25.4]
|
|
#<surfaceSpeed> = [#3 * .3048] ; sf/m to m/m
|
|
#<fpr> = [#4 * 25.4]
|
|
#<peck> = [#6 * 25.4]
|
|
#<retract> = [#7 * 25.4]
|
|
#10 = [[#3 *12] / [3.1415 * #1]] ; RPM from sfm request
|
|
|
|
(debug, Drill Diameter: %d#1 in)
|
|
(debug, Peck Increment: %.3f#6 in)
|
|
(debug, Start Z: %.3f#<_z> in)
|
|
(debug, Finish Z: %.3f#2 in)
|
|
(debug, Feed: %.3f#4 in/rev)
|
|
(debug, Tool: %d#5)
|
|
(debug, Speed: %d#3 sfm @ %d#10 rpm)
|
|
O100 ELSE
|
|
(MSG, METRIC sizes)
|
|
#<diam> = #1
|
|
#<zDepth> = #2
|
|
#<surfaceSpeed> = #3 ;m/m
|
|
#<fpr> = #4
|
|
#<peck> = #6
|
|
#<retract> = #7
|
|
#10 = [#<surfaceSpeed> / [3.1415 * #<diam>]] ; rpm from m/m request
|
|
|
|
(debug, Drilling Diameter: %d#<diam> mm)
|
|
(debug, Peck Distance: %.2f#<peck> mm)
|
|
(debug, Start Z: %.2f#<_z> mm)
|
|
(debug, Finish depth: %.2f#<zDepth> mm)
|
|
(debug, Feed: %.2f#<fpr> mm/rev)
|
|
(debug, Tool: %d#5)
|
|
(debug, Speed %d#<surfaceSpeed> m/min @ #10 rpm)
|
|
O100 ENDIF
|
|
|
|
M73 ; save state, restore on exit
|
|
|
|
G7 ; diameter mode
|
|
G17 ; XY Plane
|
|
G21 ; Metric Units don't change units!
|
|
G90 ; Absolute Distance
|
|
|
|
#<zStart> = #<_z> (starting Z)
|
|
|
|
(MSG, Unpause To start Drilling Macro)
|
|
m0
|
|
|
|
M6 T#5 G43
|
|
|
|
G97 S#10 ; Constant RPM mode
|
|
M3 ;Start Spindle
|
|
G95 F#<fpr> ; Feed-Per-Rev Mode
|
|
|
|
g4p1 ; Wait to reach speed
|
|
|
|
G0 X0 ; must drill from the centerline. Tool should be zeroed here
|
|
G00 Z #<zStart>
|
|
G98
|
|
G83 Z#<zDepth> R#<zStart> Q#<peck>
|
|
G80
|
|
|
|
G0 Z #<zStart>
|
|
M5
|
|
G7
|
|
|
|
(MSG,Done Drilling Macro)
|
|
O<drill> endsub
|
|
|
|
M2
|