[求助]：可不可以把已有的文字转换为属性定义(attdef)

让时间冲淡一切

RT

eachy

最初由 让时间冲淡一切 发布
[B]RT [/B]

可以，需要编程，但属性中的提示、标志如何设置？

让时间冲淡一切

最初由 eachy 发布
[B]
可以，需要编程，但属性中的提示、标志如何设置？ [/B]

编程@@，不会*-*a

复杂么？提示标志和已有文字相同.

popxi

没这个必要把

eachy

最初由 让时间冲淡一切 发布
[B]
编程@@，不会*-*a

复杂么？提示标志和已有文字相同. [/B]

2. 
   
3. (vl-load-com)
   
4. (defun c:ToAtt (/ ss n elst str)
   
5.   (if (setq ss (ssget '((0 . "text"))))
   
6.     (progn
   
7.       (setq n -1)
   
8.       (repeat (sslength ss)
   
9.         (setq elst (entget (ssname ss (setq n (1+ n))))
   
10.               str  (cdr (assoc 1 elst))
    
11.               elst (subst '(0 . "ATTDEF")
    
12.                           (assoc 0 elst)
    
13.                           elst
    
14.                    )
    
15.               elst (vl-remove '(100 . "AcDbText") elst)
    
16.               elst (append (list (cons 3 str)
    
17.                                  (cons 2 str)
    
18.                                  '(70 . 8)
    
19.                                  '(100 . "AcDbAttributeDefinition")
    
20.                                  '(100 . "AcDbText")
    
21.                            )
    
22.                            (reverse elst)
    
23.                    )
    
24.         )
    
25.         (entmake (cdr (reverse elst)))
    
26.         (entdel (ssname ss n))
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

<br /> (vl-load-com)<br /> (defun c:ToAtt (/ ss n elst str)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq n -1)<br />       (repeat (sslength ss)<br />         (setq elst (entget (ssname ss (setq n (1+ n))))<br />               str  (cdr (assoc 1 elst))<br />               elst (subst '(0 . "ATTDEF")<br />                           (assoc 0 elst)<br />                           elst<br />                    )<br />               elst (vl-remove '(100 . "AcDbText") elst)<br />               elst (append (list (cons 3 str)<br />                                  (cons 2 str)<br />                                  '(70 . 8)<br />                                  '(100 . "AcDbAttributeDefinition")<br />                                  '(100 . "AcDbText")<br />                            )<br />                            (reverse elst)<br />                    )<br />         )<br />         (entmake (cdr (reverse elst)))<br />         (entdel (ssname ss n))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

民工

我还在找这个程序，原来在这里
这个程序真的还是有用：有时候拿到别人的图块，全是散的，想做成带属性的块，先将图纸名、比例等文字转换成属性再做成块，方便很多。