[分享]：改进的文本内容刷子（框选、标注、属性 R14-2005）

fylinwater

改进的文本内容刷子
再刷了内容后记忆信息，下次使用可以不选源文本


最新版本在本页最后[/COLOR]

2. 
   
3. (defun c:ct17(/ text0 mode  x OTEXT mode2 TXTENT)
   
4. 
   
5.     (princ "\n文本修改增强:使文本内容相同")
   
6.         (command "undo" "be")
   
7. (IF (NULL DD*OLDMATCHTEXT*) (SETQ DD*OLDMATCHTEXT* ""))
   
8.   (SETQ TXTENT (entsel (STRCAT "\n请选择源文本<回车采用 "" DD*OLDMATCHTEXT* "" >:")))
   
9.   (IF  TXTENT
   
10.     (progn
    
11.         (setq text0 (entget (car TXTENT)))
    
12.         (setq mode (cdr (assoc 0 text0)))
    
13.         (SETQ OTEXT (assoc 1 text0))
    
14.       (SETQ DD*OLDMATCHTEXT* (CDR OTEXT))
    
15.       )
    
16.     (progn
    
17.       (setq mode "TEXT")
    
18.     (SETQ OTEXT (CONS 1 DD*OLDMATCHTEXT*))
    
19.            )
    
20.     )
    
21.   
    
22.         (IF (= mode "mtext") (Princ "\n警告：你选择了多行文本，只可以对多行文本处理！"))
    
23.         (if        (or (= mode "TEXT")(= mode "MTEXT"))
    
24.                 (progn
    
25.                         ;(setq text0 (cdr (assoc 1 text0)))
    
26.                         (setq x (car (entsel "\n请选择要修改内容的文字:")))
    
27.                         (while x
    
28.                                
    
29.                                 (setq x (entget x))
    
30.                                 (setq mode2 (cdr (assoc 0 x)))
    
31.                              (if (or (= mode2 "MTEXT") (equal mode2 mode) )
    
32.                                 (progn
    
33.                                     (setq x (subst OTEXT (assoc 1 x) x))
    
34.                                     (entmod x)
    
35.                                  )
    
36.                                ;;;;else
    
37.                                  (if (= mode "MTEXT")
    
38.                                     (princ "  选择的实体类型不对：必须是多行文本。")
    
39.                                     (princ "  选择的实体类型不对：必须是单行文本和多行文本。")
    
40.                                  )
    
41.                                )
    
42.                           (setq x (car (entsel "\n请选择要修改内容的文本:")))
    
43.                         )
    
44.                   
    
45.                 )
    
46.           
    
47.         )
    
48. 
    
49.         (command "undo" "e")
    
50.         (princ)
    
51. 
    
52. )
    

<br /> (defun c:ct17(/ text0 mode  x OTEXT mode2 TXTENT)<br /> <br />     (princ "\n文本修改增强:使文本内容相同")<br />         (command "undo" "be")<br /> (IF (NULL DD*OLDMATCHTEXT*) (SETQ DD*OLDMATCHTEXT* ""))<br />   (SETQ TXTENT (entsel (STRCAT "\n请选择源文本<回车采用 "" DD*OLDMATCHTEXT* "" >:")))<br />   (IF  TXTENT<br />     (progn<br />         (setq text0 (entget (car TXTENT)))<br />         (setq mode (cdr (assoc 0 text0)))<br />         (SETQ OTEXT (assoc 1 text0))<br />       (SETQ DD*OLDMATCHTEXT* (CDR OTEXT))<br />       )<br />     (progn<br />       (setq mode "TEXT")<br />     (SETQ OTEXT (CONS 1 DD*OLDMATCHTEXT*))<br />            )<br />     )<br />   <br />         (IF (= mode "mtext") (Princ "\n警告：你选择了多行文本，只可以对多行文本处理！"))<br />         (if        (or (= mode "TEXT")(= mode "MTEXT"))<br />                 (progn<br />                         ;(setq text0 (cdr (assoc 1 text0)))<br />                         (setq x (car (entsel "\n请选择要修改内容的文字:")))<br />                         (while x<br />                                 <br />                                 (setq x (entget x))<br />                                 (setq mode2 (cdr (assoc 0 x)))<br />                              (if (or (= mode2 "MTEXT") (equal mode2 mode) )<br />                                 (progn<br />                                     (setq x (subst OTEXT (assoc 1 x) x))<br />                                     (entmod x)<br />                                  )<br />                                ;;;;else<br />                                  (if (= mode "MTEXT")<br />                                     (princ "  选择的实体类型不对：必须是多行文本。")<br />                                     (princ "  选择的实体类型不对：必须是单行文本和多行文本。")<br />                                  )<br />                                )<br />                           (setq x (car (entsel "\n请选择要修改内容的文本:")))<br />                         )<br />                   <br />                 )<br />           <br />         )<br /> <br />         (command "undo" "e")<br />         (princ)<br /> <br /> )<br />

