[编程申请]：只让选定的多个文字的文本内容刷成某一个所选的文字内容?

zhanghui616

只让选定的多个文字的文本内容刷成某一个所选的文字内容?

前生

2. (defun c:ggt (/ ss1 str1 ls ed ss2  str2 gg)
   
3.   (defun gg (/ count)
   
4.     (setq count 0)
   
5.     (while (< count (sslength ls))
   
6.       (setq ed (ssname ls   count))
   
7.       (SETQ COUNT (1+ COUNT))
   
8.       (setq ed (entget ed))
   
9.       (SETQ ED (SUBST str1 (assoc 1 ed) ed))
   
10.       (ENTMOD ED)
    
11.     )
    
12.   )
    
13.   ;;;-------------------
    
14. 
    
15.   (SETQ SS1 NIL)
    
16.   (SETQ STR1 NIL)
    
17.   (SETQ LS NIL)
    
18.   (SETQ LS (SSGET (LIST (CONS 0 "TEXT"))))
    
19.   (if ls
    
20.     (IF        (SETQ SS1 (ENTSEL "\n 请选取欲置换的字符串:_____"))
    
21.       (PROGN
    
22.         (setq ed (entget (CAR ss1)))
    
23. ;;;        (REDRAW (car ss1) 3)
    
24.         (if (= "TEXT" (cdr (assoc 0 ed)))
    
25.           (setq str1 (Assoc 1 ed))
    
26.           (prompt "第一个实体不是字符串")
    
27.         )
    
28.       )
    
29.     )
    
30.     (PROMPT "\n 未选中文字实体，起重新选择.")
    
31.   )
    
32.   (IF str1
    
33.     (PROGN
    
34.       (gg)
    
35.     )
    
36.     (PROMPT "\n 未选中文字实体，起重新选择.")
    
37.   )
    
38.   (prompt "\n___字符改变")
    
39.   (princ)
    
40. )

(defun c:ggt (/ ss1 str1 ls ed ss2  str2 gg)<br />   (defun gg (/ count)<br />     (setq count 0)<br />     (while (< count (sslength ls))<br />       (setq ed (ssname ls   count))<br />       (SETQ COUNT (1+ COUNT))<br />       (setq ed (entget ed))<br />       (SETQ ED (SUBST str1 (assoc 1 ed) ed))<br />       (ENTMOD ED)<br />     )<br />   )<br />   ;;;-------------------<br /> <br />   (SETQ SS1 NIL)<br />   (SETQ STR1 NIL)<br />   (SETQ LS NIL)<br />   (SETQ LS (SSGET (LIST (CONS 0 "TEXT"))))<br />   (if ls<br />     (IF        (SETQ SS1 (ENTSEL "\n 请选取欲置换的字符串:_____"))<br />       (PROGN<br />         (setq ed (entget (CAR ss1)))<br /> ;;;        (REDRAW (car ss1) 3)<br />         (if (= "TEXT" (cdr (assoc 0 ed)))<br />           (setq str1 (Assoc 1 ed))<br />           (prompt "第一个实体不是字符串")<br />         )<br />       )<br />     )<br />     (PROMPT "\n 未选中文字实体，起重新选择.")<br />   )<br />   (IF str1<br />     (PROGN<br />       (gg)<br />     )<br />     (PROMPT "\n 未选中文字实体，起重新选择.")<br />   )<br />   (prompt "\n___字符改变")<br />   (princ)<br /> )

淡天

到了现在还不知道怎么用!真不知如何说好!

pxt2001

“前生”真是厉害，有了这个“文字刷”画图时省事多了！

自由的鱼

确实有的时候很需要这个功能！

jinsong-liao

这个功能确实挺需要！尤其坐标入表不必每个数据敲键盘了，谢谢！

梦断江南

[php]
(defun c:ttm ( / ss0 s prn ss i)
  (princ "\n文字刷,------------------梦断江南.2004 \n 选参照文本:")
  (while (not(setq ss0 (ssget ":s" '((0 . "*TEXT"))))))
  (setq st  (vlax-get (vlax-ename->vla-object (ssname ss0 0)) 'textstring)
        prn (princ "\n选目标文本:")
        ss  (ssget '((0 . "*TEXT")))
        i   -1
  )
  (while (setq e (ssname ss (setq i (1+ i))))
    (vla-put-textstring (vlax-ename->vla-object e) st)
  )(princ)
)
[/php]

flowerson

要是能把用wb定义的可写块也可以刷那就好了，可以省很多功夫。

liuyj

这样的程序已经不少了，好象都有个不足，仅能对text操作，当然这样的好处是可以框选。要是能对mtext，属性文字，块内文字等所有类型全都通吃，那才算完美了。

Jerry541

一楼的很不错啊，那个文本刷子在R14下好象用不了。

pxt2001

二楼的lsp特好用，已经被我珍藏。是lsp精品。

逐月飞鸿

http://www.xdcad.net/forum/showt ... 7146最好的一个!