From 90d7797618352622ad20945424b20037ff50d19f Mon Sep 17 00:00:00 2001
From: infeeeee <gyetpet@gmail.com>
Date: Fri, 29 Mar 2019 02:58:58 +0100
Subject: [PATCH] fixed delete all xlines

---
 revitDwgImportCleaner.scr | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/revitDwgImportCleaner.scr b/revitDwgImportCleaner.scr
index 1ebe274..1cbc28a 100644
--- 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