infeeeee/revitDwgImportCleaner
1
0
Fork 0
Code Issues 11 Pull Requests Releases Wiki Activity

Added delete all points

Browse Source
This commit is contained in:
Péter Gyetvai
2019-05-06 13:29:20 +02:00
parent 303cc62b05
commit e6456bce4b
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@@ -6,6 +6,7 @@ Clean dwg files before linking them to Revit
- change to model space - change to model space
- remove all xlines from model space and from blocks - remove all xlines from model space and from blocks
- delete all points from modelspace
- move hatches to separate layers - move hatches to separate layers
- attribute definitions not in block to txt because they are not showing up in Revit - attribute definitions not in block to txt because they are not showing up in Revit
- purge - purge

11
revitDwgImportCleaner.scr
View File

@@ -23,6 +23,17 @@
) )
dax dax
;------------------------------------------------------------ ;------------------------------------------------------------
;deleteAllPoints: deletes all points in modelspace
(defun C:dap (/ ss)
(graphscr)
(setq ss (ssget "_A" '((0 . "POINT"))))
(if ss
(command "._erase" ss "")
)
(princ)
)
dap
;------------------------------------------------------------
;rxl.lsp: removes xlines from blocks: ;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