8 lines
124 B
Common Lisp
8 lines
124 B
Common Lisp
(defun C:dax (/ ss)
|
|
(graphscr)
|
|
|
|
(setq ss (ssget "_A" '((0 . "XLINE"))));select all
|
|
(command "._erase" ss "")
|
|
|
|
)
|