偏爱云~小吴 发表于 2014-4-3 12:05:32

CAD文件名批量更改

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

donghuidong2003 发表于 2014-4-4 12:47:00

用这个批量改名就可以了

ll_j 发表于 2014-4-3 12:27:21

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

小灰345 发表于 2014-4-3 13:11:27

RE: CAD文件名批量更改

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

心中的林海 发表于 2014-4-3 14:00:09

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

Gu_xl 发表于 2014-4-3 15:34:04

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

xiaxiang 发表于 2014-4-3 16:09:57

Gu_xl 发表于 2014-4-3 15:34 static/image/common/back.gif
vl-directory-files+ vl-directory-files组合使用

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

q3_2006 发表于 2014-4-3 17:06:17

vl-file-rename

荒野孤行 发表于 2014-4-3 18:54:54

Total commander工具可以。

llsheng_73 发表于 2014-4-4 00:51:26

批量改文件名

本帖最后由 llsheng_73 于 2014-4-17 13:10 编辑

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

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

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


页: [1] 2
查看完整版本: CAD文件名批量更改