[求助]：求将以下文字一次替换得命令

kaishuibaihn

求一次将图中所有得%%1308@180，%%1308@150，%%13010@150替换为K8，A8，A10得命令

xyp1964

2. [FONT=courier new](load "xyp_lib")                        ;版本 V.20060314
   
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. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. ★通用函数下载地址：
    
12. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
13. |;
    
14. 
    
15. ;;;一次将图中所有的%%1308@180，%%1308@150，%%13010@150替换为K8，A8，A10
    
16. (defun c:test ()
    
17.   (CMDLA0)
    
18.   (setq        ss (ssget "X" '((0 . "TEXT")))
    
19.         i  -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq tx (xyp-get-dxf 1 s1))
    
23.     (cond((= tx "%%1308@180")(sub_upd s1 1 "K8"))
    
24.          ((= tx "%%1308@150")(sub_upd s1 1 "A8"))
    
25.          ((= tx "%%13010@150")(sub_upd s1 1 "A10"))
    
26.          (t (princ)))   
    
27.   )
    
28.   (CMDLA1)
    
29. )[/FONT]

[FONT=courier new](load "xyp_lib")                        ;版本 V.20060314<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 /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> |;<br /> <br /> ;;;一次将图中所有的%%1308@180，%%1308@150，%%13010@150替换为K8，A8，A10<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget "X" '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx (xyp-get-dxf 1 s1))<br />     (cond((= tx "%%1308@180")(sub_upd s1 1 "K8"))<br />          ((= tx "%%1308@150")(sub_upd s1 1 "A8"))<br />          ((= tx "%%13010@150")(sub_upd s1 1 "A10"))<br />          (t (princ)))    <br />   )<br />   (CMDLA1)<br /> )[/FONT]

zxq0220

[php]
(DEFUN C:TEST ()
(CHTT "%%1308@180" "K8")
(CHTT "%%1308@150" "A8")
(CHTT "%%13010@150" "A10")
(PRINC)
)

(DEFUN CHTT (OLDTXT NEWTXT)
(PRINC "\n") (PRINC OLDTXT)
(PRINC "\n") (PRINC NEWTXT)
(IF (SETQ SS (SSGET "X" (LIST (CONS 0 "TEXT") (CONS 1 OLDTXT)))) (PROGN
  (SETQ I -1)
  (REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         ENT (SUBST (CONS 1 NEWTXT) (CONS 1 OLDTXT) ENT))
   (ENTMOD ENT)
  )
))
)
[/php]

ll_j

为什么不建议使用 Find 命令呢？Find 会灵活的多。

xyp1964

最初由 ll_j 发布
[B]为什么不建议使用 Find 命令呢？Find 会灵活的多。 [/B]

find 一次替换可能不行，最少得三次。