NC文件名同程序组名称

chenzm

在站内找的资源，NC文件名同程序组名称，代码如下：

global mom_parent_group_name ptp_file_name output_extn
MOM_close_output_file $ptp_file_name
#关闭后处理输出的文件
if {[file exists $mom_parent_group_name${output_extn}]} {
MOM_remove_file $mom_parent_group_name${output_extn}
}
#检查当前分组命令的文件是否存在（再次后处理时）
#如果存在，删除它
file rename $ptp_file_name $mom_parent_group_name${output_extn}
#从命令输出的NC文件为选中分组名的NC文件
set ifile [open $mom_parent_group_name${output_extn} r]
set buf ""
while { [gets $ifile buf] > 0 } {
MOM_output_to_listing_device $buf
}

现在的问题是：
1、他不提示覆盖文件
2、单个程序无法后处理
3、有时候后处理会自动删除已处理出来的文件

我做过一些修改尝试，修改后一直报警。
有没有大佬能修改一下，只要将NC程序名修改为程序组名称功能即可。其他自动覆盖和自动删除文件功能不需要。

bey2008

程序头加入定制命令,选什么就生成什么

global mom_parent_group_name
if {[info exists mom_parent_group_name]} {
set CW A} else {
set CW B}

global ptp_file_name
global mom_operation_name mom_group_name
global mom_output_file_directory
global mom_output_file_basename
global output_extn
global mom_sys_output_file_suffix
if {$CW == "A"} {set yj $mom_output_file_directory$mom_group_name$output_extn}
if {$CW == "B"} {set yj $mom_output_file_directory$mom_operation_name$output_extn}
if {($CW == "A")||($CW == "B")} {
MOM_close_output_file $ptp_file_name
MOM_remove_file $yj
MOM_remove_file $ptp_file_name
MOM_open_output_file $yj
}

chenzm

好像不行，还是报警。加程序头尾都一样。感觉跟程序头的刀具Z最小值变量冲突。

pujifeng*

这个完全满足本帖的要求

说明
不手动更改名称，自动命名为图档名加工序名，
手动更改输出手动设定名称

妖幺贰壹

pujifeng* 发表于 2024-1-29 16:09
这个完全满足本帖的要求

说明

怎么看不到附件呢

pujifeng*

妖幺贰壹 发表于 2024-4-23 11:21
怎么看不到附件呢

这里下载
链接：https://pan.baidu.com/s/1Jc9kcT5Fr7f-isE7nLoVCg?pwd=f70s
提取码：f70s
--来自百度网盘超级会员V5的分享