;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"))))
;    (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