moved to separate repo

revitDwgImportCleaner.scr

@@ -0,0 +1,50 @@
+;version 1.1
+;Run this script before importing dwg-s to Revit
+;Created by Peter Gyetvai - gyetpet@gmail.com
+._MODEL
+._-xref
+r
+*
+._-xref
+b
+*
+;
+;This is deleteAllXlines.lsp. deletes all xlines in modelspace
+(defun C:dax (/ ss)
+    (graphscr)
+    (setq ss (ssget "_A" '((0 . "XLINE"))));select all
+    (command "._erase" ss "")
+)
+dax
+;
+;This is rxl.lsp: removes xlines from blocks:
+(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)
+rxl
+._-PURGE
+a
+*
+n
+._ZOOM
+e
+._AUDIT
+y
+._-AECEXPORTTOAUTOCAD
+f
+2013
+s
+_cleaned
+
+