fixed delete all xlines

This commit is contained in:
2019-03-29 02:58:58 +01:00
parent 44a513f5f4
commit 90d7797618

View File

@@ -16,7 +16,9 @@
(defun C:dax (/ ss) (defun C:dax (/ ss)
(graphscr) (graphscr)
(setq ss (ssget "_A" '((0 . "XLINE")))) (setq ss (ssget "_A" '((0 . "XLINE"))))
(if ss
(command "._erase" ss "") (command "._erase" ss "")
)
(princ) (princ)
) )
dax dax