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