批量改名方法

YANGZHIPING

我公司改名了.老板要我把电脑里所有的CAD图纸中的原来的公司名称全部改为现在的公司名称,
: M% |& M% n6 \! l; S1 l0 s上万 的CAD 图纸文件,我做3个月也做不完,
6 T5 F' J1 n6 j) H6 d! ?请教各位高手,有什么方法?或者有什么相关的软件可以用?
% Z0 e8 ]6 {' x) U  T先谢谢各位!!!

fffttt

不懂啊！
) g8 b2 o$ x+ O用“替换”行不？

YANGZHIPING

是用“替换”,
但每一张图纸都要打开,再替换,我有几千张图纸,每一张都打开吗?
麻烦死了,
有什么简单的方法吗?

viuefoo

公司名字是在预先作的模版里吗？
把模版改动一下
8 s- N% R$ F  q4 ^: W: `2 V看看行不行？
: G$ n6 a+ t3 K) f/ c& n& b（仅供参考，试前做好备份）

YANGZHIPING

不是，我 的CAD里面的名称都是在标题兰里面，我需要每一个文件打开后才能更改，有许多，能否有好办法？
:L

cad

没有尝试过。给你一个字符替换器，你尝试一下看看可以不。

用前做好备份。不保证能使用，因为没有在dwg文件中测试过，一切后果自己负责。我都是用来替换网页中的字符。

daizhilee

找几个人分工来做

viuefoo

今天偶然遇到一个软件，不知道能不能用，适不适合你？
% _. H  h" T- E* v2 Z  h给你作参考，用前做好备份。
下载网页地址http://www.gisroad.com/news/show.aspx?id=403&cid=156

YANGZHIPING

谢谢各位，我先用了再通知大家
再次谢谢各位大虾

YANGZHIPING

没有用啊
改不了

truezx

一个在CAD中执行查找与替换的程序
3 T; W" X$ i- C; y/ U; }1 c0 ^      (defun dxf(code elist) (cdr (assoc code elist)) ) ;查找与替换 (defun c:rep();/ ss txsize n index ent type oldsize newsize ent1 char) (setvar "CMDECHO" 0) (prompt "\n 请输入查找范围:") (setq ss (ssget)) (setq txsize (entget (car (entsel "请选择查找文字目标:")))) (setq txsize (dxf 1 txsize)) (prompt "\n 指定或输入替换内容?") (setq char (grread)) (cond ((= (car char) 3) (progn (setq ent (entget (ssname (ssget (cadr char)) 0))) (setq char (dxf 1 ent)) );progn );pick from screen ((= (car char) 2) (progn (princ (chr (cadr char))) (setq char (strcat (chr (cadr char)) (getstring))) );progn );pick form keyboard (t nil) ); (princ "\n") (princ "\n") (princ (strcat txsize "替换为-->" char "\n")) (setq n (getstring "确认替换吗?[Esc取消]:")) (setq n (sslength ss)) (setq index 0) (repeat n (setq ent (entget (ssname ss index))) (setq index (+ 1 index)) (setq type (assoc 1 ent)) (if (= txsize (cdr type)) (progn (setq oldsize (assoc 1 ent)) (setq newsize (cons (car oldsize) char)) (setq ent (subst newsize oldsize ent)) (entmod ent) );progn );if );repeat (prin1) )

truezx

http://www.mccad.net/bbs/dispbbs.asp?boardid=3&id=25531

http://www.askcad.com/bbs/viewthread.php?tid=14358

[ 本帖最后由 truezx 于 2007-10-15 19:07 编辑 ]

truezx

http://www.xdcad.net/forum/showthread.php?postid=3231506

[ 本帖最后由 truezx 于 2007-10-15 19:09 编辑 ]

truezx

楼上软件的使用方法
一、下载解压
二、打开cad
1. 选择菜单【Tools（工具）】→【Load Appcation…（加载应用程序）】，弹出“Load/Unload Applications（加载/卸载应用程序）”对话框。利用该对话框进行加载的过程与加载LISP程序相同。
    2. 选择菜单【Tools（工具）】→【Macro（宏）】→【Load Project…（加载工程）】，弹出“Open VBA Project（打开VBA工程）”对话框，用户可选择“批量替换一批dwg文件中的相同的文字.dvb”文件并单击Open按钮进行加载。
三、选择菜单【Tools（工具）】→【Macro（宏）】→【运行】   或者直接快捷键 Alt+F8 弹出对话框见下图
四、按“运行 ”，弹出对话框如下第二张图
9 `$ M' j# i2 j3 K
填入要替换的字和替换后的文字，添加文件，点击确定，cad文件里的文字就替换好了
% H; w- u, M' t6 ?8 X7 ?
我使用过程中只能添加一个文件.....(见下第三张图），确认后，重复第三部和第四部，这时 ，要替换的文字不用重新输入，只将文件列表里的那个文件删除，再添加新文件（见下第四张图），然后点击确认，第2个文件的文字也替换了，虽然也麻烦，但是至少不用一个个打开原.dwg文件。

不支持属性修改，虽然能支持中文替换，但是字体和大小就不能改变。
& T  A' g& y; W% m' y
8 t8 s' d- C9 V6 B希望哪位高手能修改一下这个工具，使之可以同时选择多个文件，或者甚至可以选择文件夹

[ 本帖最后由 truezx 于 2007-10-15 20:30 编辑 ]

cass110

没有尝试过!!