;Change entity color, one or many
;
(defun c:cec ( / )
  (setq ccss (ssget))
  (setq sslen (sslength ccss))
  (setq newcol (uint 1 "" "New color for selection" 256))
  (while (>= sslen 1)
    (setq ccent (entget(ssname ccss (1- sslen))))
    (if (assoc 62 ccent)
      (setq ccent
        (subst
          (cons 62 newcol)
          (assoc 62 ccent)
          ccent
        );subst
      );setq
      (setq ccent
        (append ccent
          (list (cons 62 newcol))
        );append
      );setq
    );if
    (entmod ccent)
    (setq sslen (1- sslen))
  );while
);defun