字内容刷工具

newer

转载，出处不明。

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

/db_自贡黄明儒_

你这个也太简单了一点:P

newer

/db_自贡黄明儒_ 发表于 2016-4-6 14:31
你这个也太简单了一点

抛砖引玉

xvjiex

感谢楼主分享字内容刷工具