initial commit

2 - scripts/ACAD_TRUSTED/saveasPlus.lsp

@@ -0,0 +1,17 @@
+(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)
+
+
+
+)