From f87fc27ad6a4d8ee35b11738157169c5244b196d Mon Sep 17 00:00:00 2001 From: infeeeee Date: Tue, 4 Dec 2018 03:22:17 +0100 Subject: [PATCH] moved importcleaner separate repo, added 3 new lisps for importcleaner --- deleteAllXlines.lsp | 7 +++++++ downloaded/rxl.lsp | 14 ++++++++++++++ downloaded/xrefbind.lsp | 25 +++++++++++++++++++++++++ scr/revitDwgImportCleaner.scr | 16 ---------------- scr/revitDwgImportCleanerOverwrite.scr | 18 ------------------ 5 files changed, 46 insertions(+), 34 deletions(-) create mode 100644 deleteAllXlines.lsp create mode 100644 downloaded/rxl.lsp create mode 100644 downloaded/xrefbind.lsp delete mode 100644 scr/revitDwgImportCleaner.scr delete mode 100644 scr/revitDwgImportCleanerOverwrite.scr diff --git a/deleteAllXlines.lsp b/deleteAllXlines.lsp new file mode 100644 index 0000000..3edb250 --- /dev/null +++ b/deleteAllXlines.lsp @@ -0,0 +1,7 @@ +(defun C:dax (/ ss) + (graphscr) + + (setq ss (ssget "_A" '((0 . "XLINE"))));select all + (command "._erase" ss "") + +) diff --git a/downloaded/rxl.lsp b/downloaded/rxl.lsp new file mode 100644 index 0000000..a37158b --- /dev/null +++ b/downloaded/rxl.lsp @@ -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) \ No newline at end of file diff --git a/downloaded/xrefbind.lsp b/downloaded/xrefbind.lsp new file mode 100644 index 0000000..e8bf31a --- /dev/null +++ b/downloaded/xrefbind.lsp @@ -0,0 +1,25 @@ +(defun c:XrefBind (/ tmpObj) + (vl-load-com) + (vlax-for objs (vla-get-ModelSpace + (vla-get-activedocument (vlax-get-acad-object)) + ) + (if + (and + (= (vla-get-ObjectName objs) "AcDbBlockReference") + (vlax-property-available-p objs 'Path) + (setq + tmpObj (vla-Item + (vla-get-Blocks + (vla-get-ActiveDocument (vlax-get-Acad-Object)) + ) + (vla-get-Name objs) + ) + ) + (not (assoc 71 (entget (tblobjname "block" (vla-get-Name objs))))) + ) + (vla-Bind tmpObj :vlax-true) + ) + ) + + (princ) +) \ No newline at end of file diff --git a/scr/revitDwgImportCleaner.scr b/scr/revitDwgImportCleaner.scr deleted file mode 100644 index 55cb1c5..0000000 --- a/scr/revitDwgImportCleaner.scr +++ /dev/null @@ -1,16 +0,0 @@ -;version 1.0 -;Run this script before importing dwg-s to Revit -;Created by Peter Gyetvai - gyetpet@gmail.com -._MODEL -._-PURGE -a -* -n -._ZOOM -e -._AUDIT -y -._-AECEXPORTTOAUTOCAD -f -2013 - diff --git a/scr/revitDwgImportCleanerOverwrite.scr b/scr/revitDwgImportCleanerOverwrite.scr deleted file mode 100644 index 01a91fc..0000000 --- a/scr/revitDwgImportCleanerOverwrite.scr +++ /dev/null @@ -1,18 +0,0 @@ -;version 1.0 -;Run this script before importing dwg-s to Revit -;This version if you don't want to create a new copy of the file, just fix it. -;Created by Peter Gyetvai - gyetpet@gmail.com -._MODEL -._-PURGE -a -* -n -._ZOOM -e -._AUDIT -y -._+SAVEAS -g -2013dwg - -y