|
IF[ FIX[#1] LE 0 ] GOTO101;(如果加工数量小于等于零.转移至101段,只计数不报警)) U2 S! B. l0 U8 t, }
#3=FIX[#4120/100];(检测当前刀具号,化为个位数并取整)9 W7 Z) A$ n0 K, ~: Z+ [
#2=#3+500;(加工数量要储存到变量号的计算)8 a1 }& D( R: Z1 L* q& g% s
IF[#[#2]GE#1]GOTO100;(判断是否达到加工数量)" D3 r0 @4 h' c* ]
N101#[#2]=#[#2]+1;(加工数量加一)
e/ |% U! O0 U6 N* ^M99;* g6 l. D' B/ J2 c8 w0 u
N100M9;(加工到指定数值时执行)
" j: H3 H8 m& I, Z5 E/ _& ?M5;# u0 c6 w0 Z, r: t
#19=#3*100-200;(计算要换哪把刀,此处为十工位斜导轨机床,换刀为减两个刀位)
( G- Z9 U) r/ i( U4 F' y/ HIF[#19 EQ 0] THEN#19=1000;(计算刀具号为0时,执行T1000)& @8 w& F7 w" D, U
IF[#19 EQ -101 ] THEN#19=900;(同上)& `5 p- f, A; |
T#19;(换刀,将要换刀片的刀换出来)# h' e7 t+ I* h* t5 B% e- S7 o* E
#[#2]=0;(清空计数变量)$ @2 | y# g4 a, G0 [' ~
#3000=#3(T ERROR);(发出报警,后面括号里为报警信息,报警编号为3000+#3,如果是1号刀,编号就为3001)( V2 R6 x# j3 {% o3 j' B# v3 { @8 A
0 A$ \* l# b5 C' q# z m# _
|
|