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

tmysr113 · 发表于 2019-4-9 08:49:08

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

lv007 · 发表于 2019-4-9 09:01:56

66666😉😉😉😉

rennengUG · 发表于 2019-4-9 09:14:47

感谢楼主的无私奉献！！

707538608 · 发表于 2019-4-9 09:33:49

看看，学习

yiguojun · 发表于 2019-4-9 09:42:53

看看再说有什么新意

房小箭 · 发表于 2019-4-9 09:43:13

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

请多关照UG新手 · 发表于 2019-4-9 09:47:40

降低你的编程失误风险

sid2015 · 发表于 2019-4-9 09:47:49

感谢楼主分享

destiny0515 · 发表于 2019-4-9 09:47:59

本帖最后由 destiny0515 于 2019-4-9 10:07 编辑

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楼的新代码

年轻不曾失败 · 发表于 2019-4-9 09:48:01

学习学习

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

VIP会员

论坛元老