求批处理开头要所有刀具信息的

hc0829 · 发表于 2010-9-1 19:30

求批处理开头要所有刀具信息的，有的高手请传个pui.tcl.def文件，麻烦教教我怎么加的，谢谢咯先！！！

4b2ed7526ecc78f · 发表于 2010-10-4 20:47

等待中，谢谢

aqiso · 发表于 2010-10-5 18:42

#MOM_output_literal "                唯科(厦门)精密塑胶模具有限公司CNC加工工艺单                "
#MOM_output_literal "                ===========================================                "
#  set output [format "编程员 : %-10s  编程日期 : %-20s" 杨普 $mom_date]
#MOM_output_literal "$output"
#  set output [format "档案路径 : %-25s 电极编号:  " $mom_part_name]
#MOM_output_literal "$output"
#MOM_output_literal "------------------------------------------    FANUC    MAKINO    SIEMENS    "
#MOM_output_literal "NC程序路径: \\Server\\cnc\\yp\\ ◆机台: MAKINO "
#MOM_output_literal "-----------------------------------------------------------------"
#MOM_output_literal "客户:建霖124808电极  分中数:  X中=0  Y中=0  Zmax=0"
#MOM_output_literal "-----------------------------------------------------------------"
#MOM_output_literal "序号程序名称    刀具       余量    Z深度    转速进给率加工说明 "
#MOM_output_literal "-------------------------------------------------------------------------------"

aqiso · 发表于 2010-10-5 20:42

proc MOM_end_of_path { } {
#_____________________________________________________________
# This procedure is executed at the end of a path.
#_____________________________________________________________
global nurbs_move_flag
global max_z min_z
global max_x min_x
global max_y min_y
global mom_path_name
global mon_tool_name
global mom_tool_diameter
global mom_tool_cornerl_radius
global nurbs_move_flag
global mom_stock_part
global mom_stock_floor
global mom_cutting_time
global mom_cut_level_min_depth
global mom_cut_level_max_depth
global mom_oper_program
global mom_spindel_rpm

aqiso · 发表于 2010-10-5 21:07

#================================================================
proc MOM_end_of_group {} {
#===============================================================
global mom_stock_part
global max_cut_depth
global mom_group_name
global mom_tool_name
global mom_machine_time
global sub_machine_time
global mom_stock_part
global mom_stock_floor
global stock_part
global machine_time
global cut_method
global depth
global sn aq tls clm
global mom_clearance_plane_status
  global mom_spindle_speed
  global mom_feed_cut_value
set aq ""
#set sub_machine_time $mom_machine_time
set sub_machine_time [expr $mom_machine_time - $sub_machine_time]
set stock_part [format "%.2f" $mom_stock_part]
if { $mom_clearance_plane_status == 1} {
   if {$clm <= 0 } {set aq "请检查安全高度"}
   }
if {$mom_clearance_plane_status != 1 } {set aq "未设安全高度"}
if {$mom_stock_part >= 0.1 } { set cut_method "粗" }
if {$mom_stock_part >= 0.03 && $mom_stock_part < 0.1 } { set cut_method "中光" }
if {$mom_stock_part < 0.03  && $mom_stock_part >= 0  } { set cut_method "光" }
if {$mom_stock_part <-0.15 } { set cut_method "光" }
if {$mom_stock_part >=-0.15 && $mom_stock_part < 0 } { set cut_method "光" }

  if {[EQ_is_gt $sub_machine_time 0]} {
   set sn [expr $sn+1]
   MOM_output_literal "[format "%4d" $sn] [format "%6s" $mom_group_name] [format "%8s" $mom_tool_name] [format "%3s" $cut_method] [format "%7.2f" $stock_part] [format "%6.1f" $max_cut_depth]"
#MOM_output_literal "-------------------------------------------------------------------------------"
   set sub_machine_time $mom_machine_time
   }

}

aqiso · 发表于 2010-10-5 21:07

1 F01 D6 粗 0.30 -10.5
- Time 24 Minute
出来的结果

笑傲の浆糊 · 发表于 2012-8-17 20:39

食神 · 发表于 2012-9-2 19:30

aqiso 发表于 2010-10-5 20:42 + Y! U7 m" a: u) i! c
proc MOM_end_of_path { } { e' `% y: i. c8 d- j: s
#_____________________________________________________________
9 _' v" I" }7 N" l' b' X# This p ...

不懂，能不能再详细点！

feng764912520 · 发表于 2012-10-12 02:07

global mom_group_name
global mom_next_tool_name
global mom_part_name

MOM_output_literal "(程序名称: $mom_group_name)"
MOM_output_literal "(刀具名称: $mom_next_tool_name)"
MOM_output_literal "(图档路径: $mom_part_name)"

生成时间:[clock format [clock seconds] -format "%Y-%m-%d %I:%M %p"]

##############################################################################

global mom_machine_time

MOM_output_literal "总计时间：[ format "%.2f" $mom_machine_time]"

##############################################################################

golay · 发表于 2012-10-15 10:41

这个学习了，正在研究怎么样加到进玉后处理，他那个就粗/中/光，太那个了

		自动登录	找回密码
密码			注册

[疑难] 求批处理开头要所有刀具信息的

相关帖子