|
|
发表于 2020-11-22 20:50:55
|
显示全部楼层
程序头刀具清单源码以及各种防出错代码
global numbers toolnumbers mom_operation_name
global nStep nt mom_tool_number ni ntd mom_tool_name
set nStep [expr $nStep+1]
#set nt(0) 9999
set nt($nStep) $mom_tool_number
set ntd($nStep) $mom_tool_name
#MOM_output_literal " nt($nStep): $nt($nStep) "
for { set ni 0 } { $ni < $nStep } { incr ni } {
#MOM_output_literal " nt($ni): $nt($ni) "
if { $nt($ni) == $mom_tool_number } {
#MOM_output_literal " Same as before"
set nStep [expr $nStep-1]
if { [string compare $ntd($ni) $mom_tool_name] } {
MOM_abort " \n\n same tool number \n\n qq202520 提示您：\n\n 操作：《$mom_operation_name》的刀具号与前面的刀号相同，请重新设定刀具号 \n\n\n "
}
return
}
}
|
|
