UG车间文件更改原代码，便于制作自动程序单

beijiyinhu · 发表于 2009-1-10 12:31

本人把ug车间文档原代码进行了更改，可以将加工信息直接反应出来了，便于自动出程序单编辑人员使用，原代码如下！
######################################################################
#    S H O P D O C _ P R O G R A M V I E W _ T E X T . T C L
######################################################################
# EVENT HANDLER SECTION
# This section contains the control section for creating an operation list
#
# CAM will loop thru each event in the path and call the procedure
# whose name is the name of the event.
#
#
#
#
#_______________________________________________________________________________
# Here you should define any global variables that will be used in any one
# of the event handler.
#_______________________________________________________________________________
set mom_source_directory [MOM_ask_env_var UGII_CAM_SHOP_DOC_DIR]
source "$mom_source_directory/shopdoc_header.tcl"
set line_flag 0
set template_type ""
set template_subtype ""
# This procedure creates a part documentation.
#_______________________________________________________________________________
#==============================================================================
proc MOM_Start_Part_Documentation {} {
#==============================================================================
# Calls the shopdocs header
global mom_sys_output_file_suffix
set mom_sys_output_file_suffix "txt"

Open_Files
ShopDoc_Header_text
}
#==============================================================================
proc MOM_Part_Documentation {} {
#==============================================================================
MOM_do_template_file "[MOM_ask_env_var UGII_CAM_SHOP_DOC_DIR]shopdoc_programview_text.tpl"
}
#==============================================================================
proc MOM_End_Part_Documentation {} {
#==============================================================================
}
#===============================================================================
# Setup
#===============================================================================
#==============================================================================
proc MOM_SETUP_HDR {} {
#==============================================================================
  # Calls the setup header
Setup_Header_text
}

#==============================================================================
proc MOM_SETUP_BODY {} {
#==============================================================================
  global mom_template_type
  global mom_template_subtype
  MOM_output_literal "                      OPERATION  LIST BY PROGRAM"
  MOM_output_literal "                      *********  **** ** *******"
}

#==============================================================================
proc MOM_SETUP_FTR {} {
#==============================================================================
}

#===============================================================================
# Operation
#===============================================================================
#===============================================================================
proc MOM_OPER_BODY { } {
#===============================================================================
  global mom_template_type
  global mom_template_subtype
  global template_type
  global template_subtype
  global mom_operation_name
  global mom_operation_type
  set template_type $mom_template_type
  set template_subtype $mom_template_subtype
  if { $mom_operation_type == "Wire EDM" } \
  {
   set oper_desc "$template_type/$template_subtype"
   set output [format "%-30s %-35s %5s \n" $mom_operation_name \
                        $oper_desc "WIRE"]
   MOM_output_literal "$output"
  }
}
#==============================================================================
proc MOM_TOOL_BODY {} {
#==============================================================================
  global mom_operation_name
  global mom_operation_type
  global template_type
  global template_subtype
  global mom_tool_name
  global line_flag
  global mom_stock_part
  global mom_stepover_distance
  global mom_tool_length
  global mom_inside_outside_tolerances
  set oper_name "OPERATION NAME"
  set oper_type "OPERATION DESCRIPTION"
  set tool_name "TOOL NAME"
  set stock_part "STOCK"
  set stepover_distance "stepover"
  set tool_length "length"
  set inside_outside_tolerances(0) "toll in"
  set inside_outside_tolerances(1) "toll out"

  if {!$line_flag} \
  {
MOM_output_literal "-----------------------------------------------------------------------------------------------"
set output [format "%-30s %-35s %-25s %-25s %-25s %-25s %-25s %-25s" $oper_name $oper_type $tool_name $stock_part $stepover_distance $tool_length $inside_outside_tolerances(0) $inside_outside_tolerances(1) ]
MOM_output_literal $output
MOM_output_literal "-----------------------------------------------------------------------------------------------"
set line_flag 1
  }
  if { $template_type == ""  && $template_subtype == ""} \
  {
   set oper_desc "--/--"
  } elseif { $template_type == "" } \
  {
   set oper_desc "--/"
   append oper_desc $template_type
  } elseif { $template_subtype == ""} \
  {
   set oper_desc "$template_type/"
   append oper_desc "--"
  } else \
  {
   set oper_desc "$template_type/$template_subtype"
  }
  set output [format "%-30s %-35s %-25s %-25s %-25s %-25s %-25s %-25s\n" $mom_operation_name \
                        $oper_desc $mom_tool_name $mom_stock_part $mom_stepover_distance $mom_tool_length $mom_inside_outside_tolerances(0) $mom_inside_outside_tolerances(1)]
  MOM_output_literal "$output"
  set template_type ""
  set template_subtype ""
}
proc MOM_PROGRAMVIEW_HDR {} {
global mom_member_nest_level
}

