那位大神能写一个让后处理强置输出指定文件夹的代码
本帖最后由 邵阳_新邵_一刀 于 2019-8-31 16:35 编辑闲来无事，突然想起好九以前有个后处理可以做到，想搞一个，就事不能
procCOPY_FILES { } {
global ptp_file_name alex_file_name mom_output_file_basename alex_toolpath_name
global group_selected_name alex_old_file_name alex_new_file_name get_line alex_file_name_dir
global mom_part_name alex_part_name
set alex_part_name 0 ]-5]]
if { $group_selected_name == "" } {set group_selected_name $alex_toolpath_name}
set alex_file_name_dir "d:\\ugnc\\${alex_part_name}"
# set alex_file_name "d:\\ugnc\\${alex_part_name}\\${alex_toolpath_name}.nc"
set alex_file_name "d:\\ugnc\\${alex_part_name}\\${group_selected_name}.MPF"
file mkdir $alex_file_name_dir
MOM_close_output_file"$ptp_file_name"
set alex_old_file_name
set alex_new_file_name
while { >= 0 } {puts $alex_new_file_name $get_line}
close $alex_old_file_name
close $alex_new_file_name
}
#=========================================================================
proc PB_CMD_set_default_ptp_directory { } {
#=========================================================================
global ptp_file_name
global mom_output_file_directory
global mom_output_file_basename
global mom_output_file_suffix
global program_description
set tmp_file_name "${ptp_file_name}_"
if {} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
MOM_open_output_file $ptp_file_name
set mom_output_file_directory "G:\\CNC\\CL001\\"
MOM_output_literal "This is the output dir $mom_output_file_directory"
set ptp_file_name "${mom_output_file_directory}${program_description}.${mom_output_file_suffix}"
set ifile
set ofile
close $ifile
close $ofile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name
}
天使* 发表于 2019-8-31 17:03
#=========================================================================
proc PB_CMD_set_default_ ...
先谢了，
但我的还是不行 我的原文，没pui
页:
[1]