NPT threadmilling

Can it be done with a single point tool, and can I get some help with the code?
Doing 1 1/2 NPT

Can you read a Macro?

I got these from somewhere but never actually used them. The first file is the program and the second the macro subprogram. they are for threadmilling but I would imagine they would work with a single point tool; just don't ask me to modify them.

Npt Taper Thread Macro

If you have Macros active here is a Macro that cuts the taper with a single point fly-cutter.

I have only ran this on our simulator, but the DRO's look good. Proceed with caution when making chips the first time.


%
O7123 (NPT TAPER THREAD MACRO)
N10 G17 G54 G90
N20 G40 G49 G80
N30 ( TOOL #1 IS A SINGLE POINT THREAD CUTTER )
N40 G53 G00 Z0.0 ( RESTART TOOL #1 HERE )
N50 G53 G00 X-20. Y0.
N60 T1 M6
N70 S3000 M3
N80 G54 G00 G90 X2.5 Y2.5
N90 G43 Z2. H#101 D#101 M8
N100 ( START SINGLE POINT NPT TAPER THREAD )
N110 #124=2.5 ( X CENTER )
N120 #125=2.5 ( Y CENTER )
N130 #126=-1 ( Z BOTTOM OF THREAD )
N140 #118=.2 ( R or RETRACT PLANE IN Z AXIS )
N150 #107=2 ( D or THREAD MAJOR DIAMETER AT Z TOP )
N160 #120=01 ( T or TOOL NUMBER )
N170 #123=11.5 ( W or THREAD PER INCH )
N180 #109=10 ( F or CUTTING FEEDRATE )
N190 #121=.03 ( U or DEPTH OF MILLING PASS PER SIDE )
N200 #122=.0625 ( V or DIA TAPER PER FOOT )
N210 #103=3 ( C or NUMBER OF MILLING PASSES )
N220 ( END OF INPUTS )
N230 #129= [1/#123]
N240 #142= [#103-1]
N250 #163= ABS[#118-#126]
N260 #134= ROUND[#163/#129] ( NUMBER OF REVS )
N270 #135= [#163*[#122/2]] ( TOTAL DIAMETER TAPER IN Z )
N280 #107= [[#107/2]-#135] ( THREAD RADIUS AT Z BOTTOM )
N290 #170= #[2400+#120] ( FIND TOOL RADIUS )
N300 #170= [#170+[#142*#121]] ( CHANGE TOOL RADIUS FOR ROUGH PASSES )
N310 #176= [#107-#170] ( RADIUS TO CUT )
N320 #151= [#129*.25]
N330 #174= [#129*[#122/2]] ( RADIAL TAPER PER THREAD )
N340 #173= [#174*.75]
N350 #172= [#174*.5]
N360 #171= [#174*.25]
N370 #175= #174 ( ARC TAPER AMOUNT )
N380 #133= [#103+1]
N390 #144= #134 ( HOLD REVS COUNT )
N400 #156= #126 ( HOLD Z BOTTOM OF THREAD )
N410 G90 G00 X#124 Y#125
N420 Z#118
N430 WHILE[#133 GT1]DO1
N440 G01 Z#126 F50. ( FEED TO BOTTOM )
N450 X[#124+#176-[#129*1.5]]
N460 X[#124+#176]F#109
N470 WHILE[#134 GT0]DO2
N480 #126= [#126+#151]
N490 G03 X#124 Y[#124+[#176+#171]] Z#126 R[#176+#171]
N500 #126= [#126+#151]
N510 X[#124-[#176+#172]] Y#125 Z#126 R[#176+#172]
N520 #126= [#126+#151]
N530 X#124 Y[#124-[#176+#173]] Z#126 R[#176+#173]
N540 #126= [#126+#151]
N550 X[#124+[#176+#174]] Y#125 Z#126 R[#176+#174]
N560 #174= [#174+#175]
N570 #173= [#173+#175]
N580 #172= [#172+#175]
N590 #171= [#171+#175]
N600 #134= [#134-1]
N610 END2
N620 G90 G01 X#124 Y#125 F50.
N630 Z#118 F75.
N640 #176= [#176+#121]
N650 #174= [#129*[#122/2]]
N660 #173= [#174*.75]
N670 #172= [#174*.5]
N680 #171= [#174*.25]
N690 #134= #144 ( RESET REVS COUNT )
N700 #126= #156 ( RESET Z BOTTOM OF THREAD )
N710 #133= [#133-1]
N720 END1
N730 G00 Z2.
N740 G53 G00 Z0. M9
N750 (UNLOAD HERE)
N760 G53 G00 X-20. Y0.
N770 M30 (END OF MAIN PROGRAM)
%

Thanks, I will give these a look.

the software from vardex wich you can download also list the npt thread
havent tried it yet but yesterday i needed to cut a 1 1/4" npt in some plasma burned slugs didnt had the time to try the code out so i cutted them in the lathe.

We just program them in Esprit. But yes, it can be done with a single point tool. We do it all the time.