进玉后处理的参考

#======================================================================
proc output_desr { } {
#======================================================================
   global  tool_name  cut_descr  cut_stock  cut_depth
   global  mom_group_name  mom_machine_time
   global mom_output_file_basename  mom_output_file_directory  mom_sys_output_file_suffix

   global  tool_number_1  floor_stock_1 min_speed_1 max_speed_1
   global  min_feed_1 max_feed_1
   global  tool_diameter_1  corner1_radius_1

   MOM_set_seq_off
 
   set desr_file_name "${mom_output_file_directory}${mom_output_file_basename}.${mom_sys_output_file_suffix}"
   
   MOM_close_output_file $desr_file_name
   set desr_file_name "D:\ju_conf\temp\$mom_group_name.xl"
   MOM_remove_file $desr_file_name
   MOM_open_output_file $desr_file_name
   MOM_output_literal "$mom_group_name  $tool_name  $cut_descr  [format %3.2f $cut_stock]  [format %4.1f $cut_depth] [format %4.0f $mom_machine_time]  [format %4.0f $tool_number_1]  [format %6.0f $min_speed_1]  [format %6.0f $max_speed_1]  [format %6.0f $min_feed_1]  [format %6.0f $max_feed_1] [format %3.2f $floor_stock_1] [format %3.2f $corner1_radius_1] [format %3.3f $tool_diameter_1]"



   MOM_close_output_file $desr_file_name
   
}