大家好，今天我们来写一个关于美制管螺纹，NPT3-8的锥管螺纹，利用宏程序左右借刀的方法，已知下面尺寸查表所得：
基准大径88.608
基准小径83.528
基准长度19.463
螺距3.175
螺纹总长度50
已知上面这些尺寸我们来计算大小头尺寸已外螺纹为例。
1.小头=88.608-19.463*0.0625=87.391
2.大头=87.391+0.0625*50=90.516
程序如下：
O0001
M3S800G99
T101M08(外径车刀）
G0X80.391Z10.
Z1.
G1Z0.F0.3
G1X87.61W-3.5F0.08（螺纹倒角）
G1X90.516Z-50.F0.12（锥度车削）
G0U1.Z1.
X120.Z130.
T202S500（螺纹刀）
G0X95.Z10.（定位）
Z5.
#1=90.516（螺纹大径）
#2=90.516-5.08（螺纹小径）
#3=0.5（初始X吃刀量)
N10#3=#3-0.1（每层吃刀量递减0.1）
IF[#3LT0.1]THEN#3=0.1（当吃刀量每层递减到最后小于0.1的时候，强制让后面的吃刀量等于0.1）
#1=#1-#3（算出螺纹每一层的X值）
IF[#1LT#2]THEN#1=#2（防止X深度过切，强制赋值）
#5=[#1-#2]/2*TAN[30]（计算出每次Z方向的借刀量）
#4=[50+5]*0.0625/2（计算螺纹中间一刀的R值）
G92X#1Z-50.F3.175R-#4（螺纹中间一刀车削）
#6=5+#5（往右借刀坐标值计算）
#7=[50+#6]*0.0625/2（计算往右借刀的R值）
G0Z#6（螺纹右借刀定位）
G92X#1Z-50F3.175R-#7（右借刀螺纹车削）
#8=5-#5（往左借刀坐标值计算）
#9=[50+#8]*0.0625/2（计算往左借刀的R值）
G0Z#8（螺纹左借刀定位）
G92X#1Z-50.F3.175R-#9（左借刀螺纹车削）
IF[#1EQ#2]GOTO20（条件判断，如果螺纹深度达到，跳出循环）
IF[#1GE#2]GOTO10（如果螺纹深度没有到达，跳转N10继续循环）
N20G0Z5.（定位螺纹中间）
G92X#1Z-50.F3.175R-#4（在执行一刀，防止螺纹让刀尺寸不到位）
G0X120.Z150.（退刀）
M30（程序结束）
祝大家节日快乐！