有的时候需要输出的NC文件的名称和选中的分组名称相同。
一般操作是,在输出NC时,修改文件名称为分组名,然后后处理
但是为了方便,我们还可以通过后处理来实现。
我们需要写一段TCL代码,如下:
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文件
放到程序结束的最后位置,保存,后处理过:
文件名是OK,但是在信息窗里,没有NC文件的内容显示了
所以我们还要让他显示出来,在上面的代码后面添加代码:
set ifile [open $mom_parent_group_name${output_extn} r]
set buf ""
while { [gets $ifile buf] > 0 } {
MOM_output_to_listing_device $buf
}
close $ifile
后处理效果如下,完美解决:
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!