Here's my code...what would I need to add/change to REPLACE the \\ with \ from the returned path?
(defun c:DWGNAME (/ path name)
(setq path (getvar "dwgprefix"))
(setq name (getvar "dwgname"))
(setq name (strcat path name))
(setq name (substr name 1 (- (strlen name) 4)))
(print name)
(princ)
)