两种方法将自己的后处理添加到进玉批处理里面

蔚枫心蓝 · 发表于 2013-4-30 23:11

本帖最后由蔚枫心蓝于 2013-5-3 22:42 编辑

用ug的人应该都对进玉外挂不陌生了，因为它的很多功能都很实用，比如批量后处理并出程序单。可是进玉批量后处理所用的后处理文件都是经过修改的，我们自己的后处理不修改的话，在进玉里面使用不了的。论坛上也看到了很多这方面的信息，现结合本论坛上的一些大神的帖子和自己的修改经验，在这里分享给大家。

所谓的两种方法，其实就是一个是有pui文件的修改方法，一个是没有pui文件的修改方法。

方法1：没有pui文件的修改方法

没有pui文件的情况下，只能修改tcl文件。论坛上有大神的图文教程，地址：http://bbs.uggd.com/thread-77646-1-1.html

方法2：有pui文件的修改方法

根据没有pui文件的修改方法我们可以发现，其实进玉的后处理就只是多了下面的这些命令而已，我们只要将这些命令添加进我们自己的后处理就可以了。

#======================================================================
proc cut_depth_circular { } {
#======================================================================
global cut_depth
global mom_pos

if { $cut_depth > $mom_pos(2) } {
   set cut_depth $mom_pos(2)
   }
}

#======================================================================
proc cut_depth_line { } {
#======================================================================
global cut_depth
global mom_pos

if { $cut_depth > $mom_pos(2) } {
   set cut_depth $mom_pos(2)
   }
}

#======================================================================
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

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]"
MOM_close_output_file $desr_file_name
}

#=================================================================
proc prog_end { } {
#=================================================================

MOM_output_literal "G91 Z150."
MOM_output_literal "M05"
MOM_output_literal "M09"
MOM_output_literal "M30"
MOM_output_literal "%"
}

#=================================================================
proc prog_head { } {
#=================================================================
global mom_group_name mom_date mom_tool_name
global prev_spind

global  tool_name  cut_descr  cut_stock  cut_depth
set tool_name ""
set cut_descr ""
set cut_stock 1
set cut_depth 0

set prev_spind 0

MOM_output_literal "%"
MOM_output_literal "( 法兰克后处理 )"
MOM_output_literal "(PROGRAM NAME: $mom_group_name)"
MOM_output_literal "(Time: $mom_date)"
MOM_output_literal "(Cutter Name: $mom_tool_name)"
#  MOM_output_literal "T1D1"
#  MOM_output_literal "HSCB(0.01)"
MOM_output_literal "G90G54G00X0.Y0."
}

#====================================================================
proc set_value_ju { } {
#====================================================================
global tool_name cut_descr cut_stock
global mom_tool_name mom_stock_part

if { $tool_name == "" } {
   set tool_name $mom_tool_name
   } else {
         if { $tool_name != $mom_tool_name } {
                                                set tool_name "操作中刀径不同"
                                                }
         }

if { $cut_stock == 1 } {
   set cut_stock $mom_stock_part
   } else {
            if { $cut_stock > $mom_stock_part } {
               set cut_stock $mom_stock_part
               }
            }

if { $cut_stock < 0 } {
         set cut_descr "光"
   } elseif { $cut_stock >= 0 && $cut_stock <= 0.1 } {
            set cut_descr "中"
   } else {
            set cut_descr "粗"
            }
}

#=================================================================
proc spindle_check { } {
#=================================================================
global mom_spindle_speed prev_spind

if { $mom_spindle_speed  < 1  } {
   if { $prev_spind == 0 } {
      set mom_spindle_speed  1500
      } else {
            set mom_spindle_speed  $prev_spind
            }
}

set prev_spind $mom_spindle_speed
}

我们先来顺着后处理的处理顺序来分析一下进玉添加的这些命令的作用。

#=================================================================
proc prog_head { } {
#=================================================================
global mom_group_name mom_date mom_tool_name
global prev_spind

global  tool_name  cut_descr  cut_stock  cut_depth
set tool_name ""
set cut_descr ""
set cut_stock 1
set cut_depth 0

set prev_spind 0

MOM_output_literal "%"
MOM_output_literal "( 法兰克后处理 )"
MOM_output_literal "(PROGRAM NAME: $mom_group_name)"
MOM_output_literal "(Time: $mom_date)"
MOM_output_literal "(Cutter Name: $mom_tool_name)"
#  MOM_output_literal "T1D1"
#  MOM_output_literal "HSCB(0.01)"
MOM_output_literal "G90G54G00X0.Y0."
}

此段代码首先是初始化了几个变量，然后将程序头部的部分代码已文本的形式直接输出，这里我要说的是这几个变量很重要！论坛上很多人都说修改后出现不能打开xl文件的错误，就是因为这几个变量设置错误导致的。一般我们自己的后处理都有程序头，而进玉的后处理没有程序头，因此我们可以将此代码中输出的程序头去掉。

重点来了！

如果我们直接将下面的这些程序头代码删掉，

MOM_output_literal "%"
MOM_output_literal "( 法兰克后处理 )"
MOM_output_literal "(PROGRAM NAME: $mom_group_name)"
MOM_output_literal "(Time: $mom_date)"
MOM_output_literal "(Cutter Name: $mom_tool_name)"
#  MOM_output_literal "T1D1"
#  MOM_output_literal "HSCB(0.01)"
MOM_output_literal "G90G54G00X0.Y0."

就会出现不能打开xl文件的错误，为什么呢？我们来看一下有关xl文件的代码。

