I used this LISP routine frequently for my old job. It is a routine that I found at www.cadalyst.com and is very helpful. What it does is let you rename the current layout tab by selecting a text object that is on the layout tab. The text object can also be an attribute.
- NLAY <enter>
- Select a text object (DTEXT, MTEXT or an ATTRIBUTE)
That’s it. Now your layout tab matches the sheet title or whatever other text on the layout tab…
;;; CADALYST 09/08 www.cadalyst.com/CADtips ;;; Nlay.lsp Rename Layouts (c) 2008 Jim Sturgess ;NLay.lsp Written by Jim Sturgess 14-April-2008 ; ;Renames the Current Layout Tab to Match Selected Attribute or Text (DEFUN C:NLay (/ Match Text) (WHILE (= Match NIL) (SETQ Match (NENTSEL "\nSelect Attribute or Text: ")) (IF (= Match NIL)(ALERT "Please Select Attribute or Text...")) );Ends WHILE Function (IF (/= NIL Match) (PROGN (SETQ Match (ENTGET (CAR Match))) ) );Ends IF Function (IF(SETQ Text(CDR(ASSOC 1 Match))) (COMMAND "layout" "rename" "" Text) );Ends IF Function (SETVAR "cmdecho" 1) (princ) );Ends DEFUN (princ)