33 lines
896 B
Plaintext
33 lines
896 B
Plaintext
; Author: jthornton
|
|
|
|
(info: outside taper)
|
|
o<taper-od> sub
|
|
#<MaxRPM> = #1 (= 3000 Max RPM)
|
|
#<SurfaceUnitsMin> = #2 (= 100 Surface Units/Min)
|
|
#<FeedRate> = #3 (= 2 Feed Rate)
|
|
#<Z-Start> = #4 (= 0.000 Z Start)
|
|
#<Z-End> = #5 (= -2 Z End)
|
|
#<StartDiameter> = #6 (= 1 Start Diameter)
|
|
#<Angle> = #7 (= 10 Angle)
|
|
#<Tool> = #8 (= 6 Tool Number)
|
|
#<Coolant> = #9 (= 8 Flood=8, Off=9)
|
|
|
|
#<X-End> = [#<StartDiameter> + [[#<Z-Start> - #<Z-End>] * TAN[#<Angle>]]]
|
|
|
|
G7 G18 G40 G54
|
|
G96 D#<MaxRPM> S#<SurfaceUnitsMin> (Constance Surface Speed)
|
|
T#<Tool> M6
|
|
#<tooldiam>=#5410
|
|
G43 (load tool offset)
|
|
G42 (start cutter comp)
|
|
M3 M#<Coolant>
|
|
G0 X#<StartDiameter> Z[#<Z-Start> + .1000]
|
|
G1 X#<StartDiameter> Z#<Z-Start> F#<FeedRate>
|
|
X#<X-End> Z#<Z-End>
|
|
X[#<X-End> + [#<tooldiam> * 2] + 0.005]
|
|
M5 M9
|
|
G0 Z#<Z-Start>
|
|
G40
|
|
G53 G0 X0.000 Z0.000
|
|
o<taper-od> endsub
|