(defun C:dax (/ ss)
    (graphscr)

    (setq ss (ssget "_A" '((0 . "XLINE"))));select all
    (command "._erase" ss "")

)