（完成）[编程申请]：普通文字变成带属性的文字

doongs

直接装图中的普通文字变成带属性的文字，以免自己再来写！

eachy

属性有三个特性，Tag、Prompt、显示，如何设置？

doongs

最初由 eachy 发布
[B]属性有三个特性，Tag、Prompt、显示，如何设置？ [/B]

只有TAG有点麻烦，不能太长，就写一部分吧！其它的就默认是原来的文字了

eachy

最初由 doongs 发布
[B]
只有TAG有点麻烦，不能太长，就写一部分吧！其它的就默认是原来的文字了 [/B]

2. 
   
3. (vl-load-com)
   
4. (defun c:txt-to-att (/ tf e txt pt high )
   
5.   (xdrx_begin)
   
6.   (xdrx_sysvar_push "osmode")
   
7.   (setq tf t)
   
8.   (princ "\n选择要转换为属性的文字...")
   
9.   (while tf
   
10.     (if (setq ss (ssget  '((0 . "text"))))
    
11.        (progn
    
12.          (xdrx_setsstodb ss 0)
    
13.          (while        (setq e (xdrx_getentdata 0))
    
14.            (setq txt  (xdrx_getentdxf 1)
    
15.                  pt   (xdrx_getentdxf 10)
    
16.                  high (xdrx_getentdxf 40)
    
17.            )
    
18.            (vla-addattribute
    
19.              (vla-get-modelspace
    
20.                (vla-get-activedocument (vlax-get-acad-object))
    
21.              )
    
22.              high
    
23.              acAttributeModePreset
    
24.              txt
    
25.              (vlax-3d-point pt)
    
26.              txt
    
27.              txt
    
28.            )
    
29.            (xdrx_entity_delete e)
    
30.          )
    
31.        )
    
32.        (setq tf nil)
    
33.     )
    
34.   )
    
35.   (xdrx_sysvar_pop)
    
36.   (xdrx_end)
    
37.   (princ)
    
38. )

<br /> (vl-load-com)<br /> (defun c:txt-to-att (/ tf e txt pt high )<br />   (xdrx_begin)<br />   (xdrx_sysvar_push "osmode")<br />   (setq tf t)<br />   (princ "\n选择要转换为属性的文字...")<br />   (while tf<br />     (if (setq ss (ssget  '((0 . "text"))))<br />        (progn<br />          (xdrx_setsstodb ss 0)<br />          (while        (setq e (xdrx_getentdata 0))<br />            (setq txt  (xdrx_getentdxf 1)<br />                  pt   (xdrx_getentdxf 10)<br />                  high (xdrx_getentdxf 40)<br />            )<br />            (vla-addattribute<br />              (vla-get-modelspace<br />                (vla-get-activedocument (vlax-get-acad-object))<br />              )<br />              high<br />              acAttributeModePreset<br />              txt<br />              (vlax-3d-point pt)<br />              txt<br />              txt<br />            )<br />            (xdrx_entity_delete e)<br />          )<br />        )<br />        (setq tf nil)<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )