Update revitDwgImportCleaner.scr

This commit is contained in:
2018-12-17 04:04:34 +01:00
parent e4b3e91194
commit 206e5b9aa3

View File

@@ -2,21 +2,19 @@
;Run this script before importing dwg-s to Revit ;Run this script before importing dwg-s to Revit
;Created by Peter Gyetvai - gyetpet@gmail.com ;Created by Peter Gyetvai - gyetpet@gmail.com
._MODEL ._MODEL
._-xref ;._-xref
r ;r
* ;*
._-xref ._-xref
b b
* *
;
;This is deleteAllXlines.lsp. deletes all xlines in modelspace ;This is deleteAllXlines.lsp. deletes all xlines in modelspace
(defun C:dax (/ ss) ;(defun C:dax (/ ss)
(graphscr) ; (graphscr)
(setq ss (ssget "_A" '((0 . "XLINE"))));select all ; (setq ss (ssget "_A" '((0 . "XLINE"))))
(command "._erase" ss "") ; (command "._erase" ss "")
) ;)
dax ;dax
;
;This is rxl.lsp: removes xlines from blocks: ;This is rxl.lsp: removes xlines from blocks:
(defun c:rxl (/ b d l lo nl x) (defun c:rxl (/ b d l lo nl x)
;; RJP - 04.30.2018 ;; RJP - 04.30.2018