ug 后处理中显示所有刀具信息

请教各位达人，要在出好的程序里显示程序里所有的刀具信息，在PB中
用什么变量参数，如果是在tcl文件中加入语句，那么语句是什么？
  谢谢各位！

zzrxt兄,帮我看看，谢谢！

首先在program项中的custom command中导入文件pb_cmd_tool_int_list,然后在适当位置加入如下信息，如图：
  
switch $tool_type {
  
      "MILL" {
        set output [format "T%0.0f  %-5s  DIA=%.0f  R=%.0f  H%.0f  D%.0f  FL%.0f"  $mom_tool_number $template_subtype $mom_tool_diameter $mom_tool_corner1_radius  $mom_tool_length_adjust_register $mom_tool_cutcom_register $mom_tool_flute_length ]   
        }

以前的帖子有讲过，搜索一下。

搜索过了，显示一把，两把的变量都有，但是没有显示多把的。
比如，做电极程序，总共用了10把刀，是不是可以在程序头上
显示这10把刀的信息？包括刀号，补正号等？

然后在如下图中位置中加入如下语句，我是全部COPY下来的，有些本身就有的。上图中有的在此图中必须要有才行！
   global mom_tool_name
   global mom_tool_number
   global mom_tool_diameter
   global mom_tool_length
   global mom_tool_type
   global mom_template_subtype
   global mom_tool_point_angle
   global mom_tool_flute_length
   global mom_tool_length_adjust_register
   global mom_tool_nose_radius
   global mom_tool_radius
   global mom_tool_corner1_radius
   global mom_tool_flute_length
   global mom_tool_orientation
   global mom_sys_control_out mom_sys_control_in
   global cycle_program_name current_program_name
   global mom_sys_tool_stack
   global mom_tool_cutcom_register
   global tool_data_buffer
   global mom_sys_prev_machine_time
   global mom_machine_time
   global mom_tool_time
  
你试试看！

我的是这样：

非常感谢zzrxt兄，明天我到单位试试。
     谢谢了！

zzrxt兄,我加了，但是没有用，我把文件发上来，你帮忙改改，谢谢！

文件