优胜模具 发表于 2011-7-24 20:30:47

普通机后处理改为进玉自动出程序单后处理

普通机后处理改为进玉自动出程序单后处理视频


**** Hidden Message *****
tcl文件如下修改

一、加output_desr

#=============================================================
proc MOM_end_of_program { } {
#=============================================================
   MOM_force Once M_coolant
   MOM_do_template coolant_off
   MOM_force Once M_spindle
   MOM_do_template spindle_off
   PB_CMD_program_end1
   MOM_do_template end_of_program
   MOM_set_seq_off
   MOM_do_template rewind_stop_code
   PB_CMD_program_end2
output_desr

#**** The following procedure lists the tool list with time in commentary data
   LIST_FILE_TRAILER

#**** The following procedure closes the warning and listing files
   CLOSE_files
}


二、加prog_head

#=============================================================
proc PB_start_of_program { } {
#=============================================================

   if ] {
      PB_CMD_kin_start_of_program
   }
prog_head

   PB_CMD_init_turbo
   MOM_set_seq_off
   PB_CMD_program_start
   PB_CMD_init_helix
   PB_CMD_fix_RAPID_SET
}



三、加spindle_check，set_value_ju

#=============================================================
proc MOM_start_of_path { } {
#=============================================================
global mom_sys_in_operation
   set mom_sys_in_operation 1

global first_linear_move ; set first_linear_move 0
   TOOL_SET MOM_start_of_path

   if ] {
      PB_CMD_kin_start_of_path
   }

   PB_CMD_start_of_operation_force_addresses
   PB_CMD_path_start
spindle_check
set_value_ju
}


四、加cut_depth_circular

#=============================================================
proc MOM_linear_move { } {
#=============================================================
global feed_mode mom_feed_rate mom_kin_rapid_feed_rate

   if { ! || ! } {
      if { } {
         MOM_rapid_move
         return
      }
   }


   global mom_sys_abort_next_event
   if { } {
      if { ] } {
         PB_CMD_kin_abort_event
      }
   }


五、加cut_depth_line

   global first_linear_move

   if { !$first_linear_move } {
      PB_first_linear_move
      incr first_linear_move
   }

   MOM_do_template linear_move
cut_depth_line}



六、加在最后面

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




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

   globaltool_namecut_descrcut_stockcut_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 "( ttp )"
#   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 prog_end { } {
#=================================================================
   
#   MOM_output_literal "G91 Z150."
#   MOM_output_literal "M05"
#   MOM_output_literal "M09"
#   MOM_output_literal "M30"
#   MOM_output_literal "%"
}

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

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

   set prev_spind $mom_spindle_speed
}


#====================================================================
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 { } {
#======================================================================
   globaltool_namecut_descrcut_stockcut_depth
   globalmom_group_namemom_machine_time
   global mom_output_file_basenamemom_output_file_directorymom_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 "
   MOM_close_output_file $desr_file_name
   
}

╰┈┼↘奋斗 发表于 2013-9-11 18:41:59

dbank:ZGJhbms6Ly9kb3dubG9hZC9saW5rP25hbWU9XFVH57uP6aqM5oqA5ben5aSn5YWoLnJhciYmdXJsPWh0dHA6Ly9kbC52bWFsbC5jb20vZG93bmxvYWQvVUclRTclQkIlOEYlRTklQUElOEMlRTYlOEElODAlRTUlQjclQTclRTUlQTQlQTclRTUlODUlQTgucmFyP2Y9YzBwYWJhOGx3OCZpPSZoPTEzNzg4OTQ4MzEmdj1hZGNiMDE4MyZ1PTFlZmQxMjI5JmlwPTU4LjI1NC40LjY4JnA9MzAmbHBpZD0mdGM9MSZhdWlkPSZscz0mJmlzZGlyPTA=

38960584 发表于 2014-11-28 13:32:56

希望楼主管理员   给个编辑好的（比如自动换刀_通用_ys,）   我ys基础改了还是出现以上问题   在说改的一至五项加到什位置啊？强烈支持！！！   

fcl19870703 发表于 2014-9-15 01:11:09

非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，非常感谢，

优胜模具 发表于 2011-7-24 20:41:48

修改成功的后处理，能自动出单，带turbo指令，后处理速度非常快

距ゞ離 发表于 2011-10-28 21:21:08

四、加cut_depth_circular
加加加，加在哪里嘛，是不是加在cut_depth_circular后面，
说都没有说清楚，

距ゞ離 发表于 2011-10-28 21:45:35

骗 人的，加了也不行，强烈要求斑主出视屏教程，

milesli 发表于 2011-10-28 22:41:58

不行呀，没成功，强烈要求斑主出视屏教程！

cuijuanjuan521 发表于 2011-10-28 12:34:31

学习学习下！多谢了，下来慢慢研究:lol

xiaozl56 发表于 2011-9-26 15:06:09

还是没弄清楚怎么修改？

420116 发表于 2011-11-8 03:11:35

:D谢谢楼主 学习了 顶顶你

gy147258369 发表于 2011-11-7 23:02:15

袁老师真的很佩服你 接下来再帮我看看这个问题怎么解决 我用的是win764位系统 32位的UG7.5 后处理是进玉公司修改好的后出理在UG4.0里面平行铣走的很好但在7.5里面做的程式后处理后在同一台机上跑的好慢进给快都不行，，急 急 急！ 望袁老师能帮解决。我是高阳春。

ZHURUIRUI 发表于 2011-11-6 15:20:06

老大，能不能搞个视频出来晒晒啊！！！！
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 普通机后处理改为进玉自动出程序单后处理