14 lines
387 B
Common Lisp
14 lines
387 B
Common Lisp
(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) |