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