(XD::Attrib:ModifyStyle)修改属性实体的样式

XDSoft

1. ;|修改属性实体的样式
   
2. 参数：
   
3.   e ---- 属性实体名
   
4.   sytl -- 文字样式名
   
5. 
   
6. 返回值：成功 T 否 NIL
   
7. |;
   
8. 
   
9. (defun XD::Attrib:ModifyStyle (e styl / re)
   
10.   (if (= "ATTRIB" (cdr (assoc 0 (entget e))))
    
11.     (progn
    
12.       (if (xdrx_object_get "style" styl)
    
13.         (progn
    
14.           (xdrx_setenttodb e)
    
15.           (setq re (xdrx_modent 7 styl))
    
16.           (xdrx_object_regen e)
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21.   re
    
22. )
    
23. 
    

;|修改属性实体的样式<br /> 参数：<br />   e ---- 属性实体名<br />   sytl -- 文字样式名<br /> <br /> 返回值：成功 T 否 NIL<br /> |;<br /> <br /> (defun XD::Attrib:ModifyStyle (e styl / re)<br />   (if (= "ATTRIB" (cdr (assoc 0 (entget e))))<br />     (progn<br />       (if (xdrx_object_get "style" styl)<br />         (progn<br />           (xdrx_setenttodb e)<br />           (setq re (xdrx_modent 7 styl))<br />           (xdrx_object_regen e)<br />         )<br />       )<br />     )<br />   )<br />   re<br /> )<br /> <br />

eachy

xdrx_setenttodb 放到最前面更好

1. ;|修改属性实体的样式
   
2. 参数：
   
3.   e ---- 属性实体名
   
4.   sytl -- 文字样式名
   
5. 返回值：成功 T 否 NIL
   
6. |;
   
7. (defun XD::Attrib:ModifyStyle (e styl / re)
   
8.   (xdrx_setenttodb e)
   
9.   (if (and (= "ATTRIB" (xdrx_getentdxf 0))
   
10.     (xdrx_object_get "style" styl)
    
11.       )
    
12.     (progn
    
13.       (setq re (xdrx_modent 7 styl))
    
14.       (xdrx_object_regen e)
    
15.     )
    
16.   )
    
17.   re
    
18. )

;|修改属性实体的样式<br /> 参数：<br />   e ---- 属性实体名<br />   sytl -- 文字样式名<br /> 返回值：成功 T 否 NIL<br /> |;<br /> (defun XD::Attrib:ModifyStyle (e styl / re)<br />   (xdrx_setenttodb e)<br />   (if (and (= "ATTRIB" (xdrx_getentdxf 0))<br />     (xdrx_object_get "style" styl)<br />       )<br />     (progn<br />       (setq re (xdrx_modent 7 styl))<br />       (xdrx_object_regen e)<br />     )<br />   )<br />   re<br /> )

qyming2000

学习         
来自: 微社区