moved importcleaner separate repo, added 3 new lisps for importcleaner

deleteAllXlines.lsp

@@ -0,0 +1,7 @@
+(defun C:dax (/ ss)
+    (graphscr)
+
+    (setq ss (ssget "_A" '((0 . "XLINE"))));select all
+    (command "._erase" ss "")
+
+)

downloaded/rxl.lsp

@@ -0,0 +1,14 @@
+(defun c:rxl (/ b d l lo nl x)
+ ;; RJP - 04.30.2018
+ ;; Deletes xlines within block definitions
+ (vlax-for a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
+   (if	(= 0 (vlax-get a 'islayout))
+     (vlax-for	b a
+(if (and (vlax-write-enabled-p b) (= "AcDbXline" (vla-get-objectname b)))
+  (vl-catch-all-apply 'vla-delete (list b))
+)
+     )
+   )
+ )
+ (princ)
+)(vl-load-com)

downloaded/xrefbind.lsp

@@ -0,0 +1,25 @@
+(defun c:XrefBind (/ tmpObj)
+  (vl-load-com)
+  (vlax-for objs (vla-get-ModelSpace
+		   (vla-get-activedocument (vlax-get-acad-object))
+		 )
+    (if
+      (and
+	(= (vla-get-ObjectName objs) "AcDbBlockReference")
+	(vlax-property-available-p objs 'Path)
+	(setq
+	  tmpObj (vla-Item
+		   (vla-get-Blocks
+		     (vla-get-ActiveDocument (vlax-get-Acad-Object))
+		   )
+		   (vla-get-Name objs)
+		 )
+	)
+	(not (assoc 71 (entget (tblobjname "block" (vla-get-Name objs)))))
+      )
+       (vla-Bind tmpObj :vlax-true)
+    )
+  )
+
+  (princ)
+)

scr/revitDwgImportCleaner.scr

@@ -1,16 +0,0 @@
-;version 1.0
-;Run this script before importing dwg-s to Revit
-;Created by Peter Gyetvai - gyetpet@gmail.com
-._MODEL
-._-PURGE
-a
-*
-n
-._ZOOM
-e
-._AUDIT
-y
-._-AECEXPORTTOAUTOCAD
-f
-2013
-

scr/revitDwgImportCleanerOverwrite.scr

@@ -1,18 +0,0 @@
-;version 1.0
-;Run this script before importing dwg-s to Revit
-;This version if you don't want to create a new copy of the file, just fix it.
-;Created by Peter Gyetvai - gyetpet@gmail.com
-._MODEL
-._-PURGE
-a
-*
-n
-._ZOOM
-e
-._AUDIT
-y
-._+SAVEAS
-g
-2013dwg
-
-y