Leaderboard

Check out Lee Mac's lisp Layout Field http://lee-mac.com/layoutfield.html

http://www.lee-mac.com/draworderfunctions.html how about to use this. last of link's page function "Move Hatch Objects to Bottom". In the case of wipeout , it's usually above the backdrawing and below the text, so you'll have to think a bit more.

By LISP: (layoutlist) will give you a list of layout names (command "layout" "r" (nth x (layoutlist)) "-NEWNAME-") will rename layouts, here layout number x Make a loop the length of your layout list, and rename accordingly. If you need to grab the layout name from say, a block in each layout, this will take you to layout 'x' (setvar "ctab" (nth x (layoutlist))) wuill take you to the nth layout in your drawing Just need to put is all together, ask if you get stuck but that is the basics Or go here: https://forums.autodesk.com/t5/autocad-forum/lisp-routine-to-rename-all-the-layouts/td-p/3511636 EDIT Whoops got this the wrong way round, that was renaming sheets not a adding the sheet name into the drawing Use the (setvar... part to loop through the sheets, use (nth x (layoutlist)) to get the layout name and then edit the text as you want in the sheet from there, noticing that your sheet name isn't a field but is text?

Try this, ok expects main line as a single "LINE" Pick 90 line well away from fillet size. Does what you want limited testing. ; do 2 fillets to a tee line intersection ; By Alanh May 2022 (defun c:2fil ( ) (setq oldsnap (getvar 'osmode)) (setvar 'osmode 0) (setvar 'filletrad (getreal "\nEnter radius")) (setq ent1 (entsel "\npick square off line away from intersection ")) (setq pt1 (cadr ent1)) (setq ent2 (entsel "\npick main line")) (setq obj1 (vlax-ename->vla-object (car ent1))) (setq obj2 (vlax-ename->vla-object (car ent2))) (setq pt2 (vlax-invoke obj1 'intersectwith obj2 acExtendBoth)) (setq start (vlax-get Obj2 'StartPoint)) (setq end (vlax-get Obj2 'EndPoint)) (setq pt3 (polar pt2 (angle start end) 0.05)) (setq pt4 (polar pt2 (- (angle start end) pi) 0.05)) (command "break" pt3 pt2) (setq ent3 (entlast)) (command "fillet" pt1 ent2) (command "fillet" pt1 ent3) (setvar 'osmode oldsnap) ) (c:2fil)

So create a text with that field inside the layout sheet. if its not a block you can use this to copy to the rest of the tabs https://cadtips.cadalyst.com/2d-operations/copy-all-layouts

actually, i want those text inside the layout sheet

Use a FIELD: %<\AcVar ctab>% Layout.dwg