批量改名方法

YANGZHIPING

我公司改名了.老板要我把电脑里所有的CAD图纸中的原来的公司名称全部改为现在的公司名称,
9 B, q' G! f. X% v! @7 E上万 的CAD 图纸文件,我做3个月也做不完,
请教各位高手,有什么方法?或者有什么相关的软件可以用?
8 p& {  P/ y& \3 M1 b9 a4 P先谢谢各位!!!

fffttt

不懂啊！
用“替换”行不？

YANGZHIPING

是用“替换”,
: H8 o  ?7 c0 ~1 M8 s但每一张图纸都要打开,再替换,我有几千张图纸,每一张都打开吗?
! @7 u" C0 J) k& L0 V麻烦死了,
! O7 }, r3 u: Z( ^8 l; {9 y5 z有什么简单的方法吗?

viuefoo

公司名字是在预先作的模版里吗？
把模版改动一下
/ j; f, S7 _7 x5 s8 c看看行不行？
6 ^% ^! w9 V6 ?0 y4 Q) h* w（仅供参考，试前做好备份）

YANGZHIPING

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

cad

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

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

daizhilee

找几个人分工来做

viuefoo

今天偶然遇到一个软件，不知道能不能用，适不适合你？
; Y0 l3 U- k/ t# Q给你作参考，用前做好备份。
8 ^8 J: O8 \9 ]( T% {% j( ^7 x, h0 }$ O下载网页地址http://www.gisroad.com/news/show.aspx?id=403&cid=156

YANGZHIPING

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

YANGZHIPING

没有用啊
改不了

truezx

一个在CAD中执行查找与替换的程序
      (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
0 j% I! l1 a! |" V
! D) |2 }; V5 c6 `8 Nhttp://www.askcad.com/bbs/viewthread.php?tid=14358
* f3 U  K  F  t0 R
[ 本帖最后由 truezx 于 2007-10-15 19:07 编辑 ]

truezx

http://www.xdcad.net/forum/showthread.php?postid=3231506
* Z# Q9 [# `3 ]9 ~% j
& U; _0 g5 P6 Y8 h$ \$ k9 Z2 j3 K[ 本帖最后由 truezx 于 2007-10-15 19:09 编辑 ]

truezx

楼上软件的使用方法
一、下载解压
% \: N& F; Q* k2 i二、打开cad
1. 选择菜单【Tools（工具）】→【Load Appcation…（加载应用程序）】，弹出“Load/Unload Applications（加载/卸载应用程序）”对话框。利用该对话框进行加载的过程与加载LISP程序相同。
    2. 选择菜单【Tools（工具）】→【Macro（宏）】→【Load Project…（加载工程）】，弹出“Open VBA Project（打开VBA工程）”对话框，用户可选择“批量替换一批dwg文件中的相同的文字.dvb”文件并单击Open按钮进行加载。
3 c1 [4 T1 K- A三、选择菜单【Tools（工具）】→【Macro（宏）】→【运行】   或者直接快捷键 Alt+F8 弹出对话框见下图
四、按“运行 ”，弹出对话框如下第二张图
# ~2 o: k$ n0 w* j, {
填入要替换的字和替换后的文字，添加文件，点击确定，cad文件里的文字就替换好了

我使用过程中只能添加一个文件.....(见下第三张图），确认后，重复第三部和第四部，这时 ，要替换的文字不用重新输入，只将文件列表里的那个文件删除，再添加新文件（见下第四张图），然后点击确认，第2个文件的文字也替换了，虽然也麻烦，但是至少不用一个个打开原.dwg文件。
. |3 ?/ O# X% \1 v. ?
: F' U/ N  z' k# L不支持属性修改，虽然能支持中文替换，但是字体和大小就不能改变。
: S+ Z8 K! q! y: g
8 Y/ C2 p, K% S' K9 w% f* V! ^希望哪位高手能修改一下这个工具，使之可以同时选择多个文件，或者甚至可以选择文件夹

4 t8 b3 D2 g$ G' Y2 n8 _# K# _3 S[ 本帖最后由 truezx 于 2007-10-15 20:30 编辑 ]

cass110

没有尝试过!!