有趣的ugpost_base.tcl

在ugpost_base.tcl中加人下文本：
  set filname [string toupper ${mom_part_name}]
  set filname1 [string length ${mom_part_name}]
  set lxh 5
  set luff [string range ${mom_part_name} 2 2]

  while {[string compare [string range ${mom_part_name} [expr $filname1 - $lxh] [expr $filname1 - $lxh]] $luff] != 0} {
          set lxh [expr $lxh + 1]
          set luf [string range ${mom_part_name} [expr $filname1 - $lxh] [expr $filname1 - $lxh]]
          set lufff [string range ${mom_part_name} [expr $filname1 - [expr $lxh - 1]] [expr $filname1 - 5]]
   }
    file mkdir "d:\\nc\\$lufff"
  
  
  set ptp_file_name "d:\\nc\\$lufff\\${mom_output_file_basename}${output_extn}"
#===============================================================
#   set ptp_file_name "${mom_output_file_directory}${mom_output_file_basename}${output_extn}"
    set lpt_file_name "${mom_output_file_directory}${mom_output_file_basename}${list_extn}"
    set warning_file_name "${mom_output_file_directory}${mom_output_file_basename}_warning.out"
效果是。默任在D盘下建立D：\NC\UG文件名称.这样每一个不同文件名称后处理出来的NC程式就可以存放在不同的目路下.以免搞乱.感兴趣的朋友可以试以下.但不要忘记事先要备份好你以前的ugpost_base.tcl

我顶一下！

顶一下

谢谢！

建立变量更简单,以前有贴

谢谢！

回头试试看，感觉挺好用!

好帖顶起来