哪位大神帮忙解释一行下面代码是什么意思

qiuxiaolong

#output tool info
global ptp_file_name
global tool_lists_file_name
global ino
global mom_group_name mom_output_file_suffix mom_output_file_basename
global mom_sys_max_travel
global mom_sys_min_travel
global mom_machine_time
set tool_lists_file_name ${ptp_file_name}_toollists
if {![info exists ino]} {
    set ino 1
    if {[file exists $tool_lists_file_name]} {
    MOM_remove_file $tool_lists_file_name
    }
}
set tfile [open $tool_lists_file_name a]

if {$outputthd == 1 } {
    puts $tfile "(T$tt,H$th,$mom_tool_name,D$tdi,R$tr)"
} else {
    puts $tfile "(T00,H00,$mom_tool_name,D$tdi,R$tr)"
}


set ino [expr $ino+1]
close $tfile


里面的set  tool_lists_file_name  ${ptp_file_name}_toollists   这行代码是什么意思    后处理会多一个刀具表文件，能不能重命名  
会多个这个文件      后处理文件名_toollists

aigo8000*

这是后处理关于刀具信息的