I wrote #2 in another thread a couple of days ago, modified it for #1. You could combine these into one routine though and include the plot.
Code:
;#1
(defun C:SAVELOC ( / sav_path dwg_name)
(setvar "filedia" 0)
(setq sav_path (getstring "Specify save path: "));Set the path you want here
(setq dwg_name (getvar "dwgname"))
(command "saveas" "" (strcat sav_path "\\" dwg_name))
(setvar "filedia" 1)
(princ)
)
;#2
(defun C:SAVELOC ( / sav_path dwg_name)
(setvar "filedia" 0)
(setq sav_path "C:\\Documents and Settings\\tys\\Desktop");Set the path you want here
(setq dwg_name (getvar "dwgname"))
(command "saveas" "" (strcat sav_path "\\" dwg_name))
(setvar "filedia" 1)
(princ)
)
Quick and dirty, no error checking .
Ty