ER16 taper gcode

[kdoney]

This may sound like beginners class but I am trying to turn or mill an internal shape to hold an er16 collet. I know it's just an 8 degree taper from start to finish but I don't know how and can't find a taper canned cycle.

[RotarySMP]

Here is a short program I wrote to cut internal ER tapers. It is written for Turbo CNC, so you might need to change the syntax a little for Machs commands. It will cut any ER taper ( Actually it will cut any taper if you change the angle in line N200)...

It assumes the stock face is at Z0, and is written for a diameter mode, metric lathe, and has been tested cutting an ER-32 internal taper.

;Cutting ER Tapers
N100 Ask #1 ; Which ER size?
N110 Ask #2 ; Starting bore size?
N120 Ask #6 ; Depth of roughing cuts?
N130 Ask #7 ; Roughing Feedrate?
N140 Ask #12; Depth of finishing cuts?
N145 Ask #8 ; Finishing feedrate?
N150 Ask #10; Finishing allowance?
N160 Ask #11; Number of Spring cuts?
;
N200 #4 = 8 ; Taper angle of ER 32 Collet
N210 #5 = [#2 + #6] ; Initial X target
;
N500 G0 Z1 X[#5+1] ;Start outside cut to take out backlash
N510 M00 ; Clear chips
N520 #9 = [-(((#5 - #2) /2 ) / tan (#4))] ;Calculate Z target.
N530 SAY #9 ; Z target
N535 G01 Z0 X[#5] F[#7] ; Feed onto start point
N540 G01 Z[#9] X [#2] ; Cut Taper
N560 G01 X[#2-1] ; Clear Part
N570 G00 Z1 ; Retract
N580 #5 = [#5 + #6]; Increment DOC
N590 IF #5 GE [#1 - #10] M97 O1000 ; Check if finished roughing
N600 M97 O500
;
N1000 M00;Finishing - Set up tools and speeds.
N1010 #5 = [ #1 - #10]; Set to take a pass at the Finish allowance
N1015 G0 Z1 X[#5+1] ;Start outside cut to take out backlash
N1020 #9 = [-(((#5 - #2) /2 ) / tan (#4))] ;Calculate Z target.
N1030 SAY #9 ; Z target
N1035 G01 Z0 X[#5] F[#7] ; Feed onto start point
N1040 G01 Z[#9] X [#2] ; Cut Taper
N1050 G01 X[#2-1] ; Clear Part
N1060 G00 Z1 ; Retract
N1070 #5 = [#5 + #12]; Increment DOC
N1080 IF #5 GE [#1] M97 O1500; Check if finished cutting
N1090 M97 O1020
;
N1500 M00; Spring Cuts
N1510 #5 = #1
N1515 SAY #11 ; Remaining spring cuts
N1520 G0 Z1 X[#5+1] ;Start outside cut to take out backlash
N1530 #9 = [(((#5 - #2) /2 ) / tan (#4))] ;Calculate Z target.
N1540 G01 Z0 X[#5] F[#7] ; Feed onto start point
N1550 G01 Z[#9] X [#2] ; Cut Taper
N1560 G01 X[#2-1] ; Clear Part
N1570 G00 Z1 ; Retract
N1580 #11 =[ #11-1]; Start counting down.
N1590 If #11 LE 0 M97 O2000
N1600 M97 O1515
;
N2000 M02 ; End Program

[kdoney]

Wow. Thanks