#======================================================================
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

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]"
MOM_close_output_file $desr_file_name
}

细心的人就会发现此段代码中前面创建的几个变量和上面的是一样的。关键是“mom_group_name”这个变量，xl文件是用这个变量来命名的，这个变量的意思是“程序组名”，而这个变量的值是我们在程序顺序视图 QQ截图20130430215534.png

中设置的，这里会出错。

详细情况就是我们在后处理时，直接选择了操作 QQ截图20130430215534.png

而不是程序组

，这时此变量的值为空白，xl文件当然不能被创建。此情况只会出现在单条程序后处理时，因为进玉的后处理也支持单条程序后处理。解决办法就是在单条程序后处理时，选择程序组。

接着往下说，

#=================================================================
proc spindle_check { } {
#=================================================================
global mom_spindle_speed prev_spind

if { $mom_spindle_speed  < 1  } {
   if { $prev_spind == 0 } {
      set mom_spindle_speed  1500
      } else {
            set mom_spindle_speed  $prev_spind
            }
}

set prev_spind $mom_spindle_speed
}

此条代码是检查后处理中的转速设置。如果转速小于1或等于0的话，就将转速设置为1500。

#====================================================================
proc set_value_ju { } {
#====================================================================
global tool_name cut_descr cut_stock
global mom_tool_name mom_stock_part

if { $tool_name == "" } {
   set tool_name $mom_tool_name
   } else {
         if { $tool_name != $mom_tool_name } {
                                                set tool_name "操作中刀径不同"
                                                }
         }

if { $cut_stock == 1 } {
   set cut_stock $mom_stock_part
   } else {
            if { $cut_stock > $mom_stock_part } {
               set cut_stock $mom_stock_part
               }
            }

if { $cut_stock < 0 } {
         set cut_descr "光"
   } elseif { $cut_stock >= 0 && $cut_stock <= 0.1 } {
            set cut_descr "中"
   } else {
            set cut_descr "粗"
            }
}

此条代码是检查后处理中的刀具是否是同一把刀，以及余量信息。

#======================================================================
proc cut_depth_line { } {
#======================================================================
global cut_depth
global mom_pos

if { $cut_depth > $mom_pos(2) } {
   set cut_depth $mom_pos(2)
   }
}
#======================================================================
proc cut_depth_circular { } {
#======================================================================
global cut_depth
global mom_pos

if { $cut_depth > $mom_pos(2) } {
   set cut_depth $mom_pos(2)
   }
}

此两段代码具体作用我也说不清，但是不能去掉！

#======================================================================
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

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]"
MOM_close_output_file $desr_file_name
}

此段代码是输出程序单的，要放到后处理的尾部最后一条。

#=================================================================
proc prog_end { } {
#=================================================================

MOM_output_literal "G91 Z150."
MOM_output_literal "M05"
MOM_output_literal "M09"
MOM_output_literal "M30"
MOM_output_literal "%"
}

此段代码是程序尾，对于我们自己的后处理来说，一般都有程序尾，所以这些代码可以删掉。

好了，现在来讲具体的操作。这里有一个比较方便的方法将这些命令加入到后处理中，这里我已经修改好了，将下面的代码复制后保存为扩展名为tcl的文本文件，

#===============================================================================
# Exported Custom Commands created by Administrator
# on Sat Mar 16 15:45:53 2013 中国标准时间
#===============================================================================

#======================================================================
proc PB_CMD_cut_depth_circular { } {
#======================================================================
global cut_depth
global mom_pos

if { $cut_depth > $mom_pos(2) } {
   set cut_depth $mom_pos(2)
   }
}

#======================================================================
proc PB_CMD_cut_depth_line { } {
#======================================================================
global cut_depth
global mom_pos

if { $cut_depth > $mom_pos(2) } {
   set cut_depth $mom_pos(2)
   }
}

#======================================================================
proc PB_CMD_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

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]"
MOM_close_output_file $desr_file_name
}

#=================================================================
proc PB_CMD_group_name_date { } {
#=================================================================
global mom_group_name mom_date mom_tool_name
global prev_spind

global  tool_name  cut_descr  cut_stock  cut_depth
set tool_name ""
set cut_descr ""
set cut_stock 1
set cut_depth 0

set prev_spind 0

MOM_output_literal "(程序名: $mom_group_name 生成时间: $mom_date)"
}

#====================================================================
proc PB_CMD_set_value_ju { } {
#====================================================================
global tool_name cut_descr cut_stock
global mom_tool_name mom_stock_part

if { $tool_name == "" } {
   set tool_name $mom_tool_name
   } else {
         if { $tool_name != $mom_tool_name } {
                                                set tool_name "操作中刀径不同"
                                                }
         }

if { $cut_stock == 1 } {
   set cut_stock $mom_stock_part
   } else {
            if { $cut_stock > $mom_stock_part } {
               set cut_stock $mom_stock_part
               }
            }

if { $cut_stock < 0 } {
         set cut_descr "光"
   } elseif { $cut_stock >= 0 && $cut_stock <= 0.1 } {
            set cut_descr "中"
   } else {
            set cut_descr "粗"
            }
}

#=================================================================
proc PB_CMD_spindle_check { } {
#=================================================================
global mom_spindle_speed prev_spind

if { $mom_spindle_speed  < 1  } {
   if { $prev_spind == 0 } {
      set mom_spindle_speed  1500
      } else {
            set mom_spindle_speed  $prev_spind
            }
}

set prev_spind $mom_spindle_speed
}

然后
QQ截图20130430224454.png