后置处理程式中三轴极限值的呼叫

#_______________________________________________________________________________
# Kinematic Declarations在此段中填加如下的设置,,设置XYZ的最大,最小极限值
#_______________________________________________________________________________
  
          set max_z                                 -9999.9
          set min_z                                  9999.9
          set max_x                                 -9999.9
          set min_x                                  9999.9
          set max_y                                 -9999.9
          set min_y                                  9999.9
  
proc     MOM_end_of_program {} {在此段中呼叫极限值
#_______________________________________________________________________________
# This procedure is executed at the end of the program after all
# the paths are traversed.
#_______________________________________________________________________________
         global mom_machine_time
  
         global mom_part_name
         global mom_output_file_basename
  
         global max_z min_z
         global max_x min_x
         global max_y min_y
  
         
     #      MOM_spindle_off
#         MOM_coolant_off
  
           
   #       MOM_do_template end_of_program
          MOM_output_literal "M30"
          MOM_output_literal "END PGM $mom_output_file_basename MM"
          MOM_set_seq_off
          set zmax [string trimright [format %.4f $max_z] 0]
          set zmin [string trimright [format %.4f $min_z] 0]
          set xmax [string trimright [format %.4f $max_x] 0]
          set xmin [string trimright [format %.4f $min_x] 0]
          set ymax [string trimright [format %.4f $max_y] 0]
          set ymin [string trimright [format %.4f $min_y] 0]
  
          MOM_output_literal "(MAXZ = $zmax , MINZ = $zmin)"   
          MOM_output_literal "(MAXX = $xmax , MINX = $xmin)"   
          MOM_output_literal "(MAXY = $xmay , MINY = $ymin)"  
  
proc MOM_before_motion {} {在此定义极限值
  
global mom_pos
global max_z min_z
  
   set pb_start_of_program_flag 0     
   if { $mom_pos(2) < $min_z } { set min_z $mom_pos(2) }
   if { $mom_pos(2) > $max_z } { set max_z $mom_pos(2) }
  
global mom_pos
global max_x min_x
  
   set pb_start_of_program_flag 0     
   if { $mom_pos(0) < $min_x } { set min_x $mom_pos(0) }
   if { $mom_pos(0) > $max_x } { set max_x $mom_pos(0) }
   
global mom_pos
global max_y min_y
  
   set pb_start_of_program_flag 0     
   if { $mom_pos(1) < $min_y } { set min_y $mom_pos(1) }
   if { $mom_pos(1) > $max_y } { set max_y $mom_pos(1) }
  
注:$mom_pos(0)  为X轴
$mom_pos(1)为Y轴
$mom_pos(2)为Z轴

希望大家顶起来,让需要的人都看到.
  
注意下划线位置

产生如下所示的结果
(MAXZ = 10. , MINZ = 0.2)
(MAXX = 71.812 , MINX = -54.476)
(MAXY = 45.852 , MINY = -49.132)
(TIME: 0.4 MIN)
  
但是此语句只能呼叫程式中的最大值，如果用圆弧逼近时不能准确定义其值，走全圆时，不能捕捉其象限点值

加工时间的呼叫
global mom_machine_time
MOM_output_literal "(TIME: [format "%0.1f" $mom_machine_time] MIN)"

刀具信息的呼叫
  
global   mom_tool_number
        global   mom_tool_diameter
        global   mom_tool_corner1_radius
        global mom_tool_name
        global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length mom_tool_length
  
       MOM_output_literal ";(ToolName=$mom_tool_name\
      D=[format "%.2f" $mom_tool_diameter]\
      R=[format "%.2f" $mom_tool_corner1_radius]\
      F=[format "%.2f" $mom_tool_flute_length]\
      L=[format "%.2f" $mom_tool_length])"

加工余量的呼叫
  
global mom_stock_part mom_stock_floor  
   MOM_output_literal "(Part stock=[format "%.3f" $mom_stock_part] MM \ Floor stock=[format "%.3f" $mom_stock_floor ] MM)"

ugnx3.0后处理不能处理螺旋进刀https://www.icax.org/viewthread. ... %3D1&page=#pid=

各位pb高手帮忙一下，在开起turbo模式后无法输出G18,G19,怎么办?https://www.icax.org/viewthread. ... %3D1&page=#pid=

加工时间的问题
$mom_machine_time 包含快速移动时间
$mom_cutting_time 只含实际切削的时间

顶一下，学到了不少