您现在的位置:

用宏程序车削外圆

宏程序编程指令格式
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