来源： https://www.ugsnx.com/thread-345276-1-1.html

前几天因为编程没有细心检查 ，复制上一步的刀路。导致钻孔的避让平面设置在了负方向，引起了撞机事故。

为了避免此类事故再次发生，写了一个检查程序。

具体思路是：

首先在快速移动的模块里面添加一个定制语句，读取当前刀路的安全高度值，也就是G43H00Z00里的Z值。

global mom_pos zz
set zz [format %.2f $mom_pos(2)]

然后在现成循环的第一项里添加定制命令

global zz mom_operation_name mom_cycle_rapid_to_pos
if {$zz < $mom_cycle_rapid_to_pos(2)} {
MOM_output_to_listing_device "程序名称:$mom_operation_name,钻孔安全高度$zz小于起始高度$mom_cycle_rapid_to_pos(2)!"
set msg [MOM_display_message 程序名称:$mom_operation_name,钻孔安全高度$zz小于起始高度$mom_cycle_rapid_to_pos(2)! 后处理消息：I 中止后处理]
    switch $msg {
        1 {
            MOM_abort 中止
        }
    }
}

这样当我们把不小心避让高度设置到负方向的时候就会报警，阻止后处理输出。

不足的地方还请各位大佬斧正！