请大神帮我翻译一下下面的，TCL语言的意思
#PB_CMD_TOOL_INFOset outputthd 1
global toollistmom_tool_cutcom_register mom_cutcom_adjust_register mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_adjust_register mom_tool_adj_reg_defined mom_tool_number
set tdi [ format"%.2f" $mom_tool_diameter]
set tr [ format"%.2f" $mom_tool_corner1_radius]
if {
set tt $mom_tool_number
} else {
set tt 0
}
if {
set th $mom_tool_adjust_register
} else {
set th 0
}
if {
set td $mom_tool_cutcom_register
} else {
set td 0
}
set tt
set th
set td
set tt
set th
set td
global mom_stock_part side
global mom_stock_floor
global mom_stock use floor same as side
global mom_operation_type
global mom_motion_type
set xystock 0
set zstock 0
#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 {!} {
set ino 1
if {} {
MOM_remove_file $tool_lists_file_name
}
}
set tfile
if {$ino > 1} {
puts $tfile "(ZMAX= ZMIN=)"
}
set mom_sys_max_travel(2) -9999.999
set mom_sys_min_travel(2)9999.999
#puts $tfile "(NC ne:$mom_group_name.$mom_output_file_suffix)"
if {$outputthd == 1 }{
puts $tfile "(T$tt:$mom_tool_name D:$tdi R:$tr H:$th D:$td)"
}
set ino
close $tfile
puts $tfile "(ZMAX= ZMIN=)"
}Z 的最大深度和最小深度代码是排在刀具表的前面，为什么程序单上的Z 的最大深度和最小深度在每把刀具的后面
Z的最大深度可不可以放在，每把刀具一行的后面，代码要怎么写网上有人发的但第一把刀和最后一把刀没有刀具单
页:
[1]