[求助]：如何批量更改特定文字?

xbx7920

现有成图83张,业主要求将每张图里的单行文字"储藏间"换成"自行车库",我该如何是好?估计今晚都做不完,'通宵在所难免;能不能写个脚本程序啊,我佛慈悲!

yi.gao

即便是使用find查找替换也不会很费事，这个直接就可以使用。

SLMin

呵呵，单击编辑——查找打开查找和替换对话框，不用再说了吧，自己看着办吧。

xbx7920

长老啊,有83张图啊!!大家应该以此为契机,集思广益,
研究出一种快速解决问题的方法!毕竟磨刀不误砍柴工啊.

lsjjm

最初由 xbx7920 发布
[B]长老啊,有83张图啊!!大家应该以此为契机,集思广益,
研究出一种快速解决问题的方法!毕竟磨刀不误砍柴工啊. [/B]

请参考:
http://www.xdcad.net/forum/showthread.php?s=&threadid=183194

xbx7920

谢谢楼上各位，我已经找到了更好的方法！就是使用bonus里面的文字工具！

zhang8755

转贴一个好程序，实现你所需的功能
用法：
(ch_txt  "新文字" "旧文字")
)

2. 
   
3.   [FONT=courier new]
   
4. ;;文字的批量修改
   
5. (arxload "acetutil.arx" NIL)
   
6. ;;需要相应版本的ET（Express Tools）工具支持
   
7. (vl-load-com)
   
8. (defun CH_TXT (NEWTXT OLDTXT)
   
9.   (setq OLDECHO (getvar "cmdecho"))
   
10.   ;;保存系统变量值
    
11.   (setvar "cmdecho" 0)
    
12.   (setq        path
    
13.          (strcat
    
14.            (vl-string-right-trim
    
15.              "\"
    
16.              (strcase (acet-ui-pickdir
    
17.                         "选择目录"
    
18.                         (vl-string-right-trim "\" (getvar "dwgprefix"))
    
19.                         "批量修改"
    
20.                       )
    
21.              )
    
22.            )
    
23.            "\"
    
24.          )
    
25.   )
    
26.   (setq OLDLSP (getvar "ACADLSPASDOC"))
    
27.   ;;保存系统变量值
    
28.   (setvar "acadlspasdoc" 0)
    
29.   (setq dwgname (vl-directory-files path "*.DWG"))
    
30.   (setq num 0)
    
31.   (if (/= dwgname NIL)
    
32.     (progn
    
33.       (setq APP (vlax-get-acad-object))        ;获得Acad 对象
    
34.       (repeat (length dwgname)
    
35.         (setq DWGNAME2 (strcase (strcat path (nth num dwgname))))
    
36.         (setq doc (vla-open (vla-get-documents APP) DWGNAME2))
    
37.                                         ;打开图形并获得其对象
    
38.         (setq msp (vla-get-ModelSpace doc))
    
39.         (vlax-for ENT msp
    
40.           (if (and (vlax-property-available-p ENT 'TEXTSTRING)
    
41.                    (wcmatch (setq STR (vla-get-textstring ENT))
    
42.                             (strcat "*" OLDTXT "*")
    
43.                    )
    
44.               )
    
45.             (progn
    
46.               (setq STR (vl-string-subst NEWTXT OLDTXT STR))
    
47.               (vla-put-textstring ENT STR)
    
48.             )
    
49.           )
    
50.         )
    
51.         (vla-save DOC)
    
52.         (prompt (strcat "\n" DWGNAME2 " <修改Text完成>!!!"))
    
53.         (vla-close doc :vlax-false)        ;关闭图形(不检查是否保存)
    
54.         (setq num (1+ num))
    
55.       )
    
56.       (vlax-release-object doc)
    
57.       (vlax-release-object APP)
    
58.     )
    
59.     (prompt "\n所选目录中未有任何图形!!")
    
60.   )
    
61.   (setvar "acadlspasdoc" OLDLSP)
    
62.   ;;恢复系统变量值
    
63.   (setvar "cmdecho" OLDECHO)
    
64.   ;;恢复系统变量值
    
65.   (princ)
    
66.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;文字的批量修改<br /> (arxload "acetutil.arx" NIL)<br /> ;;需要相应版本的ET（Express Tools）工具支持<br /> (vl-load-com)<br /> (defun CH_TXT (NEWTXT OLDTXT)<br />   (setq OLDECHO (getvar "cmdecho"))<br />   ;;保存系统变量值<br />   (setvar "cmdecho" 0)<br />   (setq        path<br />          (strcat<br />            (vl-string-right-trim<br />              "\"<br />              (strcase (acet-ui-pickdir<br />                         "选择目录"<br />                         (vl-string-right-trim "\" (getvar "dwgprefix"))<br />                         "批量修改"<br />                       )<br />              )<br />            )<br />            "\"<br />          )<br />   )<br />   (setq OLDLSP (getvar "ACADLSPASDOC"))<br />   ;;保存系统变量值<br />   (setvar "acadlspasdoc" 0)<br />   (setq dwgname (vl-directory-files path "*.DWG"))<br />   (setq num 0)<br />   (if (/= dwgname NIL)<br />     (progn<br />       (setq APP (vlax-get-acad-object))        ;获得Acad 对象<br />       (repeat (length dwgname)<br />         (setq DWGNAME2 (strcase (strcat path (nth num dwgname))))<br />         (setq doc (vla-open (vla-get-documents APP) DWGNAME2))<br />                                         ;打开图形并获得其对象<br />         (setq msp (vla-get-ModelSpace doc))<br />         (vlax-for ENT msp<br />           (if (and (vlax-property-available-p ENT 'TEXTSTRING)<br />                    (wcmatch (setq STR (vla-get-textstring ENT))<br />                             (strcat "*" OLDTXT "*")<br />                    )<br />               )<br />             (progn<br />               (setq STR (vl-string-subst NEWTXT OLDTXT STR))<br />               (vla-put-textstring ENT STR)<br />             )<br />           )<br />         )<br />         (vla-save DOC)<br />         (prompt (strcat "\n" DWGNAME2 " <修改Text完成>!!!"))<br />         (vla-close doc :vlax-false)        ;关闭图形(不检查是否保存)<br />         (setq num (1+ num))<br />       )<br />       (vlax-release-object doc)<br />       (vlax-release-object APP)<br />     )<br />     (prompt "\n所选目录中未有任何图形!!")<br />   )<br />   (setvar "acadlspasdoc" OLDLSP)<br />   ;;恢复系统变量值<br />   (setvar "cmdecho" OLDECHO)<br />   ;;恢复系统变量值<br />   (princ)<br />   [/FONT]<br />

自由的鱼

文本替换程序，几分钟搞定~~
http://www.xdcad.net/forum/showthread.php?s=&threadid=164462

xbx7920

最初由 zhang8755 发布
[B]转贴一个好程序，实现你所需的功能
用法：
(ch_txt  "新文字" "旧文字")
)
[CODE]
  
;;文字的批量修改
(arxload "acetutil.arx" NIL)
;;需要相应版本的ET（Express Tools）工具支持
(vl... [/B]

首先对你的热心帮助表示感谢！
实际上用bonus里面的chtext.lsp就可以解决问题！
在autocad2002中同时打开这些图，然后先建工具
栏，更改其宏，改完所有的文字最多二十秒搞掂。

tosim

其实cad2002本身就自带了宏，一样可以实现的