global mom_tool_number mom_tool_name
global tn tNo
set tn [list $mom_tool_name]
set tNo [list $mom_tool_number]
[自动换刀]下任意位置插入下段代码:
proc PB_auto_tool_change { } {
global mom_tool_number mom_tool_name
global tn tNo
if {[lsearch $tn $mom_tool_name]==-1} {
lappend tn $mom_tool_name
if {[lsearch $tNo $mom_tool_number]!=-1} {
set st [string first "$mom_tool_number" $tNo]
if {[expr $st > 0]} {
set st [expr $st - 1]
}
set sn [lindex $tn $st]
MOM_abort "\n\n $mom_tool_name <---> $sn Same tool number\n\n"
}
lappend tNo $mom_tool_number
}