Update revitDwgImportCleaner.scr
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user