求助：如何增加后处理判断刀号重复报警

南坨志

如题：当一个程序组含有多把刀具时，如何自动判断选用刀具的刀具号有重复现象？

hsjljl

将以下代码插入至"工序起始序列">>"刀轨开始"下。


global mom_tool_number mom_tool_name tool_seq tool_name_array tool_num_array
if {![info exists tool_seq]} {
     set tool_seq 0
}
set tool_name_array($tool_seq) $mom_tool_name
set tool_num_array($tool_seq) T[format "%.2d" $mom_tool_number]
set i 0
while {$i<$tool_seq} {
     if {$tool_num_array($i)=="T[format "%.2d" $mom_tool_number]"} {
         incr tool_seq -1
         if {![string equal $tool_name_array($i) $mom_tool_name]} {
             MOM_display_message "闪光蜗牛提示：刀具 $mom_tool_name 与\
$tool_name_array($i) 使用了相同刀具号 请检查"
         }
     }
     incr i
}
incr tool_seq

lmlsy

编程的时候把刀具号栏调出来，一目了然的可以看到有没有重复刀具号。

bingge001

是这个意思吧，我的后处理有

且行且珍惜、

貌似论坛很多后处理都有这功能，随便下几个试试，然后“借鉴”一下

zrui_cm

bingge001 发表于 2020-12-15 13:44
是这个意思吧，我的后处理有

大伽，能否分享出来....

bingge001

zrui_cm 发表于 2021-4-19 23:14
大伽，能否分享出来....

你下载我的后处理，TCL不加密的

306795015

hsjljl 发表于 2021-11-8 16:09
将以下代码插入至"工序起始序列">>"刀轨开始"下。

牛 B    牛 B    牛 B   牛 B   牛 B    牛 B   牛 B  

xiaocai*

#==两个刀具同刀号和刀补报警==
global mom_tool_number tp inr tpi mom_tool_name tn tni mom_operation_name
if {[info exists tp]} {
    for {set i 0} {$i < $inr} {incr i} {
          set tpi [lindex $tp $i]
          set tni [lindex $tn $i]
        if {$mom_tool_number==$tpi && $mom_tool_name!=$tni } {
          set errm [MOM_display_message "刀具名为$tni
与
刀具名为$mom_tool_name
刀号相同都为$mom_tool_number" "两把刀同一刀号错误" "E"]
        }
    }
} else {set inr 0}
lappend tp $mom_tool_number
lappend tn $mom_tool_name
incr inr

5175847

xiaocai* 发表于 2024-1-25 14:48
#==两个刀具同刀号和刀补报警==
global mom_tool_number tp inr tpi mom_tool_name tn tni mom_operation_ ...

你好 大师傅，这个同一把刀具会报警怎么取消掉，有时需要等高刀具补偿，所以用同一把刀不同直径。就不能生成后处理{:handshake: