naming a single layout tab to match the file name

[CrazyIvan]

Trying to get the files I use which are single-layout tab files to name the layout tab to match the file name, minus the .DWG extension.

Here is what I am trying to use, but it doesn't seem to be working.

Any help is appreciated.

(DEFUN C:RRT (/ name)
 (setq name (getvar (vl-filename-base (getvar "dwgname"))))

 (command "-layout" "rename" name "")
(princ)
)

THANKS.

[oropeza123]

can you apply this to and attribute