(XD::Attrib:ToText)属性文字生成文字实体

newer

1. ;|
   
2. 属性生成文字实体
   
3. 
   
4. 参数：att --- 属性实体名
   
5. 返回值： 成功 返回文字实体名
   
6.          否 NIL
   
7. 说明：文字实体保持属性文字的属性（插入点，对齐方式，颜色，图层....)
   
8. |;
   
9. (defun XD::Attrib:ToText (att / ed ed1 ed2)
   
10.   (if (and
    
11.         (= 'ENAME (type att))
    
12.         (= (xdrx_getpropertyvalue att "isa") "AcDbAttribute")
    
13.         (setq ed (entget att)
    
14.               ed1 (XD::AssocList:K1->Kn ed 8 210 nil)
    
15.               ed2 (append
    
16.                     (cons (cons 0 "TEXT") ed1)
    
17.                     (list (assoc 210 ed) (cons 73 (cdr (assoc 74 ed))))
    
18.                   )
    
19.         )
    
20.         (entmake ed2)
    
21.       )
    
22.     (entlast)
    
23.   )
    
24. )

;|<br /> 属性生成文字实体<br /> <br /> 参数：att --- 属性实体名<br /> 返回值： 成功 返回文字实体名<br />          否 NIL<br /> 说明：文字实体保持属性文字的属性（插入点，对齐方式，颜色，图层....)<br /> |;<br /> (defun XD::Attrib:ToText (att / ed ed1 ed2)<br />   (if (and<br />         (= 'ENAME (type att))<br />         (= (xdrx_getpropertyvalue att "isa") "AcDbAttribute")<br />         (setq ed (entget att)<br />               ed1 (XD::AssocList:K1->Kn ed 8 210 nil)<br />               ed2 (append<br />                     (cons (cons 0 "TEXT") ed1)<br />                     (list (assoc 210 ed) (cons 73 (cdr (assoc 74 ed))))<br />                   )<br />         )<br />         (entmake ed2)<br />       )<br />     (entlast)<br />   )<br /> )

st788796

把 '("*") 加上是不是还有可能保持更多