CAD文件名批量更改

偏爱云~小吴

有没有办法对一批CAD图的名字进行批量更改，替换名字中的某一个字符，类似CAD中的查找替换，有没有好办法。
如有AS1，AS2 ,AS3三个文件，我要改成AP1，AP2，AP3，将前面文件名中的S替换成P，有没有办法
请大神帮忙

donghuidong2003

用这个批量改名就可以了

ll_j

用图像浏览软件acdsee可以批量重命名。

小灰345

用这个可以批量重命名文件
是个EXCEL文件，操作很方便

心中的林海

完全可以。。百度“妖眼文件工具”  “FFRenamePro”  基本上都能做到

Gu_xl

vl-directory-files  + vl-directory-files  组合使用

xiaxiang

Gu_xl 发表于 2014-4-3 15:34
vl-directory-files  + vl-directory-files  组合使用

哈哈，两个同名函数如何组合使用

q3_2006

vl-file-rename

荒野孤行

Total commander工具可以。

llsheng_73

看来都不会用DOS命令了，不过确实在WIN系统下进入DOS环境比较麻烦，首先DOS不支持长文件名(超过8个字符)，其实中文的输入比较头痛，我们的中文输入法通常在DOS环境下调用不了，这就让我们要进入具体的那个目录比较困难，不过进云了之后就简单了，几个DOS命令就能解决很多秕处理
有的GHOST版的win系统右键菜单有个类似"dos在这里"的选项，可以通过它在任意文件夹位置进入DOS环境

其实这些和楼主的要求无关，还是挂一个CAD下的批处理吧

1. (defun c:tt(/ GetFolder path ex a1 b1)
   
2.   (defun GetFolder(msg / WinShell shFolder path)
   
3.     (setq winshell (vlax-create-object "Shell.Application")
   
4.           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
   
5.     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))
   
6.                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))
   
7.   (vl-load-com)
   
8.   (setq path(GetFolder"选定要批量改名的文件夹")
   
9.         ex(strcat"."(getstring"要处理的文件后缀名(xxx)")))
   
10.   (setq a1(getstring"要被替换的字符")b1(getstring"替换为"))
    
11.   (foreach x(vl-directory-files path(strcat"*"ex))
    
12.     (if(vl-string-search a1(setq base(VL-FILENAME-BASE x)))
    
13.       (vl-file-rename (strcat path"\\"x)(strcat path"\\"(vl-string-subst b1 a1 base)ex)))))

(defun c:tt(/ GetFolder path ex a1 b1)<br />   (defun GetFolder(msg / WinShell shFolder path)<br />     (setq winshell (vlax-create-object "Shell.Application")<br />           shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))<br />     (if (vl-catch-all-error-p(vl-catch-all-apply'(lambda ()(setq shFolder(vlax-get-property shFolder'self))<br />                                                    (setq path (vlax-get-property shFolder 'path)))))nil path))<br />   (vl-load-com)<br />   (setq path(GetFolder"选定要批量改名的文件夹")<br />         ex(strcat"."(getstring"要处理的文件后缀名(xxx)")))<br />   (setq a1(getstring"要被替换的字符")b1(getstring"替换为"))<br />   (foreach x(vl-directory-files path(strcat"*"ex))<br />     (if(vl-string-search a1(setq base(VL-FILENAME-BASE x)))<br />       (vl-file-rename (strcat path"\\"x)(strcat path"\\"(vl-string-subst b1 a1 base)ex)))))