只需简单几个步骤，实现主程序对子程序的调用，输出M98PXXXX

destiny0515

紧跟上期分享——

后处理中的实用技巧——以工序(OPERATION)为单位的批处理

http://www.ugsnx.com/thread-288149-1-1.html

(出处: UG爱好者)

当批处理完成后，会生成许多的子程序文件

这时，需要通过M98指令依次对子程序调用。

本文分享一个思路，实现以上的目的。

首先需要建立完整的逻辑：

创建子程序列表—判断输出条件—关闭默认通道—删除原文件—开启新通道—输出主程序

以逻辑为蓝本，编写tcl代码：

1. global mom_operation_name oper_list mom_sequence_number
   
2. global mom_current_oper_is_last_oper_in_program ptp_file_name
   
3. 
   
4. lappend oper_list $mom_operation_name
   
5. 
   
6. if {$mom_current_oper_is_last_oper_in_program == "YES"} {
   
7.     MOM_close_output_file $ptp_file_name
   
8.     MOM_remove_file $ptp_file_name
   
9.     MOM_open_output_file $ptp_file_name
   
10.     MOM_output_literal "%
    
11. O1234"
    
12.     foreach i $oper_list {
    
13.         MOM_output_literal "M98 P$i"
    
14.     }
    
15.     MOM_output_literal "M30
    
16. %"
    
17.     MOM_close_output_file $ptp_file_name
    
18. }

复制代码

完成，效果如图

附后处理，仅供学习与交流

Call_Sub_Prog.rar (52.06 KB, 下载次数: 1265)

2020-7-2 16:15 上传

点击文件名下载附件
下载积分: G币 -1

做一件对行业有贡献的事情。

杺茬夢裡

666666666666666

初吻给烟

这么牛逼
特斯拉

topckey

支持分享干货~

ug爱好hao

为大佬 点赞 不仅提高了自己还帮助别人。

18751355408

向大神学习

309494778

牛逼克拉斯

邵阳_新邵_一刀

支持分享干货~

q918970957

大师威武。。。。。。