(Defun C:LSETZEN ()
  (Setvar "Cmdecho" 0)
  (Setq A (Entsel "\nPick Objekt on the desired Layer: "))
  (If
    A
      (Progn
        (Setq A (Cdr (Assoc 8 (Entget (Car A)))))
        (Command "_Layer" "_SE" _A "")
      )
  )
  (Princ)
)