宏程序编程指令格式
G65P8090X(U) Z(W)   D   E   F
其中X(U)   Z(W)   外圆终点坐标，X轴为直径值编程
D-----每次切深，半径值指令;
E-----退刀量
F------切削速度

宏程序主程序
08090
#31=#5041 保存X值初值
#32=#5042 保存Z值初值
IF[#8NE#0]GOTO1
#8=0.2     退刀量
N1IF[#24EQ#0]GOTO2
#1=#24     X值绝对值指令
GOTO3
N2IF[#21EQ#0]GOTO9   X轴未赋值则报警
#1=#31+#21         X轴绝对值坐标
N3IF[#26EQ#0]GOTO4
#2=#26          
GOTO5
N4IF[#23EQ#0]GOTO9   Z轴未赋值则报警
#2=#32+#23         Z轴绝对值坐标
N5IF[#7EQ#0]GOTO9   每次切深不赋值则报警
IF[#9NE#0]GOTO6    
#9=#4109           F未赋值则用前面的值
N6#30=#31         X轴初值
WHILE[#30GT#1]DO1
#30=#30-2*#7
IF[#30GT#1]GOTO7
#30=#1
N7GOOX#30       切削循环
GOIZ#2F#9
U-2*#8
G00Z#32         切削循环结束
END1
X#31           退回起始点
GOTO10
N9#3000=1       赋值错误报警
N10M99