Added moveOrigin and deleteLayouts

2021-02-13 00:58:51 +01:00
parent 3f3e367377
commit 753c0ee058
4 changed files with 146 additions and 4 deletions
--- a/scripts/deleteLayouts.lsp
+++ b/scripts/deleteLayouts.lsp
@@ -0,0 +1,15 @@
+(defun C:deleteLayouts ()
+    (vl-load-com)
+    (graphscr)
+
+    (initget 1 "Yes No")
+    (setq really (getkword "Delete all layouts? [Yes/No]"))
+    (if 
+        (= really "Yes")
+        (vlax-for l (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
+            (if (/= (vla-get-name l) "Model")
+                (vla-delete l)
+            )
+        )        
+    )
+)