那位大神能写一个让后处理强置输出指定文件夹的代码

邵阳_新邵_一刀

闲来无事，突然想起好九以前有个后处理可以做到，想搞一个，就事不能

proc  COPY_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 [string range [file tail $mom_part_name] 0 [expr [string length [file tail $mom_part_name]]-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 [open $ptp_file_name r]
         set alex_new_file_name [open $alex_file_name w]
         while {[gets $alex_old_file_name get_line] >= 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 {[file exists $tmp_file_name]} {
      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 [open $tmp_file_name r]
set ofile [open $ptp_file_name w]


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