Link to AutoCAD Tips

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.

Here’s how:

• 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…

~enjoy

;;; 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)