发一段换刀的宏程序供大家参考;
O9002;
#1103=0;
IF[#1002 EQ 1]GOTO N;
G80;
G91 G30 Z0;
M19;
#1100=1;
IF [#1000 EQ 1];
N2 IF[1000 EQ 1] GOTO N1;
GOTO N2;
N1 M31;(刀套下)
M32;(扣刀)
M33;(主轴刀具松开)
M34;(拔刀抽刀)
M35;(主轴刀具卡紧)
M36;(换刀后回零)
12#1102=1;
M37;(刀套上)
#1101=1;
N3 IF [#1001 EQ 1]GOTO N;
GOTO N3;
N #1100=0;
#1101=0;
#1102=0;
#1103=1;
M99;