CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 2629|回复: 14

[求助] 批量改名方法

[复制链接]
发表于 2007-9-25 12:10 | 显示全部楼层 |阅读模式
我公司改名了.老板要我把电脑里所有的CAD图纸中的原来的公司名称全部改为现在的公司名称,
6 u4 {8 z" b8 V+ t' R" @& J上万 的CAD 图纸文件,我做3个月也做不完,
8 i' b0 f% O& _; ]请教各位高手,有什么方法?或者有什么相关的软件可以用? ( ]* ?& u+ E6 N; s- ^# w
先谢谢各位!!!
发表于 2007-9-26 10:02 | 显示全部楼层
不懂啊!3 m5 E2 m( F/ d6 r, U
用“替换”行不?
 楼主| 发表于 2007-9-28 16:02 | 显示全部楼层
是用“替换”,+ f; G0 z7 p/ u, _0 h: y/ i, L: N
但每一张图纸都要打开,再替换,我有几千张图纸,每一张都打开吗?
+ I3 ]. M: a9 v# }麻烦死了,8 P, q* h0 k# g1 t' s
有什么简单的方法吗?
发表于 2007-9-28 23:01 | 显示全部楼层
公司名字是在预先作的模版里吗?
7 F" Z( o. _2 Y- d- E3 K- D& Z把模版改动一下
2 o- J4 u+ B. ~' V/ w# _# M+ [看看行不行?
! [) W7 M2 }3 M$ s; {/ @(仅供参考,试前做好备份)
 楼主| 发表于 2007-10-1 11:53 | 显示全部楼层
不是,我 的CAD里面的名称都是在标题兰里面,我需要每一个文件打开后才能更改,有许多,能否有好办法?/ t" b( |1 s4 h* U
:L
发表于 2007-10-1 12:01 | 显示全部楼层
没有尝试过。给你一个字符替换器,你尝试一下看看可以不。
0 h$ I  O" R9 k' P/ e( O
: e* x4 A3 y% f' x$ {2 ^用前做好备份。不保证能使用,因为没有在dwg文件中测试过,一切后果自己负责。我都是用来替换网页中的字符。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2007-10-1 12:11 | 显示全部楼层
找几个人分工来做
发表于 2007-10-1 13:42 | 显示全部楼层
今天偶然遇到一个软件,不知道能不能用,适不适合你?. K; C; W* E+ e! f3 i- n
给你作参考,用前做好备份。2 O# \, K; y, ?
下载网页地址http://www.gisroad.com/news/show.aspx?id=403&cid=156

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
 楼主| 发表于 2007-10-4 16:38 | 显示全部楼层
谢谢各位,我先用了再通知大家! g$ r: U2 n7 x( I  h- H" G
再次谢谢各位大虾
 楼主| 发表于 2007-10-15 12:46 | 显示全部楼层
没有用啊
; J6 `9 N; o. f5 z改不了
发表于 2007-10-15 15:43 | 显示全部楼层
一个在CAD中执行查找与替换的程序+ E% x5 L4 S3 D4 @# D
      (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) )
发表于 2007-10-15 15:44 | 显示全部楼层
http://www.mccad.net/bbs/dispbbs.asp?boardid=3&id=25531& b# R- [* J  G$ a

& N$ h3 l, h5 k" R5 f' Ihttp://www.askcad.com/bbs/viewthread.php?tid=14358- |3 _$ [% p, y
) O# @) J$ m, r- N; N3 _
[ 本帖最后由 truezx 于 2007-10-15 19:07 编辑 ]
发表于 2007-10-15 15:58 | 显示全部楼层
http://www.xdcad.net/forum/showthread.php?postid=3231506
; h& a/ \1 u9 n$ W7 ^1 [0 E8 R) r4 g3 f9 ~# B# v( Y( t/ R; X
[ 本帖最后由 truezx 于 2007-10-15 19:09 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2007-10-15 19:24 | 显示全部楼层
楼上软件的使用方法
/ O  f+ h  o# l一、下载解压
2 o  l3 E$ b0 d7 n* G% _! u1 |二、打开cad
7 O: J7 T9 c/ ]2 {1. 选择菜单【Tools(工具)】→【Load Appcation…(加载应用程序)】,弹出“Load/Unload Applications(加载/卸载应用程序)”对话框。利用该对话框进行加载的过程与加载LISP程序相同。! ?, v; v7 u- Y# v) e9 U
    2. 选择菜单【Tools(工具)】→【Macro(宏)】→【Load Project…(加载工程)】,弹出“Open VBA Project(打开VBA工程)”对话框,用户可选择“批量替换一批dwg文件中的相同的文字.dvb”文件并单击Open按钮进行加载。
, Q; T$ K) t3 @" Q  b三、选择菜单【Tools(工具)】→【Macro(宏)】→【运行】   或者直接快捷键 Alt+F8 弹出对话框见下图
5 m8 p6 N: f0 M8 O6 K四、按“运行 ”,弹出对话框如下第二张图# a3 k% k4 p" U# T* U" s" a
  h, n& I  z& \, P; {% @; v
填入要替换的字和替换后的文字,添加文件,点击确定,cad文件里的文字就替换好了" D3 U+ d% U3 n2 x

# y: h4 o* v. S我使用过程中只能添加一个文件.....(见下第三张图),确认后,重复第三部和第四部,这时 ,要替换的文字不用重新输入,只将文件列表里的那个文件删除,再添加新文件(见下第四张图),然后点击确认,第2个文件的文字也替换了,虽然也麻烦,但是至少不用一个个打开原.dwg文件。
$ q' |8 F+ c+ y
* w, E/ |! e: f0 u( P不支持属性修改,虽然能支持中文替换,但是字体和大小就不能改变。
6 T, T9 P" l3 Z, S" a$ p% I
- O( v1 T0 o" Z. r2 o4 d1 l希望哪位高手能修改一下这个工具,使之可以同时选择多个文件,或者甚至可以选择文件夹
: y9 H$ P% ^0 v% z& }
4 I# c4 |" b0 i# s9 v* M; u
[ 本帖最后由 truezx 于 2007-10-15 20:30 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2007-10-15 22:02 | 显示全部楼层
没有尝试过!!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-26 00:31

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表