【K:SetTrueColorByACI】通过ColorIndex属性设置ACI颜色

kucha007

此函数可以设置天正对象的颜色为索引色


用法：

1. (if (setq obj (vlax-ename->vla-object (car (nentsel))))
   
2.   (K:SetTrueColorByACI obj 0);0~256
   
3. )
   

(if (setq obj (vlax-ename->vla-object (car (nentsel))))<br />   (K:SetTrueColorByACI obj 0);0~256<br /> )<br />

1. ;通过ColorIndex属性设置ACI颜色@Kucha
   
2. (defun K:SetTrueColorByACI (obj aci / RGBCol)
   
3.   (setq RGBCol (vla-get-TrueColor obj))
   
4.   (vlax-put-property RGBCol 'ColorIndex aci)
   
5.   (vla-put-TrueColor obj RGBCol)
   
6. )
   

;通过ColorIndex属性设置ACI颜色@Kucha<br /> (defun K:SetTrueColorByACI (obj aci / RGBCol) <br />   (setq RGBCol (vla-get-TrueColor obj))<br />   (vlax-put-property RGBCol 'ColorIndex aci)<br />   (vla-put-TrueColor obj RGBCol)<br /> )<br />