an AutoLISP routine that writes the current drawing name and subdirectory to a selected point in your drawing