moved importcleaner separate repo, added 3 new lisps for importcleaner

This commit is contained in:
2018-12-04 03:22:17 +01:00
parent 236f563616
commit f87fc27ad6
5 changed files with 46 additions and 34 deletions

14
downloaded/rxl.lsp Normal file
View 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)