发个子程序，很方便的…可以记录每把刀具加工数量

IF[ FIX[#1] LE 0 ] GOTO101;(如果加工数量小于等于零.转移至101段，只计数不报警) #3=FIX[#4120/100];(检测当前刀具号，化为个位数并取整) #2=#3+500;(加工数量要储存到变量号的计算) IF[#[#2]GE#1]GOTO100;(判断是否达到加工数量) N101#[#2]=#[#2]+1;(加工数量加一) M99; N100M9;(加工到指定数值时执行) M5; #19=#3*100-200;(计算要换哪把刀，此处为十工位斜导轨机床，换刀为减两个刀位) IF[#19 EQ 0] THEN#19=1000;(计算刀具号为0时，执行T1000) IF[#19 EQ -101 ] THEN#19=900;(同上) T#19;(换刀，将要换刀片的刀换出来) #[#2]=0;(清空计数变量) #3000=#3(T ERROR);(发出报警，后面括号里为报警信息，报警编号为3000＋＃3，如果是1号刀，编号就为3001)