49 lines
841 B
Plaintext
49 lines
841 B
Plaintext
;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
|
|
|
|
|