[求助]：全图文字一次性替换问题？

gxynd

替换问题：一张图纸中有不少的文字要进行替换，我用find命令进行替换。但是当遇到很多要进行替换的时候，就会觉得十分麻烦。于是我想编写一个程序把想替换的内容全部写入进行替换，可是使用find命令时总是会出现对话框，前面加什么都不行，不知哪位兄台知道如何才能不让其出现对话框，而能够把想替换的内容替换掉。望兄台不吝赐教。

YueFeng

FIND命令没有命令行方式的。

张世杰

只能SSGET ALL,然后大循环,然后判断文字,然后替换.
否则,你用FIND命令替换全部试试.

xyp1964

2. [FONT=courier new](load "xyp_lib")                        ;加载通用函数
   
3. ;|
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 通用函数下载地址:[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
11. (可在签名栏直接下载)
    
12. |;
    
13. 
    
14. ;;;字符替换类似 FIND 命令
    
15. 
    
16. ;;;用新字符替换字符串中第一次出现的旧字符
    
17. (defun c:test1 ()
    
18.   (cmdla0)
    
19.   (setq        txt1 (ustr 1 "\n旧字" txt1 nil)
    
20.         txt2 (ustr 1 "\n新字" txt2 nil)
    
21.         ss   (ssget '((0 . "TEXT")))
    
22.         i    -1
    
23.   )
    
24.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
25.     (setq txt (dxf 1 (entget s1))
    
26.           txt (vl-string-subst txt2 txt1 txt)
    
27.     )
    
28.     (sub_upd s1 1 txt)
    
29.   )
    
30.   (cmdla0)
    
31. )
    
32. 
    
33. ;;;用新字符串替换旧字符串
    
34. (defun c:test2 ()
    
35.   (cmdla0)
    
36.   (setq        txt2 (ustr 1 "\n新字符串" txt2 nil)
    
37.         ss   (ssget '((0 . "TEXT")))
    
38.         i    -1
    
39.   )
    
40.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
41.     (sub_upd s1 1 txt2)
    
42.   )
    
43.   (cmdla0)
    
44. )[/FONT]

[FONT=courier new](load "xyp_lib")                        ;加载通用函数<br /> ;|<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 通用函数下载地址:[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> (可在签名栏直接下载)<br /> |;<br /> <br /> ;;;字符替换类似 FIND 命令<br /> <br /> ;;;用新字符替换字符串中第一次出现的旧字符<br /> (defun c:test1 ()<br />   (cmdla0)<br />   (setq        txt1 (ustr 1 "\n旧字" txt1 nil)<br />         txt2 (ustr 1 "\n新字" txt2 nil)<br />         ss   (ssget '((0 . "TEXT")))<br />         i    -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq txt (dxf 1 (entget s1))<br />           txt (vl-string-subst txt2 txt1 txt)<br />     )<br />     (sub_upd s1 1 txt)<br />   )<br />   (cmdla0)<br /> )<br /> <br /> ;;;用新字符串替换旧字符串<br /> (defun c:test2 ()<br />   (cmdla0)<br />   (setq        txt2 (ustr 1 "\n新字符串" txt2 nil)<br />         ss   (ssget '((0 . "TEXT")))<br />         i    -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 1 txt2)<br />   )<br />   (cmdla0)<br /> )[/FONT]

斩破狼

4楼的贴子太好了....帮了一个大忙 谢谢