( XD::Attrib:SetColor)设置属性实体颜色

XDSoft

1. ;|
   
2. 修改属性实体的颜色
   
3. 参数：
   
4.    e ---- 属性实体名
   
5.    clr--- 颜色号
   
6. 
   
7. 返回值：成功T 否 NIL
   
8. |;
   
9. (defun XD::Attrib:SetColor (e clr / re)
   
10.   (if (= "ATTRIB" (cdr (assoc 0 (entget e))))
    
11.     (progn
    
12.       (setq re (xdrx_entity_setcolor e clr))
    
13.     )
    
14.   )
    
15.   re
    
16. )
    
17. 
    

;|<br /> 修改属性实体的颜色<br /> 参数：<br />    e ---- 属性实体名<br />    clr--- 颜色号<br /> <br /> 返回值：成功T 否 NIL<br /> |;<br /> (defun XD::Attrib:SetColor (e clr / re)<br />   (if (= "ATTRIB" (cdr (assoc 0 (entget e))))<br />     (progn<br />       (setq re (xdrx_entity_setcolor e clr))<br />     )<br />   )<br />   re<br /> )<br /> <br />

GTJ116600

研究研究！！！！

qyming2000

学习      
来自: 微社区