[编程交流] 简单的saveas-LISP

(defun c:ssave ( / *error* vars old s )
 (defun *error* ( msg )
   (and old (mapcar 'setvar vars old))
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **")))
   (princ)
 )
 (setq vars '("CMDECHO" "FILEDIA") old (mapcar 'getvar vars))
 (mapcar 'setvar vars '(0 0))
 (while
   (progn
     (setq s (getstring (strcat "\nEnter Filename for Save <" (getvar 'DWGNAME) "> : ")))
     (cond ( (eq "" s)
             (setq s (getvar 'DWGNAME)) nil)
           ( (not (snvalid s))
             (princ "\n** Invalid **")))
   )
 )if not;check if drawing excist if it does (setq n (1+ n)) and check again***********************************************
 (acet-file-mkdir (strcat (getvar "dwgprefix") "\backup\"))
 (setq DWGNM (strcat (getvar "dwgprefix") "\backup\"(strcat (GETVAR "DWGNAME" ))))
 (command "_.saveas" "_2007" (strcat (getvar "dwgprefix") "\backup\" s (itoa n)))
   
 );and if
 (mapcar 'setvar vars old)
 (princ)
)

(defun c:ssave ( / *error* vars old s path dwg )
 (vl-load-com)
 (defun *error* ( msg )
   (and old (mapcar 'setvar vars old))
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **")))
   (princ)
 )
 (setq vars '("CMDECHO" "FILEDIA") old (mapcar 'getvar vars))
 (mapcar 'setvar vars '(0 0))
 (while
   (progn
     (setq s (getstring (strcat "\nEnter Filename for Save <" (vl-filename-base (getvar 'DWGNAME)) "> : ")))
     (cond ( (eq "" s)
             (setq s (vl-filename-base (getvar 'DWGNAME))) nil)
           ( (not (snvalid s))
             (princ "\n** Invalid **")))
   )
 )
 (if (not (findfile (setq path (strcat (getvar 'DWGPREFIX) "backup"))))
   (vl-mkdir path)
 )
 (if (findfile path)
   (progn
     (if (findfile (setq dwg (strcat path "\" s ".dwg")))
       (
         (lambda ( i )
           (while (findfile (setq dwg (strcat path "\" s (itoa (setq i (1+ i))) ".dwg"))))
         )
         0
       )
     )
     (command "_.saveas" "_2007" dwg)
   )    
 )
 (mapcar 'setvar vars old)
 (princ)
)