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

(defun c:RW (/ ent)

  (setq	ent (ssget)

  )

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

)