#==============================================================================
proc MOM_PROGRAMVIEW_FTR {} {
#==============================================================================
}
#==============================================================================
proc MOM_PROGRAM_BODY {} {
#==============================================================================
global mom_member_nest_level
global mom_object_name
global line_flag
global mom_stock_part
global mom_stepover_distance
global mom_tool_length
global mom_inside_outside_tolerances
set oper_name "OPERATION NAME"
set oper_type "OPERATION DESCRIPTION"
set tool_name "TOOL NAME"
set stock_part "STOCK"
set stepover_distance "步距"
set tool_length "刀长"
set inside_outside_tolerances(0) "内公差"
set inside_outside_tolerances(1) "外公差"

if {$line_flag} \
{
   MOM_output_literal "-----------------------------------------------------------------------------------------------"
   MOM_output_literal " "
   set line_flag 0
}
set output [format "PROGRAM NAME : %-25s" $mom_object_name]
MOM_output_literal "$output"
# puts the header only for the operations
   MOM_output_literal "-----------------------------------------------------------------------------------------------"
   set output [format "%-30s %-35s %-25s %-25s %-25s %-25s %-25s %-25s" $oper_name $oper_type $tool_name $stock_part $stepover_distance $tool_length $inside_outside_tolerances(0) $inside_outside_tolerances(1)]
   MOM_output_literal $output
   MOM_output_literal "-----------------------------------------------------------------------------------------------"
   set line_flag 1

}
#==============================================================================
proc MOM_MEMBERS_FTR {} {
#==============================================================================
global line_flag
if {$line_flag} \
{
   MOM_output_literal "-----------------------------------------------------------------------------------------------"
   MOM_output_literal " "
   set line_flag 0
}
}

#==============================================================================
proc MOM_MEMBERS_HRD {} {
#==============================================================================
}

有兴趣的可以联系我QQ25499556

cncxf · 发表于 2009-1-20 20:37

hbef_xf@yeah.net

cncxf · 发表于 2009-1-20 20:36

辛苦了，非常感谢你的提示，回头我也研究一下，不懂地方的还望你能赐教

qazqaz00 · 发表于 2009-1-30 16:09

非常感谢你的提示，回头我也研究一下，不懂地方的还望你能赐教

022325 · 发表于 2009-3-15 16:14

不董能說清楚點嗎

lyliuyong · 发表于 2009-10-11 08:53

WTTQTR

szcamold · 发表于 2009-12-1 10:44

你好,车间文件我急需要更改,可以邮件联系吗,szcamold@163.com
我在深圳,电话:13570870450

samooxp · 发表于 2010-8-30 20:58

大哥，提取各数值时加个format %.2f 取小数后两位就可以了吧，拿这个给车间的人看可能就没有人做事了，因为看两眼都晕倒了！！！

beijiyinhu · 发表于 2010-10-20 18:55

这个可以用VB，VC，C++读到EXCEL里面去，如果想直接使用就把输出格式重新定义一下

网心 · 发表于 2010-11-9 19:26

我想知道详细的解释，hmljzhan@yahoo.com.cn

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

[原创] UG车间文件更改原代码，便于制作自动程序单

相关帖子