出现重复刀号，后处理可继续或终止操作。

ysh5858

这应该是网友qq758917784和闪光蜗牛的代码，想实现如图继续和终止处理两个功能，请大师们帮个帮，谢谢！

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]} {
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

ysh5858

首先感谢coocool05兄的帮助已搞定！发上改好后的码分享给有需求的人！global mom_tool_number
global mom_tool_name
global tool_seq tool_name_array
global 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]} {

  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 中止
        }
    }

         }
     }
     incr i
}
incr tool_seq

思念shi种罪

怎么没报警呀， 加在哪里

思念shi种罪

ysh5858 发表于 2022-3-3 20:23
首先感谢coocool05兄的帮助已搞定！发上改好后的码分享给有需求的人！global mom_tool_number
global mom_ ...

怎么没报警呀， 加在哪里

mysuperug

谢谢大神分享

ckbha123

谢谢分享.论坛高手如云，再次感谢

LHNJNHIN

global mom_tool_number
global mom_tool_name
global tool_seq tool_name_array
global 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]} {

  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 中止
        }
    }

         }
     }
     incr i
}
incr tool_seq

是这样吗？

lj564

LHNJNHIN 发表于 2023-11-7 13:05
global mom_tool_number
global mom_tool_name
global tool_seq tool_name_array

谢谢无私帮助