属性与单行文本互转

77077

新手上路,求大师帮忙优化~~~

2. 
   
3. ;;; 属性字与单行文字互转
   
4. (defun c:tt (/ ss1 n m str)
   
5.   (setq ss1 (mj:ss->list (ssget '((0 . "ATTDEF,TEXT"))))
   
6.         n 0
   
7.         m 0
   
8.   )
   
9.   (foreach ent ss1
   
10.     (cond
    
11.       ((= "ATTDEF" (cdr (assoc 0 (entget ent))))
    
12.         (setq n (1+ n))
    
13.         (att2txt ent)
    
14.       )
    
15.       ((= "TEXT" (cdr (assoc 0 (entget ent))))
    
16.         (setq m (1+ m))
    
17.         (txt2att ent)
    
18.       )
    
19.     )
    
20.   )
    
21.   (setq str (strcat "转化完成,共转化出<" (rtos n 2 0) ">个文字和<" (rtos m 2 0) ">个属性字"))
    
22.   (princ str)
    
23.   (princ)
    
24. )
    
25. ;;; 选择集转图元列表
    
26. (defun mj:ss->list (ss1 / is-ename ss)
    
27.   (defun is-ename (arg)
    
28.     (equal (type arg) 'ename)
    
29.   )
    
30.   (vl-remove-if-not 'is-ename (mapcar
    
31.                                 'cadr
    
32.                                 (ssnamex ss1)
    
33.                               )
    
34.   )
    
35. )
    
36. ;;; 属性转文本
    
37. (defun att2txt (ent / entdxf newdxf malst tem)
    
38.   (setq entdxf (entget ent)
    
39.         newdxf (list (cons 0 "text") (cons 1 (cdr (assoc 2 entdxf))))
    
40.         malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)
    
41.   )
    
42.   (foreach mai malst
    
43.     (setq tem (assoc mai entdxf))
    
44.     (if (/= tem nil)
    
45.       (setq newdxf (append
    
46.                      newdxf
    
47.                      (list (assoc mai entdxf))
    
48.                    )
    
49.       )
    
50.     )
    
51.   )
    
52.   (entdel ent)
    
53.   (entmake newdxf)
    
54. )
    
55. 
    
56. ;;; 文本转属性　
    
57. (defun txt2att (ent / entdxf newdxf malst tem)
    
58.   (setq entdxf (entget ent)
    
59.         newdxf '((0 . "ATTDEF"))
    
60.         newdxf (append
    
61.                  newdxf
    
62.                  (list
    
63.                    (cons 1 (cdr (assoc 1 entdxf)))
    
64.                    (cons 2 (cdr (assoc 1 entdxf)))
    
65.                    (cons 3 (cdr (assoc 1 entdxf))
    
66.                    (cons 70 0)
    
67.                  )
    
68.                )
    
69.         malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)
    
70.   )
    
71.   (foreach mai malst
    
72.     (setq tem (assoc mai entdxf))
    
73.     (if (/= tem nil)
    
74.       (setq newdxf (append
    
75.                      newdxf
    
76.                      (list (assoc mai entdxf))
    
77.                    )
    
78.       )
    
79.     )
    
80.   )
    
81.   (entdel ent)
    
82.   (entmake newdxf)
    
83. )
    

<br /> ;;; 属性字与单行文字互转<br /> (defun c:tt (/ ss1 n m str)<br />   (setq ss1 (mj:ss->list (ssget '((0 . "ATTDEF,TEXT"))))<br />         n 0<br />         m 0<br />   )<br />   (foreach ent ss1<br />     (cond<br />       ((= "ATTDEF" (cdr (assoc 0 (entget ent))))<br />         (setq n (1+ n))<br />         (att2txt ent)<br />       )<br />       ((= "TEXT" (cdr (assoc 0 (entget ent))))<br />         (setq m (1+ m))<br />         (txt2att ent)<br />       )<br />     )<br />   )<br />   (setq str (strcat "转化完成,共转化出<" (rtos n 2 0) ">个文字和<" (rtos m 2 0) ">个属性字"))<br />   (princ str)<br />   (princ)<br /> )<br /> ;;; 选择集转图元列表<br /> (defun mj:ss->list (ss1 / is-ename ss)<br />   (defun is-ename (arg)<br />     (equal (type arg) 'ename)<br />   )<br />   (vl-remove-if-not 'is-ename (mapcar<br />                                 'cadr<br />                                 (ssnamex ss1)<br />                               )<br />   )<br /> )<br /> ;;; 属性转文本<br /> (defun att2txt (ent / entdxf newdxf malst tem)<br />   (setq entdxf (entget ent)<br />         newdxf (list (cons 0 "text") (cons 1 (cdr (assoc 2 entdxf))))<br />         malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)<br />   )<br />   (foreach mai malst<br />     (setq tem (assoc mai entdxf))<br />     (if (/= tem nil)<br />       (setq newdxf (append<br />                      newdxf<br />                      (list (assoc mai entdxf))<br />                    )<br />       )<br />     )<br />   )<br />   (entdel ent)<br />   (entmake newdxf)<br /> )<br /> <br /> ;;; 文本转属性　<br /> (defun txt2att (ent / entdxf newdxf malst tem)<br />   (setq entdxf (entget ent)<br />         newdxf '((0 . "ATTDEF"))<br />         newdxf (append<br />                  newdxf<br />                  (list<br />                    (cons 1 (cdr (assoc 1 entdxf)))<br />                    (cons 2 (cdr (assoc 1 entdxf)))<br />                    (cons 3 (cdr (assoc 1 entdxf))<br />                    (cons 70 0)<br />                  )<br />                )<br />         malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)<br />   )<br />   (foreach mai malst<br />     (setq tem (assoc mai entdxf))<br />     (if (/= tem nil)<br />       (setq newdxf (append<br />                      newdxf<br />                      (list (assoc mai entdxf))<br />                    )<br />       )<br />     )<br />   )<br />   (entdel ent)<br />   (entmake newdxf)<br /> )<br />

鱼与熊掌

不错，感谢分享，不知道怎么优化。

yoyoho

感谢楼主分享程序!

香田里浪人

程序无法运行，错误 : no function definition: TXT2ATT

77077

香田里浪人 发表于 2014-10-17 06:39
程序无法运行，错误 : no function definition: TXT2ATT

不可能。肯定是你没复制完全~

ll_j

属性一般是用在属性块中的，单独用是很低效率的用法，如果互转，应该是针对text文本、块中文本及块中属性（attrib）。

spp_wall

语法错误！！！！！！！！！

qyming

txt2att函数错误