fixed delete all xlines
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user