|
IF[ FIX[#1] LE 0 ] GOTO101;(如果加工数量小于等于零.转移至101段,只计数不报警)
) w2 K: p3 e6 f2 D#3=FIX[#4120/100];(检测当前刀具号,化为个位数并取整)
! q1 b f/ P- {#2=#3+500;(加工数量要储存到变量号的计算)
2 C6 Z# s$ ^9 [' @5 U7 \IF[#[#2]GE#1]GOTO100;(判断是否达到加工数量)
3 H. V7 J/ g! X$ gN101#[#2]=#[#2]+1;(加工数量加一)
. y4 n2 F3 B: A. N. V% l$ xM99;
- P0 E* K' @: @8 UN100M9;(加工到指定数值时执行)6 |3 q9 Z! @/ M" a, o' v9 E! R' {2 \
M5;9 m1 F4 t) ]2 ] h$ @
#19=#3*100-200;(计算要换哪把刀,此处为十工位斜导轨机床,换刀为减两个刀位)* x8 P, _* _- T' ? G/ i
IF[#19 EQ 0] THEN#19=1000;(计算刀具号为0时,执行T1000)
' m: x8 k( J& l2 H* {) Z$ t' @5 q YIF[#19 EQ -101 ] THEN#19=900;(同上)
' {$ Y$ P- S8 s$ ^1 b! d1 _1 DT#19;(换刀,将要换刀片的刀换出来)
0 A$ I# I( {; x+ r8 H#[#2]=0;(清空计数变量)2 ^9 ^5 O8 ~* G# R9 F2 p
#3000=#3(T ERROR);(发出报警,后面括号里为报警信息,报警编号为3000+#3,如果是1号刀,编号就为3001)
% e7 f5 X# U' e0 U. H) A3 [ a. j1 Q- { ?" g N1 d3 R
|
|