宏程序

O9001
N1 IF[#1000EQ1]GOTO19 刀具是否在主轴上
N2 #199=#4003(G90/G91) G90\G91
N3 #198=#4006(G20/G21) G20\G21
N4 IF[#1002EQ1]GOTO7 主轴上是否有刀
N5 G21G91G30P2Z0M19 回第二参考点
N6 GOTO8
N7 G21G91G28Z0M19 回第一参考点
N8 M50 换刀开始
N9 M52 刀盘向右
N10 M53 松刀吹气
N11 G91G28Z0 回第一参考点
N12 IF[#1001EQ1]GOTO15 T代码是否是T0
N13 M54 刀库旋转
N14 G91G30P2Z0 回第二参考点
N15 M55 刀具夹紧
N16 M56 刀盘向左
N17 M51 换刀结束
N18 G#199G#198 恢复模态
N19 M99