批量改名方法

YANGZHIPING · 发表于 2007-9-25 12:10

我公司改名了.老板要我把电脑里所有的CAD图纸中的原来的公司名称全部改为现在的公司名称,
上万的CAD 图纸文件,我做3个月也做不完,

请教各位高手,有什么方法?或者有什么相关的软件可以用?

先谢谢各位!!!

fffttt · 发表于 2007-9-26 10:02

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

YANGZHIPING · 发表于 2007-9-28 16:02

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

viuefoo · 发表于 2007-9-28 23:01

公司名字是在预先作的模版里吗？
把模版改动一下
看看行不行？
（仅供参考，试前做好备份）

YANGZHIPING · 发表于 2007-10-1 11:53

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

:L

cad · 发表于 2007-10-1 12:01

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

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

daizhilee · 发表于 2007-10-1 12:11

找几个人分工来做

viuefoo · 发表于 2007-10-1 13:42

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

YANGZHIPING · 发表于 2007-10-4 16:38

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

YANGZHIPING · 发表于 2007-10-15 12:46

没有用啊
改不了

truezx · 发表于 2007-10-15 15:43

一个在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 · 发表于 2007-10-15 15:44

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 · 发表于 2007-10-15 15:58

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

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

truezx · 发表于 2007-10-15 19:24

楼上软件的使用方法
一、下载解压
二、打开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 弹出对话框见下图
四、按“运行 ”，弹出对话框如下第二张图

填入要替换的字和替换后的文字，添加文件，点击确定，cad文件里的文字就替换好了

我使用过程中只能添加一个文件.....(见下第三张图），确认后，重复第三部和第四部，这时，要替换的文字不用重新输入，只将文件列表里的那个文件删除，再添加新文件（见下第四张图），然后点击确认，第2个文件的文字也替换了，虽然也麻烦，但是至少不用一个个打开原.dwg文件。

不支持属性修改，虽然能支持中文替换，但是字体和大小就不能改变。

希望哪位高手能修改一下这个工具，使之可以同时选择多个文件，或者甚至可以选择文件夹

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

cass110 · 发表于 2007-10-15 22:02

没有尝试过!!

		自动登录	找回密码
密码			立即注册

[求助] 批量改名方法

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源