fixed sephatch if no hatch in the file

revitDwgImportCleaner.lsp

@@ -75,6 +75,8 @@
 (defun sephatch (/ ss i il imax currElem layerName newLayerName layerSettings newLayerSettings newLayer newElem)
     (graphscr)
     (setq ss (ssget "_A" '((0 . "HATCH"))))
+    (if ss
+      (progn
         (setq il (sslength ss));length of selection
         (setq i 0);counter to zero
         (setq imax 1);while variable
@@ -93,6 +95,8 @@
             (setq i (1+ i));increments i
             (if (= i il) (setq imax nil));finish function if i equals il
         )
+      )
+    )
 (princ)
 )