|
IF[ FIX[#1] LE 0 ] GOTO101;(如果加工数量小于等于零.转移至101段,只计数不报警)5 E% v) i3 a9 C" T0 ~0 P+ u
#3=FIX[#4120/100];(检测当前刀具号,化为个位数并取整)& G: p0 ?4 R$ W; T
#2=#3+500;(加工数量要储存到变量号的计算)
, Y# w! j, g) E, h2 x2 r6 C$ e+ CIF[#[#2]GE#1]GOTO100;(判断是否达到加工数量)
9 P' F% h* }8 p* {N101#[#2]=#[#2]+1;(加工数量加一)- R- ~) z' C7 {3 H6 l
M99;
% T" @# U. e3 ON100M9;(加工到指定数值时执行)
, ~! V# p( y, E1 ^( f" PM5;7 W; u* [+ ]) Z v! D$ h$ _2 U
#19=#3*100-200;(计算要换哪把刀,此处为十工位斜导轨机床,换刀为减两个刀位)
: O" u0 P7 y+ L3 m& _IF[#19 EQ 0] THEN#19=1000;(计算刀具号为0时,执行T1000)/ a9 v+ Y/ D, F7 j$ ?: D
IF[#19 EQ -101 ] THEN#19=900;(同上)
4 `8 U D+ V' l9 S2 ?T#19;(换刀,将要换刀片的刀换出来)7 u) V* I" ^; I
#[#2]=0;(清空计数变量)
! _* H' s# e8 p; L#3000=#3(T ERROR);(发出报警,后面括号里为报警信息,报警编号为3000+#3,如果是1号刀,编号就为3001)$ l2 {5 H& U, l; G( U
, l" c3 s$ ?1 x3 S |
|