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

destiny0515

有人（就是我）在编程时由于粗心，出现不同刀具却用了同一个刀号的情况，轻则废活废刀，重则撞机。

前阵子看到有人提出来这个问题，可是大神们懒得细说，萌新们又找不到门径。我班门弄斧的写了一些代码，经过测试可用。那么就把代码放在这里，大神可以给些建议，萌新拿去学习，欢迎大家讨论，共同进步。觉得好的同学们给个赞吧

效果图：

[第一个刀具]下任意位置插入下段代码(如果第一个刀具没有内容则跳过此段)：
global mom_tool_number mom_tool_name
global tn tNo
set tn [list $mom_tool_name]
set tNo [list $mom_tool_number]

[自动换刀]下任意位置插入下段代码：
global mom_tool_number mom_tool_name
global tn tNo
if {[lsearch $tn $mom_tool_name]==-1} {
lappend tn $mom_tool_name
if {[lsearch $tNo $mom_tool_number]!=-1} {
MOM_display_message "\n\n 闪光蜗牛提示：刀具 $mom_tool_name 与其他刀具使用了相同刀具号 请确认\n\n"
}
lappend tNo $mom_tool_number
}

补充内容 (2019-4-9 10:02):
129楼更新代码：提示相同的两把刀具名称，可更快捷的知道哪把刀出现错误输入

补充内容 (2019-4-9 13:17):
注：此代码中的“MOM_display_message”只能在NX9.0及以上版本使用，如果是低版本，可以替换为“MOM_abort”

补充内容 (2019-4-13 09:15):
更正一处错误：主贴中第一段代码在无论[第一个刀具]有无内容，均需插入，可降低报错的可能性。感谢@zhaopengg的反馈。

补充内容 (2019-6-3 01:12):
559楼更新代码：原代码在一定条件下会误报重复刀号，请直接跳至559楼使用新代码。
感谢大家的反馈。

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

(ˇˇ）彬～

destiny0515 发表于 2019-4-24 06:23
语法有错误。你复制过去后，不要修改，点确定试试

这个厉害了  而且高级  最主要好玩  哈哈哈

destiny0515

jianfeng13148 发表于 2019-4-8 18:14
能同时提示与那把刀相同就好了

经过测试，这个功能已经实现
将主贴第二段代码替换为以下：
global mom_tool_number mom_tool_name
global tn tNo
if {[lsearch $tn $mom_tool_name]==-1} {
lappend tn $mom_tool_name
if {[lsearch $tNo $mom_tool_number]!=-1} {
set st [string first "$mom_tool_number" $tNo]
if {[expr $st > 0]} {
set st [expr $st - 1]
}
set sn [lindex $tn $st]
MOM_display_message "\n\n 闪光蜗牛提示：刀具 $mom_tool_name 与 $sn 使用了相同刀具号 请确认\n\n"
}
lappend tNo $mom_tool_number
}



补充内容 (2019-6-3 01:05):
以上代码在一定条件下会出bug，请使用559楼的新代码

mezhangyj

花了不少工夫才把新方案的代码看明白。感觉新方案(使用数组+while语句)其实效率不如原方案(使用列表)。假设有很多条刀路，那么靠后的刀路判断次数过多。在极端情况下，如果有100条路且所用刀具都不重复的话，那么第100刀路需要判断100次；第99条刀路要判断99次。以此类推。即便是有重复的刀具，刀库也一共只有14支刀，那么靠后的刀路也还是会判断14次。这么多次判断，执行效率应该不如旧方案。

偽袮ジ痴鈊

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

这条代码每个操作都会提示一次，要是100个就会提示100次这样会浪费时间。要是把它修改成相同刀具提示后就不再提醒就好啦

destiny0515

(ˇˇ）彬～ 发表于 2019-4-22 14:52
假如需要不同刀具名用同一个刀好怎么办

这个是提示功能，不是报警，所以还是会正常的出程序

QQ295105609

645+45+45+45+45

yrx950217

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

wang3pang

自己动手丰衣足食

yufu2022

学习一下

邵阳_新邵_一刀

不同刀具使用相同刀号时出现提示

Xujianbo

666666

jianfeng13148

谢谢分享

疯狂的铣叨

谢谢楼主的无私分享

echo101601

学习        

aigo8000*

谢谢分享@！！@！@