fixed delete all xlines

2019-03-29 02:58:58 +01:00
parent 44a513f5f4
commit 90d7797618
1 changed files with 3 additions and 1 deletions
--- a/revitDwgImportCleaner.scr
+++ b/revitDwgImportCleaner.scr
@@ -16,7 +16,9 @@
 (defun C:dax (/ ss)
    (graphscr)
    (setq ss (ssget "_A" '((0 . "XLINE"))))
-    (command "._erase" ss "")
+    (if ss
+        (command "._erase" ss "")
+    )
    (princ)
 )
 dax