(defun c:CV-HBACK ( / ss )
  (princ "\n--- CV-HBACK: Send Hatches to Back by CADVoid.com ---")
  (if (setq ss (ssget "X" '((0 . "HATCH"))))
    (progn
      (command "_.draworder" ss "" "_back")
      (princ "\nAll hatches moved to the background.")
    )
    (princ "\nNo hatches found in drawing.")
  )
  (princ "\n--- Powered by CADVoid.com ---")
  (princ)
)
(princ "\nType CV-HBACK to send all hatches to back. [CADVoid.com]")
(princ)