리습 문의 드립니다. 레이어에 따른 색상변화

명령어 ccll 입니다.
해보세요.
선택한 개체중에서 레이어가
“A”이면 3번 색
“B”이면 5번 색
이렇게 변경해줍니다.
원하시는게 이건지…

(defun c:ccll ( / *CATCH_ERROR *OBJ_ENAME *OBJ_LAYER *OBJ_SSET *RPT_COUNT)

   (princ “n 색상을 변경할 개체 선택 : “)
   (setq *Catch_Error
    (vl-catch-all-apply
       ‘(lambda ()
    ;;
    (setq *Obj_SSet (ssget))
        )
    )
   )

   (if (vl-catch-all-error-p *Catch_Error)
      (progn
  (vl-exit-with-error “”)
      )
   )

   (setvar “cmdecho” 0)
   (setq *Rpt_Count 0)
   (repeat (sslength *Obj_SSet)

      (setq *Obj_Ename (ssname *Obj_SSet *Rpt_Count))
      (setq *Obj_Layer (cdr (assoc 8 (entget *Obj_Ename))))

      (cond
  ((= (strcase *Obj_Layer) “A”) (command “chprop” *Obj_Ename “” “c” 3 “”))
  ((= (strcase *Obj_Layer) “B”) (command “chprop” *Obj_Ename “” “c” 5 “”))
      )

      (setq *Rpt_Count (1+ *Rpt_Count))
   )

   (princ)
)