ysh5858 发表于 2022-3-3 17:27:41

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

本帖最后由 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

ysh5858 发表于 2022-3-3 20:23:40

首先感谢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


思念shi种罪 发表于 2022-6-20 09:37:24

怎么没报警呀, 加在哪里

思念shi种罪 发表于 2022-6-20 09:37:57

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

怎么没报警呀, 加在哪里

mysuperug 发表于 2022-11-19 14:15:34

谢谢大神分享

ckbha123 发表于 2023-10-19 08:24:25

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

LHNJNHIN 发表于 2023-11-7 13:05:56

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

是这样吗?

lj564 发表于 2023-12-14 13:23:38

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


谢谢无私帮助

XIANGHUA365 发表于 3 天前

感谢无私帮助,赠人玫瑰,手有余香
页: [1]
查看完整版本: 出现重复刀号,后处理可继续或终止操作。