刀具号为0同一个程序组中出现多个几何体报警语句分享

tombai691019

现在在坛子中愿意分享后处理制作功能的人越来越少了，分享了也不愿分享方法，前面有个坛友问编程中多个刀具号为零怎么设置只报警提示一次的问题，我已回答，在这个帖里单独分享。另外同一个程序组中出现多个几何体怎样才能只报警提示一次这里也分享一下（说明一下，这个报警在新版配置器制作的后处理是可以实现的，测试也是可以的，但用构造器制作的后处理现只能在单个组后处理时才能实现，多个程序组同时处理时如果含多个几何体的程序不处在第一个时测试不通过，大家可以测试）。其实可以举一翻三。一些其它的类似问题也可以这样处理。大家要以尝试。放在哪里有兴趣的可以试试。我的后处理测试 是可以的。
1，编程中多个刀具号为零怎么设置只报警提示一次的语句。
global number_js
set number_js 1


global mom_tool_number mom_tool_name tool_seq tool_name_array tool_num_array

if {$mom_tool_number==0 && $number_js == 1 } {

     MOM_display_message "刀具号为0：请注意查检查！"
             incr number_js
         }
2，同一个程序组中出现多个几何体怎样才能只报警提示一次语句。
  global mom_operation_name_list mom_mcsname_attach_opr bj
       foreach op $mom_operation_name_list {
           lappend mcs_list $mom_mcsname_attach_opr($op)
           }
          set mcs_list_count [llength $mcs_list]
          set bj 1
       for {set i 1} {$i <= [expr $mcs_list_count - 1]} {incr i} {
         if {![string match [lindex $mcs_list 0] [lindex $mcs_list $i]] && $bj == 1} {
           set msg [MOM_display_message 操作名为:[lindex  $mom_operation_name_list $i]的程序中包含非G54坐标或不同的几何体，请选择 后处理消息 I 按原程序输出  中止后处理]
    switch $msg {
        1 {
            set offset_flag 1
        }
        2 {
            MOM_abort 中止
         }
       }
     incr bj
      }
    }

hegaoj3

谢谢大师分享

shenhh1982

谢谢分享