出现重复刀号,后处理可继续或终止操作。
本帖最后由 ysh5858 于 2022-3-3 17:29 编辑这应该是网友qq758917784和闪光蜗牛的代码,想实现如图继续和终止处理两个功能,请大师们帮个帮,谢谢!
global mom_tool_number mom_tool_name tool_seq tool_name_array tool_num_array
if {!} {
set tool_seq 0
}
set tool_name_array($tool_seq) $mom_tool_name
set tool_num_array($tool_seq) T
set i 0
while {$i<$tool_seq} {
if {$tool_num_array($i)=="T"} {
incr tool_seq -1
if {!} {
set msg[ MOM_display_message刀具【$mom_tool_name】与【$tool_name_array($i)】同为:$mom_tool_number号刀,是否后处理? 警告! I 继续处理中止处理 ]
switch $msg {
1 { set offset_flag 1
}
2 {MOM_abort \n\n已中止后处理程序\n\n
}
}
}
}
incr i
}
incr tool_seq 首先感谢coocool05兄的帮助已搞定!发上改好后的码分享给有需求的人!global mom_tool_number
global mom_tool_name
global tool_seq tool_name_array
global tool_num_array
if {!} {
set tool_seq 0
}
set tool_name_array($tool_seq) $mom_tool_name
set tool_num_array($tool_seq) T
set i 0
while {$i<$tool_seq} {
if {$tool_num_array($i)=="T"} {
incr tool_seq -1
if {!} {
set msg
switch $msg {
1 {
set offset_flag 1
}
2 {
MOM_abort 中止
}
}
}
}
incr i
}
incr tool_seq
怎么没报警呀, 加在哪里 ysh5858 发表于 2022-3-3 20:23
首先感谢coocool05兄的帮助已搞定!发上改好后的码分享给有需求的人!global mom_tool_number
global mom_ ...
怎么没报警呀, 加在哪里 谢谢大神分享
谢谢分享.论坛高手如云,再次感谢 global mom_tool_number
global mom_tool_name
global tool_seq tool_name_array
global tool_num_array
if {!} {
set tool_seq 0
}
set tool_name_array($tool_seq) $mom_tool_name
set tool_num_array($tool_seq) T
set i 0
while {$i<$tool_seq} {
if {$tool_num_array($i)=="T"} {
incr tool_seq -1
if {!} {
set msg
switch $msg {
1 {
set offset_flag 1
}
2 {
MOM_abort 中止
}
}
}
}
incr i
}
incr tool_seq
是这样吗? LHNJNHIN 发表于 2023-11-7 13:05
global mom_tool_number
global mom_tool_name
global tool_seq tool_name_array
谢谢无私帮助 感谢无私帮助,赠人玫瑰,手有余香
页:
[1]