只需简单几个步骤，实现主程序对子程序的调用，输出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, 下载次数: 1339)

2020-7-2 16:15 上传

点击文件名下载附件

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

8731545443

支持分享干货~

中国奥特莱斯

感謝版主無私的分享~~

优樽自酿酒

路过看看，学习学习

子斌黑里

6666666走一波

NX编程小学生

977750320 发表于 2021-4-5 09:53
找到start_of_path变量  改单元OXXXX就好了

怎么找也找不着啊

947888818

tcl不敢动

731979777

请问不可以把主程序和子程序放在同一个程序文件里面吗？

NZP0725

多个程序组，如何判断输出最后一个组

hclycm

大神你好，请教个问题如果主文件需要写入刀具号该怎么编写呢？拜求{:}，望能回复{:}C:\Users\yancm\Desktop\12121\无标题.jpg