[求助]：求编：文字内容复制刷子，内详。

星期八

比如：
两个文字：123和abc
先点取123，然后点取abc，则abc就变成123。

有点急！
谢谢大侠帮忙阿～

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060211(2064)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;旧文本完全匹配修改为新文本
    
15. (defun c:test075 ()
    
16.   (CMDLA0)
    
17.   (setq        tx1 (UKWORD 1
    
18.                     "1 2"
    
19.                     "\n旧文本选择方式：1-键盘输入/2-屏幕拾取"
    
20.                     tx1
    
21.             )
    
22.   )
    
23.   (cond        ((= tx1 "1") (setq txt1 (USTR 7 "\n旧文本" txt1 nil)))
    
24.         ((= tx1 "2")
    
25.          (setq s1   (USEL 0 "TEXT" "TEXT文本")
    
26.                txt1 (xyp-get-DXF 1 (car s1))
    
27.          )
    
28.         )
    
29.   )
    
30.   (setq        txt2 (USTR 7 "\n新文本" txt2 nil)
    
31.         ss   (ssget "X" (list (cons 0 "TEXT") (cons 1 txt1)))
    
32.         n    -1
    
33.   )
    
34.   (while (setq s1 (ssname ss (setq n (1+ n))))
    
35.     (SUB_UPD s1 1 txt2)
    
36.   )
    
37.   (CMDLA1)
    
38. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060211(2064)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;旧文本完全匹配修改为新文本<br /> (defun c:test075 ()<br />   (CMDLA0)<br />   (setq        tx1 (UKWORD 1<br />                     "1 2"<br />                     "\n旧文本选择方式：1-键盘输入/2-屏幕拾取"<br />                     tx1<br />             )<br />   )<br />   (cond        ((= tx1 "1") (setq txt1 (USTR 7 "\n旧文本" txt1 nil)))<br />         ((= tx1 "2")<br />          (setq s1   (USEL 0 "TEXT" "TEXT文本")<br />                txt1 (xyp-get-DXF 1 (car s1))<br />          )<br />         )<br />   )<br />   (setq        txt2 (USTR 7 "\n新文本" txt2 nil)<br />         ss   (ssget "X" (list (cons 0 "TEXT") (cons 1 txt1)))<br />         n    -1<br />   )<br />   (while (setq s1 (ssname ss (setq n (1+ n))))<br />     (SUB_UPD s1 1 txt2)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

xyp1964

另可试试签名栏下的“文本编辑套件”程序之wbpp（文本匹配）。

hululu

;;;文字匹配程序开始-------------------------------------------------------;;;
(defun c:21( / SourceEnt SourceText S N IN TargetEnt E)
  (while
    (progn
      (prompt "\n文字匹配程序!请选择源文本(Source Text):")
      (setq SourceEnt(entget (car(entsel))))
      (and SourceEnt (setq  SourceText (cdr (assoc 1 SourceEnt))))
      (prompt "\n请选择要匹配的一个或多个目的文本(Target TextS):")
      (setq s(ssget '((0 . "TEXT")))  n (sslength s) in 0)
      (repeat n
        (setq e(ssname s in) in (1+ in) TargetEnt(entget e))
        (progn
          (setq TargetEnt (subst(cons 1 SourceText) (assoc 1 TargetEnt)  TargetEnt))
          (entmod TargetEnt)))
      )
    )
  (prompt "\n文字匹配成功!")
  (princ)
  ;;Email:stonek@21cn.com Titan
  )
;;;文字匹配程序结束---------------------------------------;;;

星期八

感谢朋友的帮忙～

qiaqiadeng

xyp1964的东西好是好，但自己的自主没了，还得依靠阁下的vlx，痛苦啊，还是简单地给楼主吧，其实论坛里就有的：
(defun c:t ()
  (setq w1 (entget (car (entsel "\n请选择源文字")) '("ACAD")))
                                        ;选择对象1
  (setq neirong (assoc '1 w1))                ;获得源文字的内容
  (setq n 0)
  (while (< n 100)
    (setq w2 (entget (car (entsel "\n请选择要修改的文字")) '("ACAD")))
                                        ;选择对象2
    (setq w2 (subst neirong (assoc '1 w2) w2))
    (entmod w2)
    (setq n (+ n 1))

  )
  nil
)

青马

(defun c:qa (/ ss1 sp1 ss sl i spa)
  (setq        ss1 (car (entsel "\n请选择源物体"))
        sp1 (entget ss1)
  )                                        ;选择源物体
  (princ "\n请选择目标物体")
  (setq        ss (ssget '((0 . "text")))
        sl (sslength ss)
        i  0
  )                                        ;选择目标物体
  (repeat sl
    (progn
      (setq spa (entget (ssname ss i)))
      (setq spa (subst (assoc 1 sp1) (assoc 1 spa) spa))
      (entmod spa)
      (setq i (+ i 1))
      (princ)
    )
  )                                        ;循环改目标物体
)                                        ;clone源文字内容到目标文字
(print "\n文字clone 命令qa启动")
(princ)

这样就不会出错了。 by xyp1964[/COLOR]

2. [FONT=courier new]
   
3. ;;clone源文字内容到目标文字
   
4. (defun c:qa (/ ss1 sp1 ss sl i spa mode)
   
5.   ;;选择源物体
   
6.   (while (/= mode "TEXT")
   
7.     (setq ss1  (car (entsel "\n请选择源物体: "))
   
8.           sp1  (entget ss1)
   
9.           mode (cdr (assoc 0 sp1))
   
10.     )
    
11.   )
    
12.   ;;选择目标物体       
    
13.   (princ "\n请选择目标物体: ")
    
14.   (if (setq ss (ssget '((0 . "text"))))
    
15.     (progn (setq sl (sslength ss)
    
16.                  i  0
    
17.            )
    
18.            ;;循环改目标物体
    
19.            (repeat sl
    
20.              (progn
    
21.                (setq spa (entget (ssname ss i))
    
22.                      spa (subst (assoc 1 sp1) (assoc 1 spa) spa)
    
23.                      i         (+ i 1)
    
24.                )
    
25.                (entmod spa)
    
26.              )
    
27.            )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. (print "\n文字clone 命令qa启动")
    
33. (princ)
    
34. [/FONT]

[FONT=courier new]<br /> ;;clone源文字内容到目标文字<br /> (defun c:qa (/ ss1 sp1 ss sl i spa mode)<br />   ;;选择源物体<br />   (while (/= mode "TEXT")<br />     (setq ss1  (car (entsel "\n请选择源物体: "))<br />           sp1  (entget ss1)<br />           mode (cdr (assoc 0 sp1))<br />     )<br />   )<br />   ;;选择目标物体        <br />   (princ "\n请选择目标物体: ")<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn (setq sl (sslength ss)<br />                  i  0<br />            )<br />            ;;循环改目标物体<br />            (repeat sl<br />              (progn<br />                (setq spa (entget (ssname ss i))<br />                      spa (subst (assoc 1 sp1) (assoc 1 spa) spa)<br />                      i         (+ i 1)<br />                )<br />                (entmod spa)<br />              )<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> (print "\n文字clone 命令qa启动")<br /> (princ)<br /> [/FONT]