added sephatch, disabled xref, general cleanup

revitDwgImportCleaner.scr

@@ -1,21 +1,27 @@
-;version 1.1
+;version 1.2
 ;Run this script before importing dwg-s to Revit
 ;Created by Peter Gyetvai - gyetpet@gmail.com
+;
 ._MODEL
+;------------------------------------------------------------
+;XREF manegement is completely disabled until I fix it
 ;._-xref
 ;r
 ;*
-._-xref
+;._-xref
-b
+;b
-*
+;*
-;This is deleteAllXlines.lsp. deletes all xlines in modelspace
+;------------------------------------------------------------
-;(defun C:dax (/ ss)
+;deleteAllXlines.lsp: deletes all xlines in modelspace
-;    (graphscr)
+(defun C:dax (/ ss)
-;    (setq ss (ssget "_A" '((0 . "XLINE"))))
+    (graphscr)
-;    (command "._erase" ss "")
+    (setq ss (ssget "_A" '((0 . "XLINE"))))
-;)
+    (command "._erase" ss "")
-;dax
+    (princ)
-;This is rxl.lsp: removes xlines from blocks:
+)
+dax
+;------------------------------------------------------------
+;rxl.lsp: removes xlines from blocks:
 (defun c:rxl (/ b d l lo nl x)
     ;; RJP - 04.30.2018
     ;; Deletes xlines within block definitions
@@ -31,12 +37,40 @@ b
     (princ)
 )(vl-load-com)
 rxl
+;------------------------------------------------------------
+;sepHatch.lsp: Move hatches to new layers
+(defun C:sephatch (/ ss i il imax currElem layerName newLayerName layerSettings newLayerSettings newLayer newElem)
+    (graphscr)
+    (setq ss (ssget "_A" '((0 . "HATCH"))))
+    (setq il (sslength ss));length of selection
+    (setq i 0);counter to zero
+    (setq imax 1);while variable
+    (while imax 
+        (setq currElem (entget (ssname ss i) ))
+        (setq layerName (cdr (assoc 8 currElem)))
+        (setq newLayerName (strcat layerName "-hatch"))
+        (command "._-layer" "_M" newLayerName "")
+        (setq layerSettings (entget (tblobjname  "LAYER" layerName)))
+        (setq newLayerSettings (entget (tblobjname  "LAYER" newLayerName)))
+        (setq newLayer (subst (cons 62 (cdr (assoc 62 layerSettings))) (assoc 62 newLayerSettings) newLayerSettings))
+        (setq newLayer (subst (cons 70 (cdr (assoc 70 layerSettings))) (assoc 70 newLayer) newLayer))
+        (entmod newLayer)
+        (setq newElem(subst (cons 8 newLayerName) (assoc 8 currElem) currElem))
+        (entmod newElem)
+        (setq i (1+ i));increments i
+        (if (= i il) (setq imax nil));finish function if i equals il
+    )
+(princ)
+)
+sephatch
+;------------------------------------------------------------
 ._-PURGE
 a
 *
 n
 ._ZOOM
 e
+._REGENALL
 ._AUDIT
 y
 ._-AECEXPORTTOAUTOCAD