Another archive find - A2100 ID helical

[Ron P]

I believe this cut from the top down, probably for a single point threading tool, and would make all the required helixes. Haven't had time to review it closely but I recall I'd center the tool, make a 0.0001" move to glide in the cutter comp, make a 1/2 diameter helix to gently get the cutter engaged, then make the required cuts, and blend off again. I knew I did a climb version and a conventional version - based on the G2, this looks like conventional...CHECK IT CAREFULLY.

What you'd do is paste N0010 to N0130 into your program. Edit N0010 to establish the location of the hole, feed, speed, and direction. Change the values in N0020, 30, and 40 to reflect the diameter, number of threads, and lead.

The program should take care of the rest.



:G0 T1 M6
N0010 X7.0 Y5.0 Z3.1 F20. S2000 M3
N0020 [#DIAMETER]=1
N0030 [#REVS]=6
N0040 [#LEAD]=1/8
N0050 G91 G61 G0 Z-.1 X.0001
N0060 G42 X-.0001
N0070 G2 X0 Y[#DIAMETER]/2 Z-[#LEAD]/2 P[#DIAMETER]/4 K[#LEAD]
N0080 G2 X0 Y0 Z-[#LEAD]*[#REVS] I0 J-[#DIAMETER]/2 K[#LEAD]
N0090 G2 X[#DIAMETER]/2 Y-[#DIAMETER]/2 Z-[#LEAD]/4 P[#DIAMETER]/2 K[#LEAD]
N0100 G2 X-[#DIAMETER]/2 Y0 Z-[#LEAD]/2 P[#DIAMETER]/4 K[#LEAD]
N0110 G0 Z([#REVS]+1)*[#LEAD]+[#LEAD]/4+.1 X-.0001
N0120 G40 X.0001
N0130 G90
N0140 M2