批量改名方法
我公司改名了.老板要我把电脑里所有的CAD图纸中的原来的公司名称全部改为现在的公司名称,上万 的CAD 图纸文件,我做3个月也做不完,:L :L :L
请教各位高手,有什么方法?或者有什么相关的软件可以用?:Q :Q
先谢谢各位!!!:kiss: :kiss: :Q :Q :'( 不懂啊！
用“替换”行不？ 是用“替换”,
但每一张图纸都要打开,再替换,我有几千张图纸,每一张都打开吗?
麻烦死了,
有什么简单的方法吗? 公司名字是在预先作的模版里吗？
把模版改动一下
看看行不行？
（仅供参考，试前做好备份） 不是，我 的CAD里面的名称都是在标题兰里面，我需要每一个文件打开后才能更改，有许多，能否有好办法？
:L :L :L :L 没有尝试过。给你一个字符替换器，你尝试一下看看可以不。
用前做好备份。不保证能使用，因为没有在dwg文件中测试过，一切后果自己负责。我都是用来替换网页中的字符。 找几个人分工来做:L 今天偶然遇到一个软件，不知道能不能用，适不适合你？
给你作参考，用前做好备份。
下载网页地址http://www.gisroad.com/news/show.aspx?id=403&cid=156 谢谢各位，我先用了再通知大家
再次谢谢各位大虾 没有用啊
改不了 一个在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 "确认替换吗?:")) (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) ) 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 编辑 ] http://www.xdcad.net/forum/showthread.php?postid=3231506
[ 本帖最后由 truezx 于 2007-10-15 19:09 编辑 ] 楼上软件的使用方法
一、下载解压
二、打开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 编辑 ] 没有尝试过!!:(
页:
[1]