大家好，今天我们来写一个关于美制管螺纹，NPT3-8的锥管螺纹，利用宏程序左右借刀的方法，已知下面尺寸查表所得：基准大径88.608基准小径83.528基准长度19.463螺距3.175螺纹总长度50已知上面这些尺寸我们来计算大小头尺寸已外螺纹为例。
1.小头=88.608-19.463*0.0625=87.3912.大头=87.391+0.0625*50=90.516程序如下：O0001M3S800G99T101M08(外径车刀）G0x80.391Z10.Z1.G1Z0.F0.3G1X87.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（程序结束）祝大家节日快乐！