;;;Elise Moss
;;;www.mossdesigns.com
;;;This routine allows users to select an entity to change the layer color
(defun c:lcol ()
  ;; first select something
  (setq ent (car(entsel "\nSelect an item on the layer to be modified: ")))
  ; get entity data
  (setq ent-data (entget ent))
  ; determine what the layer is
  (setq lay-name (cdr (assoc 8 ent-data)))
  ; select a color
  (setq color-select (acad_colordlg 3))
  ; set the layer to that color
  (command "-layer" "c" color-select lay-name "")
  (command "regen")


);;  end defun