往返异型螺纹的编程需要考虑螺纹的起始和结束位置、进给量、刀具的移动以及螺纹的深度等因素。以下是一个简化的数控编程示例，用于加工异型螺纹：
```gcode
； 异型螺纹加工程序
O1000
； 第一个循环程序
T0101
M03 S60
G00 X40 Z10
1 = 0 （X方向进刀增量值的变量）
WHILE [1 LT 3] DO
； X方向从顶圆进到根圆的循环， 深度3mm
1 = 1 + 0.1 （在X方向每刀进给的增量值为0.1mm）
2 = TAN * 1 （计算z方向每次进刀起点的偏移量）
3 = 40 - 1 * 2 （螺纹起刀点X坐标）
4 = 10 - 2 （螺纹起刀点Z坐标）
G00 X[3] Z[4] （快速移到螺纹循环起点坐标）
G32 X[3] Z -50 F9 （螺纹循环， 终点坐标的x值是变量）
G00 X45 （X方向退刀）
Z10 （Z方向退刀）
END1
5 = 0 （z方向进刀增量值的变量）
WHILE [5 LT 2.8] DO
； Z方向螺纹底宽2.8mm的进刀循环
5 = 5 + 0.1 （循环的每次增量值为0.1mm）
2 = 2 + 0.1 （在z方向每刀进给的增量值为0.1mm）
4 = 10 - 2 （螺纹起刀点z坐标）
G00 X[3] Z[4] （快速移到螺纹循环起点坐标）
G32 X[3] Z -50 F9 （螺纹循环， 3是不变的， 是上个循环计算出的根圆直径）
G00 X45 （X方向退刀）
Z10 （Z方向退刀）
END2
RETURN
```
解释
初始化
`T0101`：选择刀具号为101。
`M03 S60`：主轴转速设为60转/分钟。
`G00 X40 Z10`：快速定位到X轴40mm，Z轴10mm的位置。
X方向循环
`WHILE [1 LT 3]`：当1小于3时，执行循环。
`1 = 1 + 0.1`：每次循环X方向进给量增加0.1mm。
`2 = TAN * 1`：计算Z方向每次进刀起点的偏移量。
`3 = 40 - 1 * 2`：计算螺纹起刀点的X坐标。
`4 = 10 - 2`：计算螺纹起刀点的Z坐标。
`G00 X[3] Z[4]`：快速移动到螺纹循环起点坐标。
`G32 X[3] Z -50 F9`：执行螺纹循环，终点坐标的X值为变量。
`G00 X45`：X方向退刀。
`Z10`：Z方向退刀。
Z方向循环
`WHILE [5 LT 2.8]`：当5小于2.8时，执行循环。
`5 = 5 + 0.1`：每次循环Z方向进给量增加0.1mm。
`2 = 2 + 0.1`：每次循环Z方向进给量增加0.1mm。
`4 = 10 - 2`：计算螺纹起刀点的Z坐标。
`G00 X[3] Z[4]`：快速移动到螺纹循环起点坐标。
`G32 X[3] Z -50 F9`：执行螺纹循环，终点坐标的X值为变量。
`G00 X45`：X方向退刀。
`Z10`：Z方向退刀。
建议
确保刀具