|
|
发表于 2020-2-22 11:21:05
|
显示全部楼层
本帖最后由 qq758917784 于 2020-2-22 11:22 编辑
将此定制命令放在 刀轨开始 处
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) 使用了相同刀具号" QQ同步微信：758917784 I 继续输出 中止后处理]
switch $msg {
1 {set offset_flag 1}
2 {MOM_abort \n\n已中止后处理程序\n\n}
}
}
}
incr i
}
incr tool_seq |
|
