AutoCad - Como imprimir la ruta del archivo???

Hola: mi consulta es la sgte. tengo un Block donde esta mi rotulo y en el tengo un atributo que es el nombre completo del archivo ej."c:\planos\casa.dwg" , pero casi siempre se me olvida cambiar el nombre y me pregunto si hay una forma de hacerlo automatico, ya sea con una macro o de otra forma.
Cualquier ayuda la agradecere

; Namerotulo debe ser cambiado por tu nombre de bloque
; Nroat es el ordinal del atributo a modificar automaticamente
; nombre contiene lo almacenado en variable de sistema savename
; por lo tanto para usarse debe haber sido grabado el dibujo.

(defun c:rotula()
(if (setq rotulo (ssget "X" (list ´(0 . "INSERT") ´(2 . "Namerotulo"))))
(progn
(setq ent (ssname rotulo 0))
(setq nroat 2) ; aqui debes cambiar 2 por el ordinal del atributo
(repeat nroat (entnext ent))
(setq nombre (getvar "savename")) ; variable que contiene el nombre del
; dibujo
(setq listasoc (entget ent))
(setq listasoc (subst (cons 1 nombre) (assoc 1 listasoc) listasoc)))
(entmod listasoc) (entupd ent)
)
)
)

En Release 14, el DWGNAME no queda con el path; no
lo he probado en 2000.
Ojo porque si quieres que este proceso sea 100% automático, tendrás que redefinir comandos como
qsave, save y saveas; eso es crear un ACAD.lsp