UG爱好者

标题: 出现重复刀号，后处理可继续或终止操作。 [打印本页]

作者: ysh5858 时间: 2022-3-3 17:27
标题: 出现重复刀号，后处理可继续或终止操作。
本帖最后由 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 (86.8 KB, 下载次数: 297)

EBUKS1}AW)9%)G%8GRG_H~E.png (57.29 KB, 下载次数: 312)

处理未完成提示错误信息

作者: ysh5858 时间: 2022-3-3 20:23
首先感谢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种罪 时间: 2022-6-20 09:37
怎么没报警呀，加在哪里

作者: 思念shi种罪 时间: 2022-6-20 09:37

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

怎么没报警呀，加在哪里

作者: mysuperug 时间: 2022-11-19 14:15
谢谢大神分享

作者: ckbha123 时间: 2023-10-19 08:24
谢谢分享.论坛高手如云，再次感谢

作者: LHNJNHIN 时间: 2023-11-7 13:05
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 时间: 2023-12-14 13:23

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

谢谢无私帮助

欢迎光临 UG爱好者 (https://www.ugsnx.com/)