(defun c:DrawOrderX (/ ss)
     (princ "\nSelect object to bring forward")
     (if (setq ss (ssget '((-4 . "<NOT")(0 . "HATCH,AEC_SPACE")(-4 . "NOT>"))))
  (command "copy" ss "" "0,0" "0,0" "erase" "p" "")
  )
     (princ)
     )