【K:Cecolor4ACI】获取当前色的ACI近似色

admin1

1. (defun K:Cecolor4ACI (/ LayObj CurCol AciCol LayLck TmpEn)
   
2.     (setq LayObj (vlax-ename->vla-object (tblobjname "LAYER" (getvar "CLAYER"))));当前层
   
3.     (setq CurCol (getvar "CECOLOR"))
   
4.     (cond
   
5.         ((<= 1 (atoi CurCol) 255)(setq AciCol (atoi CurCol)));1~255
   
6.         ((= "BYBLOCK" CurCol) (setq AciCol 7));随块0
   
7.         ((= "BYLAYER" CurCol) (setq AciCol (vla-get-Color LayObj)));随层取层色
   
8.         (T
   
9.             (setq LayLck Nil)
   
10.             (if (eq (vla-get-lock LayObj) :vlax-true);锁定了
    
11.                 (progn
    
12.                   (setq LayLck T)
    
13.                   (vla-put-lock LayObj :vlax-false);解锁
    
14.                 )
    
15.             );临时解锁当前层
    
16.             (setq TmpEn (entmakeX (list '(0 . "POINT") (cons 10 '(0.0 0.0 0.0)))));创建临时实体
    
17.             (setq AciCol (cdr (assoc 62 (entget TmpEn))))
    
18.             (if TmpEn (vla-Delete (vlax-ename->vla-object TmpEn)));删除临时实体
    
19.             (if LayLck (vla-put-lock LayObj :vlax-false));重新锁定当前层
    
20.         );RGB或其它
    
21.     )
    
22.     AciCol
    
23. )
    
24. 
    
25. 
    
26. (grdraw (getpoint) (getpoint) (K:Cecolor4ACI));UCS

复制代码