added xref management and proxygraphics

revitDwgImportCleaner.scr

@@ -4,13 +4,25 @@
 ;
 ._MODEL
 ;------------------------------------------------------------
-;XREF manegement is completely disabled until I fix it
-;._-xref
-;r
-;*
-;._-xref
-;b
-;*
+;XREFS: bind and detach all
+(defun C:bindAndDetachXrefs (/ blk)
+  (graphscr)    
+  (foreach x
+    (mapcar 'cadr (ssnamex (ssget "_X" '((0 . "INSERT") (410 . "MODEL")))))
+    (setq blk (cdr (assoc 2 (entget x))))
+    (if (assoc 1 (tblsearch "block" blk)) 
+      (progn
+        (command "_.-xref" "_bind" blk)  
+        (command "_.-xref" "_detach" blk)
+      )
+    )
+  )
+)
+;If you don't want to bind just detach uncomment the following line:
+bindAndDetachXrefs
+;------------------------------------------------------------
+;Detach all xrefs. 
+._-xref d *
 ;------------------------------------------------------------
 ;deleteAllXlines.lsp: deletes all xlines in modelspace
 (defun C:dax (/ ss)
@@ -154,6 +166,8 @@ sephatch
 )
 AttDef2Text
 ;------------------------------------------------------------
+PROXYGRAPHICS
+1
 ._-PURGE
 a
 *