Drawing name in layout Tab?

Is there a way to put the drawing name in the first paper space layout tab

using VBA?

Thank you,

I'm pretty bad at VBA but perhaps?

  Dim dwg As String
  Dim lay As ACADLayout

  dwg = ThisDrawing.GetVariable("DWGNAME")

  lay = ThisDrawing.Layouts.Item("Layout1")
  lay.name = dwg

Lee, what about simple lisp for it?

Lee, what about simple lisp for it?

(defun c:test (/)
 (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
 (vlax-for l (vla-get-layouts *AcadDoc*)
   (if (eq 1 (vla-get-taborder l))
     (vl-catch-all-apply (function vla-put-name) (list l (vl-filename-base (getvar 'dwgname))))
   )
 )
)

Alan, I don't know what happen but it is not working.

I just updated my Autocad version (2010), wonder if it is version related.

Command: (LOAD "test.lsp") TEST

Command: test

Unknown command "TEST". Press F1 for help.

Alan, I don't know what happen but it is not working.

I just updated my Autocad version (2010), wonder if it is version related.

 

Command: (LOAD "test.lsp") TEST

 

Command: test

Unknown command "TEST". Press F1 for help.

I had it created as a subroutine, which you would call with (test). However, I've changed it above. Try it now.

My mistake, I didn't look at it-just loaded. Sorry, it work now. Thank you.

My mistake, I didn't look at it-just loaded. Sorry, it work now. Thank you.

No problem.