找回密码
 立即注册

QQ登录

只需一步,快速开始

微信扫码登录

搜索
查看: 4700|回复: 7

[已解决] 出现重复刀号,后处理可继续或终止操作。

[复制链接]

4

主题

101

回帖

9426

积分

少校

积分
9426
发表于 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 {![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
[KIA4%G6VJSHVHRXV8VMW6C.png

处理未完成提示错误信息

处理未完成提示错误信息

4

主题

101

回帖

9426

积分

少校

积分
9426
 楼主| 发表于 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 {![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


0

主题

88

回帖

2128

积分

少尉

积分
2128
发表于 2022-6-20 09:37:24 | 显示全部楼层
怎么没报警呀, 加在哪里

0

主题

88

回帖

2128

积分

少尉

积分
2128
发表于 2022-6-20 09:37:57 | 显示全部楼层
ysh5858 发表于 2022-3-3 20:23
首先感谢coocool05兄的帮助已搞定!发上改好后的码分享给有需求的人!global mom_tool_number
global mom_ ...

怎么没报警呀, 加在哪里

0

主题

66

回帖

531

积分

三级士官

积分
531
发表于 2022-11-19 14:15:34 | 显示全部楼层
谢谢大神分享

0

主题

266

回帖

2480

积分

少尉

积分
2480
发表于 2023-10-19 08:24:25 | 显示全部楼层
谢谢分享.论坛高手如云,再次感谢

4

主题

98

回帖

7421

积分

少校

积分
7421
发表于 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 {![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

是这样吗?

11

主题

477

回帖

3879

积分

中尉

积分
3879
发表于 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

谢谢无私帮助
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

咨询QQ:1359218528|发帖须知!|Archiver|手机版|小黑屋|UG爱好者论坛 ( 京ICP备10217105号-2 )

GMT+8, 2025-1-23 09:21

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表