(defun c:lorder(/ sEnt fLst)
  (and
    (setq sEnt(entsel "\nPick object on wanted layer > "))
    (setq fLst(assoc 8(entget(car sEnt))))
    (vl-cmdf "_.draworder"(ssget "_X"(list fLst)) "")
    ); end and
  (princ)
  ); end of c:lorder