moved importcleaner separate repo, added 3 new lisps for importcleaner
This commit is contained in:
14
downloaded/rxl.lsp
Normal file
14
downloaded/rxl.lsp
Normal file
@@ -0,0 +1,14 @@
|
||||
(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)
|
||||
Reference in New Issue
Block a user