Added moveOrigin and deleteLayouts

revitDwgImportCleaner.lsp

@@ -271,6 +271,75 @@
     (princ)
 )
 
+; -------------------------------- moveOrigin -------------------------------- ;
+
+(defun moveOrigin (/ move wcs setCurrUcs newOrigin)
+    (vl-load-com)
+    (graphscr)
+
+    (initget 1 "Yes No")
+    (setq move (getkword "Move origin? [Yes/No]"))
+    (if 
+        (= move "Yes")
+        (progn
+            (setq wcs (getvar "worlducs"))
+            (if
+                (= wcs 0)
+                (progn
+                    ;; it's not WCS
+                    (initget 1 "UCS Pick")
+                    (setq setCurrUcs (getkword "Set current UCS or pick point [UCS/Pick]"))
+                    (if 
+                        (= setCurrUcs "UCS")
+                        (progn
+                            (setq newOrigin (trans '(0.0 0.0 0.0) 1 0))
+                            (command "._UCS" "W")
+                            (moveDrawing newOrigin)
+                        )
+                        (progn
+                            ;; Pick point selected
+                            (command "._UCS" "W")
+                            (pickPoint)       
+                        )
+                    )
+                )
+                ;;it's wcs:
+                (pickPoint)
+            )
+        )
+    )
+)
+
+(defun pickPoint ()
+    (setq newOrigin (getpoint "\nPick new origin"))
+    ;; (print newOrigin)
+    (moveDrawing newOrigin)
+)
+
+(defun moveDrawing (point / ssX coords)
+    (setq ssX (ssget "x"))
+    (setq coords (strcat (rtos (car point) 2) "," (rtos (cadr point) 2)))
+    
+    (command "move" ssX "" coords "0,0")
+)
+
+; ------------------------------- deleteLayouts ------------------------------ ;
+(defun 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)
+            )
+        )        
+    )
+)
+
 ; -------------------------- checkedExportToAutocad -------------------------- ;
 ;if the file length is too long, export to desktop
 (defun checkedExportToAutocad (/ prefix basefilename fn1 fn2 fullength filename savepath)
@@ -317,6 +386,13 @@
 ;; Attdef to txt
 (cAttDef2Text)
 
+;; deleteLayouts
+(deleteLayouts)
+
+;; moveOrigin
+(moveOrigin)
+(command "._ZOOM" "e")
+
 ;; Units
 (unitcheck)