[编程申请]：能将 AAA 替换为 bb

lengliqun

求一LISP程序，能将 AAA 替换为 bb,AAA与bb为任意字符，因为这些字符经常要替换，我不想频繁使用CAD的FIND命令总去填写AAA与bb等字符，希望能输入一个命令就可以了，谢谢。

eachy

Find 命令在输入后会保存到列表，下次直接点取就可以

2. (defun c:XDTB_Find (/ ss)
   
3.   (if (and (if (not $str1)
   
4.              (setq $str1 (getstring "\n旧字串: "))
   
5.              t
   
6.            )
   
7.            (if (not $str2)
   
8.              (setq $str2 (getstring "\n新字串: "))
   
9.              t
   
10.            )
    
11.            (progn
    
12.              (princ "\n拾取替换文字[回车全选]...")
    
13.              (if (not (setq ss (ssget (list (cons 1 $str1))))
    
14.                  )
    
15.                (setq ss (ssget "x" (list (cons 1 $str1))))
    
16.              )
    
17.            )
    
18.       )
    
19.     (progn
    
20.       (xdrx_begin)
    
21.       (xdrx_setsstodb ss 0)
    
22.       (while (xdrx_getentdata 0)
    
23.         (xdrx_modent 1 $str2)
    
24.       )
    
25.       (xdrx_end)
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )

(defun c:XDTB_Find (/ ss)<br />   (if (and (if (not $str1)<br />              (setq $str1 (getstring "\n旧字串: "))<br />              t<br />            )<br />            (if (not $str2)<br />              (setq $str2 (getstring "\n新字串: "))<br />              t<br />            )<br />            (progn<br />              (princ "\n拾取替换文字[回车全选]...")<br />              (if (not (setq ss (ssget (list (cons 1 $str1))))<br />                  )<br />                (setq ss (ssget "x" (list (cons 1 $str1))))<br />              )<br />            )<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setsstodb ss 0)<br />       (while (xdrx_getentdata 0)<br />         (xdrx_modent 1 $str2)<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )

自由的鱼

最初由 lengliqun 发布
[B]求一LISP程序，能将 AAA 替换为 bb,AAA与bb为任意字符，因为这些字符经常要替换，我不想频繁使用CAD的FIND命令总去填写AAA与bb等字符，希望能输入一个命令就可以了，谢谢。 [/B]

在外挂版里我写了一个程序，可以多文档替换！

lengliqun

我的AAA字符与bb字符当出现在楼主的LISP程序里，希望能在R14下可用。

外挂版如何操作？