G99
T0101 M3 S1000
G0 X60
Z6
#1=60(大径)
#10=1(左中右 右中左交替进刀 减小刀片单边磨损)
N1
#1=#1-0.2(X轴吃刀量)
IF[
#1LT56.1]THEN#1=56.1(假设螺距3个 按1.3倍螺距计算)
#2=[TAN30]*[#1-56.1]/2(成型刀60度TAN角度不大于刀角度就行算出X轴单边偏移量)
#3=-#2(另一侧偏移量)
N2
#11=[#10*#2](正负转换交替进刀减小磨损)
G0 Z[6+#11](广数需要先赋值再带入)
G92 X#1 Z-30 F3
IF[#2EQ#3]GOTO5
#2=#2-0.2(Z轴单边偏移量随便写 梯形螺纹需要小于刀宽)
IF[#2LT
#3]THEN#2=#3(负 方向防过切)
GOTO2
N5#10=-#10(分层交替进刀 走刀路线1层右 中…左 第二层左 中…右)
IF[#1EQ56.1]GOTO6
IF[#1GT56.1]GOTO1
N6
G0 Z200
M30
程序逻辑是这样的 就是一个梯形螺纹而已 程序没啥难度 但是但是但是老板这要求就是大S13 程序是一回事 能不能做又是另一回事
今天放假手机写了下 原理是这样 千万别上机防止有错 我没模拟过