UG后处理源代码解密

以下源代码适合各类机床。但是，在不同机床中，单节程式前加入“/”“：””（）“让机床不读取资料。只做为操作参考选项。

在程序头加入的源代码:

#=============================================================
proc MOM_start_of_path { } {
#=============================================================
global mom_tool_name                             刀具详思信息
global mom_tool_diameter mom_tool_corner1_radius mom_tool_flute_length mom_tool_length
MOM_set_seq_off
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_tool_name
MOM_output_literal "(TOOL: $mom_tool_name)"   程式中 加刀具名
   

global  mom_group_name
MOM_output_literal "(NAME: $mom_group_name)"  程式中 加程式名

global mom_operation_name      程式中 单节名
MOM_output_literal "(Operation_Name= $mom_operation_name)"



在程序尾加入的代码:
#=============================================================
proc MOM_end_of_program { } {
#=============================================================
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)"

  global mom_machine_time   加工时间
MOM_output_literal "(Total Machine Time: [ format  "%.2f" $mom_machine_time] minutes)"


        以上源代码适合各类机床。但是，在不同机床中，单节程式前加入“/”“：””（）“让机床不读取资料。只做为操作参考选项。

dddddddddddddddd

:lo厉害厉害

谢谢楼主分享

受益多多,谢谢

很好用，倒是你用的有新虎将机型的吗？

原帖由 panyantao 于 2008-1-9 21:52 发表



试试我的后处理

...........

在换刀加入M代码就行了，可是要认真看一下那个东西所在处，如果海德汉，就不用了，写明刀号，就能自动处理了，也可以自动换刀。

原帖由 xiaofeng2046 于 2008-1-9 13:22 发表
沙发～～～～～～～～～～～～～～～～～～～～
请教一下：偶用刀库的，怎么设置后处理才能在换1把刀之前自动关油，换好刀后开油。

试试我的后处理

沙发～～～～～～～～～～～～～～～～～～～～
请教一下：偶用刀库的，怎么设置后处理才能在换1把刀之前自动关油，换好刀后开油。