moved importcleaner separate repo, added 3 new lisps for importcleaner

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)
+)