逐月飞鸿

很好很强的程序!!!!,推荐大家使用!!!!!
不过,如果原文字是metext的时候,选择要修改内容的文字是text的时候,也能使用就更好了......
就是说不管是metext,text都可以就更好了!!!!!

zhuquanmao

是否可将选择目标文本改为框选呢 只点选太麻烦了结合我这个程序看看http://www.xdcad.net/forum/showthread.php?s=&threadid=252435

Jerry541

太好了，我的手又解放了一些。可以少点击很多了。谢谢。

saltxf

嗯，不错。但不明白(IF (NULL DD*OLDMATCHTEXT*) (SETQ DD*OLDMATCHTEXT* ""))
是什么意思？

andyhua5240

最初由 fylinwater 发布
[B]改进的文本内容刷子
再刷了内容后记忆信息，下次使用可以不选源文本



[code]
(defun c:ct17(/ text0 mode  x OTEXT mode2 TXTENT)

    (princ "\n文本修改增强:使文本内容相同")
        (command "undo" "be")... [/B]

我在CAD2005，XP，中为什么用不了呀？
郁闷！
谢谢！

whcdy

的确好用，轻轻一点代替我过去几步操作，谢谢！

andyhua5240

最初由 fylinwater 发布
[B]改进的文本内容刷子
再刷了内容后记忆信息，下次使用可以不选源文本



[code]
(defun c:ct17(/ text0 mode  x OTEXT mode2 TXTENT)

    (princ "\n文本修改增强:使文本内容相同")
        (command "undo" "be")... [/B]

程序非常的好用，能点选！强烈恳求楼主改成支持窗选！求求你了！
谢谢！

whcdy

最好能增加连尺寸值一起都可以刷，那就太棒了！！！

fylinwater

奇怪我4月发的贴  现在却冒出来了， 对于大家的要求会尽力而为

但mtext是支持的  可以 TEXT  --> MTEXT  ， MTEXT-->  MTEXT  
但如果源实体是mtext，目标实体是text 就不支持，因为mtext的文字带格式 ， 安全起见没有支持，以后提供

xyp1964

不知有什么用途，好像COPY命令！

pxt2001

强烈要求能支持框选，可以参考一下cad中的“格式刷”命令和办公软件word中的格式刷。

弓长

(IF (NULL DD*OLDMATCHTEXT*) (SETQ DD*OLDMATCHTEXT* ""))的意思是如果DD*OLDMATCHTEXT*为空值，则敷值为空字符串。
注意DD*OLDMATCHTEXT*为变量名，其中星号不是乘号。

梦断江南

俺写了一个函数
什么刷字高,刷颜色,刷字体,刷角度,刷图层,刷锅刷碗.
以后大家都可以自己diy啦 :)
而且是支持选择集的
更可以同时刷好几个属性

[iframe h=600]http://www.xdcad.net/forum/showthread.php?s=&postid=1397618#post1397618[/iframe]

fylinwater

有个文本内容刷  源实体支持为 单行文本(text)、多行文本(mtext)、标注(AcDbDimension)、块属性(ATTRIB)、属性定义(ATTDEF)、块内实体；目标实体可为 text、mtext、标注、属性定义、块属性。

支持内容记忆， 支持框选、点选