Merry Christmas!
You can try the codes below. Save it as a *.LSP file and load it with command APPLOAD. Then type ORDERBYLAYER in the command line.
You can change the layer names to suit your usage.
;;; OrderByLayer.lsp
;;; By 3wood 2015.12.24
;;; Change the layer name and add more layers to suit.
;;; The first layer will be sent to front and the last layer sent to back.
(defun C:OrderByLayer ()
(command "._DRAWORDER" (ssget "_A" '((8 . "Layer1"))) "" "_B")
(command "._DRAWORDER" (ssget "_A" '((8 . "Layer2"))) "" "_B")
(command "._DRAWORDER" (ssget "_A" '((8 . "Layer3"))) "" "_B")
(command "._DRAWORDER" (ssget "_A" '((8 . "Layer4"))) "" "_B")
(command "._DRAWORDER" (ssget "_A" '((8 . "Layer5"))) "" "_B")
(command "._DRAWORDER" (ssget "_A" '((8 . "Layer6"))) "" "_B")
)