宏程序问题

45guop

我编了一个宏程序,不知那位能不能用这个软件Cgtech Vericut v54给我检查一下错在什么地方.宏程序如下
65 P9010 x-y-z-R-K-D-H-T-F-S-E-
和变量的含义如下:
X(#24) 工件的长,正值
Y(#25) 工件的宽,正值
z(#26) 加工深度,正值
R(#18) 快速趋近平面,绝对坐标值
K(#6)  精加工余量,正值(不赋值则不  行精加工)
D(#7)  刀具半径,正值
H(#11)  对刀点判别参数,未赋值则在工件对称中心上.对刀点在左下角,可赋予任何值.
T(#20) 精加工进给率
F9(#9)粗加工进给率
S(#19)粗加工主轴转速
E(#8)精加工主轴转速
#100--#120变量为运算变量





O9010
IF [#24EQ#0]     GOTO 100      ;工件的长不赋值则报警.
IF [#25EQ#0]     GOTO 100 ;工件的宽不赋值则报警.

IF [#26EQ#0]     GOTO 100; 加工深度不赋值则报警
     
F [#18EQ#0]     GOTO 100  ;R点平面未赋值则报警

IF [#7EQ#0]     GOTO 100;刀具半径未赋值则报警
IF [#19EQ#0]     GOTO 100 ;粗加工主轴转速未赋值则报警
IF [#9EQ#0]     GOTO 100 ;粗加工进给率未赋值则报警
IF [#11NQ#0]     GOTO 10;#11未赋值则对刀点为工件几何中心,赋值则对刀点为左下角.
   #100=[#24/2]+2.         ;2MM为X，Y方向下刀时的安全距离
    #101=*[#25/2]-2.
GOTO20
N10#100=[#24+2]
   #101=-2.
N20#120=#5003 ；保存初始平面
#121=#4003；保存03组G代码
S#19
IF[#4113NE3]GOTO110 ；主轴未转则报警N510
#104=0
#106=0
#107=0
G0#18；快速趋近R平面
X#100Y#101；定位到A点
IF[#6EQ#0]GOTO30；是否进行精加工，是则保存精加工余量
#26=#26-#6
N30G1Z-[#26]F[#9*8]；以8倍的进给率下刀
N35G91G1X-[#100+#7]F#9
Y[#7*2*0.8]
X[#100+#7]
Y[#7*2*0.8]
#104=#104+2
#105=#104*[#7*2*0.8]
#106=#106-#105
IF[#106GT2*#7*2*0.8]GOTO35  判断是否是最后两刀
G1X-[#100+#7]
Y[#7*2*0.8]
#106=#106-[#7*2*0.8]

X[#100+#7]
Y[#106+2]
IF[#6EQ#0]GOTO90    不精加工则程序结束



IF[#20 NQ# 0]  GOTO  40                  
#20=#9                                                ;F不赋值用前面的值

IF[#8NQ#0]  GOTO  40； S不赋值用前面的值

#8=#19  



N40  G90G0Z#18 ；快速趋近到R平面  
X#100Y#101S#8；定位于A点
N50G1Z-[#26+#6]F[#20*8]；以8倍的进给率下刀
G91 X-[#100+#7]F#20

G0Z#18
X[#100+#7*2*0.8]Y[#7*2*0.8]


#107=#107-[#7*2*0.8]  


IF[#107LE0]GOTO50;宽度是否到，不到继续加工
N90G90G0Z#18
X0Y0
Z#120返回初始平面
GOTO120
N100#3000=10(DATA LACK)报警NO.510
N110#3000=20 报警NO.520
N120G#33 恢复03组G代码
M99      宏程序,不知那位能不能用这个软件Cgtech Vericut v54给我检查一下错在什么地方.宏程序如下

adar

45guop