;6 ***********  CHANGE-COLOR  L***

(defun c:Rc (/ ent)

  (setq	ent (ssget)

  )

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

)