Place the following code in rtext.
Current Drawing:
$(substr,$(getvar,"dwgname"),1,$(-,$(strlen,$(getvar,"dwgname")),4))
$(substr,$(getvar,"dwgname"),1,$(strcase ($(-,$(strlen,$(getvar,"dwgname")),4))))
$(getvar, "dwgprefix")$(getvar, "dwgname")
Attached Reference Files:
$(xrefs,23)
We made it a block, and insert it outside the border.