(defun c:lfof(/ elwahl elfa ellay)
  (setq elwahl(entget(car(entsel)))
        elfa (cdr (assoc 62 elwahl))
	 ellay(cdr (assoc 8 elwahl)))
  (if (not elfa) (setq elfa 256))
  (setq elfa (rtos elfa 2 0))
  (command "_-layer" "_c" elfa ellay "")
  (princ))
(princ "\nSetzt Layerfarbe auf Objektfarbe - Programm mit LFOF starten!")(princ)