(defun C:saveasplus (/ x s currPath currName savePath)
(initget 1 "Prefix Suffix")
(setq x (getkword "Prefix or suffix? [Prefix/Suffix]"))
(setq s (getstring (strcat x "?")))
(setq currPath (getvar "dwgprefix"))


(setq currName (cadr(fnsplitl (getvar "DWGname"))))
(if (= x "Prefix") 
    (setq savePath (strcat currPath s currName ".dwg")) 
    (setq savePath (strcat currPath currName s ".dwg"))
)
(command "_.saveas" "2013" savePath)



)