[代码分享]再度降低你的编程失误风险！不同刀具使用相同刀号时出现提示

lxk123565

6666666666

☆风爱海☆*

代码分享]再度降低你的编程失误风险！不同刀具使用相同刀号时出现提示 [修改

xiandajin

6666666666

Someday。

谢谢分享

付文兵

这个有必要，能拯救忙中出错

富_泽_天_下_

这个好，遇到过

kzh6584

新人，想学习学习，谢谢！

gn02362507

destiny0515 发表于 2019-4-9 09:47
经过测试，这个功能已经实现
将主贴第二段代码替换为以下：
global mom_tool_number mom_tool_name

一次后处理多个刀具及刀号时且不按照顺序，提醒刀具名称有误。

destiny0515

gn02362507 发表于 2019-6-2 21:57
一次后处理多个刀具及刀号时且不按照顺序，提醒刀具名称有误。

经过一段时间的测试，发现贴中代码在一些情况下会有bug出现。经过向前辈请教，更正了代码，并在小圈子内进行了测试，暂未出现误报情况。
本次使用了[数组]命令，使得代码更加精简。
使用以下代码时，需移除本帖中已使用的其他所有代码。将以下代码插入至"工序起始序列">>"刀轨开始"下。


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

gn02362507

destiny0515 发表于 2019-6-3 00:51
经过一段时间的测试，发现贴中代码在一些情况下会有bug出现。经过向前辈请教，更正了代码，并在小圈子内 ...

小弟开始学习后处理不久，看到楼主这次用了数组，又要让我花费更多时间来了解，原先楼主的代码(原理)让我琢摩半天。

最后还是谢谢楼主的无私分享!!!THX