;6 ***********  CHANGE-COLOR  L***
;RB变蓝色，RC变青色，RM变紫色，RR变红色，RW变白色，RY变黄色，R0颜色同图层
(defun c:Rb (/ ent)

  (setq	ent (ssget)

  )

  (command "CHANGE" ent "" "P" "CO" "b" "")

)
(defun c:Rc (/ ent)

  (setq	ent (ssget)

  )

  (command "CHANGE" ent "" "P" "CO" "c" "")

)
(defun c:Rm (/ ent)

  (setq	ent (ssget)

  )

  (command "CHANGE" ent "" "P" "CO" "m" "")

)

(defun c:RR (/ ent)

  (setq	ent (ssget)

  )

  (command "CHANGE" ent "" "P" "CO" "R" "")

)
(defun c:RW (/ ent)

  (setq	ent (ssget)

  )

  (command "CHANGE" ent "" "P" "CO" "W" "")

)
(defun c:Ry (/ ent)

  (setq	ent (ssget)

  )

  (command "CHANGE" ent "" "P" "CO" "Y" "")

)

 (defun c:R0 (/ ent)

  (setq	ent (ssget)

  )

  (command "CHANGE" ent "" "P" "CO" "BYLAYER" "")

)