0 Members and 1 Guest are viewing this topic.
(defun c:lwn ( / lst lst1 lst2 lst3 lst4 ) (setq lst (layoutlist)) (setq len (length lst));;; (setq lst1 nil);;; (setq lst2 nil);;; (setq lst3 nil);;; (setq lst4 nil) (foreach x lst (setq lst1 (append lst1 (list (substr x 2)))) ) (foreach c lst1 (setq lst2 (append lst2 (list (strcat "1" c)))) ) (foreach v lst2 (setq lst3 (append lst3 (list (substr v 1 11)))) ) (foreach b lst3 (setq lst4 (append lst4 (list (strcat b "PN")))) ) )
(defun c:renametabs ( / doc layouts)(vl-load-com) (setq layouts (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))))(vlax-for layout layouts(while (vl-string-search "OLD name" (vla-get-name layout))(vla-put-name layout (vl-string-subst "NEW name" "OLD name" (vla-get-name layout)))))(princ))
(princ "TABRENAME.LSP loaded - type TABRENAME to run.")(defun C:TABRENAME (/ LTLIST OLD_TEXT NEW_TEXT GO_NOGO LIST_ITEM NEW_LIST ITEM) (setq LTLIST (layoutlist)) (prompt "\nFind and replace text in layout tabs...") (setq OLD_TEXT (getstring "\n Find: ")) (setq NEW_TEXT (getstring "\n Replace with: ")) (while LTLIST (foreach N LTLIST (setq LIST_ITEM (car LTLIST)) (setq LTLIST (cdr LTLIST)) (if (vl-string-search OLD_TEXT LIST_ITEM) (progn (setq NEW_LIST_ITEM (vl-string-subst NEW_TEXT OLD_TEXT LIST_ITEM) ) (command "layout" "R" LIST_ITEM NEW_LIST_ITEM) (PRINC) ) ) ) ) (PRINC "To undo this change, you must run TABRENAME again..."))
(vl-load-com)(setq lst (layoutlist))(foreach x lst(command "layout" "R" x (vl-string-subst "PN" "HV" (vl-string-subst "1" "7" x))))
This program from Lee Mac is amazing. i use it all the time and it does way more then just renumbering and renaming. http://www.lee-mac.com/tabsort.html