TAPER THREAD MILLING

Hai everybody here I like to share a very useful macro programme for taper thread milling programme  by using single point tool. when we want to make a nonstandard taper thread or we don't have specific threading tool by using this programme we can make the required thread with a lathe threading tool. This same programme we can use for straight threads like unc threads, unf thread, metric thread even for square thread or half round thread also. The only think what we want to take care is the insert what we uses in the tool whould be with the same shape of the thread (for an experienced operator or programmer can understand what I said). 

         

MAIN PROGRAMME

%
O0010
G0G90G40G80G55G15G69G17G49
M06T22H22
G91G28Z0M03S2000
#1=21.05(THREAD MAJOR DIA)
#3=18.75(BORE ID)
#30=14(TPI)
#4=.25(DEPTH OF CUT)
#8=0.0(THREAD STARTING FROM)
#7=15(THREAD ENDS AT)
#9=.1(*J*) (it is the gap between the tool tip and the hole minimum dia/2 or in other words the the distance from the tool tip to the side of the hole)
#5=500.0(ROUGHING FEED)
#6=500(FIN. FEED)
#26=3(NUMBER OF FINISHING PASSES)
G0G90X0Y0.0
G43Z50
G01Z0.0F1000.0
Z-17.0F50.0
Z0.0F100
M08
M98P8010
G90Z200.0M09
G91G28Z0M05
G28Y0.0
M30

IF YOU WANT TO RUN THE FINISHING PASS ONLY CHANGE THE VALUE OF #103 FROM "0" O "1"
NB:- #2 is the angle of (NPT)taper thread. if we want make a different angle tapered thread we can change the value of #2

SUB PROGRAMME

%
O8010(NPT THREAD MILLING)(SUB)

#103=0(1=FINISHING ONLY) 

#130=0 

#160=0 

#2=1.7969

#30=[25.4/#30] 

#150=[#7/#30]

#151=FUP[#150] 

#155=[#151*#30]

#152=[#155*[TAN[#2]]]

G90Z20.0 

G1Z0.0F1000.0

N10

#131=#7

#10=[#1/2](MD) 

#13=[#3/2](ID) 

#14=[#13+#9] 

#15=#14

#27=#9 

#17=0

#11=[#10-#13]

#153=[#11-#152]

#100=#11 

G90G40Z-#8 

#28=[#11+#9] 

IF[#103EQ1]THEN#130=[#130+1] 

IF[#103EQ1]GOTO200 

#12=[#100/[TAN[#2]]] 

N11G0G90X0Y0 

#25=#8 

#103=1 

#100=[#100-#4] 

IF[#100LE0]GOTO500 

#12=[#100/[TAN[#2]]] 

N1001

IF[#160GT#153]THEN#160=#153

IF[#27GT[#153+#9]]THEN#27=[#153+#9]

#160=[#160+#4] 

G91G2Y#27X0R#27F#5 

N101#25=[#25+#30]

G91G2J-#27I0Z-#30

IF[#25LT#155]GOTO101 

G0G91Y-#27F1000

G0G90Z-#8

G01

#27=[#27+#4] 

#25=#8 

IF[#160LT#153]GOTO1001 

#151=[#151-#30]

#155=[#151*#30]

#152=[#155*[TAN[#2]]]

#153=[#11-#152]

IF[#27LT#28]GOTO11 

IF[#27GT#28]THEN#27=#28

IF[#27GE#28]THEN#17=[#17+1]

IF[#17GE1]GOTO10 

GOTO11  

N500 

GOTO10

N200 

G90G01X0Y0 

#25=#8 

#100=#11 

#105=#8

#27=#28

#116=0 

#12=#7 

#104=[#30*[TAN[#2]]] 

#110=#12 

G0G90G80G40Z-#8

G91G2Y#28X0R#28F#5 

#117=#28

N201 

G91G2J-#117I0Z-#30F#6

G01Y-#104

IF[#105GE#131]GOTO300

#117=[#117-#104] 

#105=[#105+#30]

IF[#105GT#7]THEN#105=#7

IF[#105LT#7]GOTO201

G01G91Y-#117F#5

G0G90Z-#8

IF[#130LT#26]GOTO10

N300G0G90Z0

M99

%

It is the video of the thread milling procedure. 

and for any doubts you can contact me

my email id is: sanilpallayi@gmail.com