;;선택객체의 Bylayer색상 변경

(defun c:bcc(/ en ed lay_0 ocn ncn)  
   (setvar "cmdecho" 0)  
   (setq en (car (entsel "n색상변경할 객체선택:")))  
   (setq ed (entget en))  
   (setq lay_0 (cdr (assoc 8 ed)))  
   (setq ocn 256)  
   (setq ncn (acad_colordlg ocn))  
   (if (= ncn 256) (setq ncn "bylayer"))  
   (vl-cmdf "layer" "c" ncn lay_0 "")  
   (princ)  
)