18 lines
443 B
Common Lisp
18 lines
443 B
Common Lisp
(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)
|
|
|
|
|
|
|
|
)
|