;;;
;;;
;;;
;;;
;;;Stamps the drawing and logs the save.
;;;Prior to DEFUN below (COMMAND ".undefine" "save") is required or this DEFUN will not
;;;redefuine QSAVE (COMMAND ".undefine" "save") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-20-94
;;;>		   EDITED: 06-07-2005
;;;
(IF (EQ (SUBSTR (GETVAR "acadver") 1 2) "14")
  (SETQ DEFUN-Q DEFUN)
  nil
) ;_ end of IF
(DEFUN-Q c:save (/ fstr)
  (IF initandsdichk NIL (LOAD "initandsdichk" "\nFile INITANDSDICHK.LSP not loaded! "))
  (initandsdichk)
  (SETQ cur_dwgspec (STRCAT (GETVAR "dwgprefix") (GETVAR "dwgname"))
        cur_file    (DOS_FILE cur_dwgspec)
  ) ;_ end of setq
  (COMMAND ".save" "~")
  (IF (EQ (GETVAR "dbmod") 0)
    (PROGN
      (PRINC (STRCAT "\n  "
                     (STRCASE (GETVAR "dwgprefix"))
                     (STRCASE (GETVAR "dwgname"))
                     " saved.\n"
             ) ;_ end of strcat
      ) ;_ end of princ
    ) ;_ end of PROGN
    (PROGN
      (PRINC (STRCAT "\n  "
                     (STRCASE (GETVAR "dwgprefix"))
                     (STRCASE (GETVAR "dwgname"))
                     " NOT saved!\n"
             ) ;_ end of strcat
      ) ;_ end of princ
      (ALERT (STRCAT (STRCASE (GETVAR "dwgprefix"))
                     (STRCASE (GETVAR "dwgname"))
                     " NOT SAVED!"
             ) ;_ end of STRCAT
      ) ;_ end of ALERT
    ) ;_ end of PROGN
  ) ;_ end of if
  (SETQ post_dwgspec (STRCAT (GETVAR "dwgprefix") (GETVAR "dwgname"))
        post_file    (DOS_FILE post_dwgspec)
  ) ;_ end of setq
  (IF (EQUAL cur_file post_file)
    (PRINC "\nNothing Changed!")
    (PROGN
      (SETQ fstr "  Saved.................:  ")
      (IF c:cstmp
        nil
        (LOAD "cstmp")
      ) ;_ end of if
      (IF c:lbl
        nil
        (LOAD "lbl")
      ) ;_ end of if
      (SETQ cur_vp (GETVAR "cvport"))
      (IF (AND (EQ (GETVAR "tilemode") 0) (/= cur_vp 1))
        (COMMAND "_.pspace")
      ) ;_ end of if
      (IF dlog NIL (LOAD "dlog" "\nFile DLOG.LSP not loaded! "))
      (dlog)
      (IF
        (OR
          (IF (NOT (WCMATCH (GETVAR "dwgname") "*\\*"))
            (EQ "X"
                (SUBSTR (GETVAR "dwgname")
                        6
                        1
                ) ;_ end of substr
            ) ;_ end of eq
            (IF (NOT (WCMATCH (GETVAR "dwgname") "*.dwg"))
              (AND
                (EQ "X"
                    (STRCASE (SUBSTR (GETVAR "dwgname")
                                     (- (STRLEN (GETVAR "dwgname")) 2)
                                     1
                             ) ;_ end of substr
                    ) ;_ end of strcase
                ) ;_ end of eq
                (EQ "\\"
                    (STRCASE (SUBSTR (GETVAR "dwgname")
                                     (- (STRLEN (GETVAR "dwgname")) 8)
                                     1
                             ) ;_ end of substr
                    ) ;_ end of strcase
                ) ;_ end of eq
              ) ;_ end of and
              (AND
                (EQ "X"
                    (STRCASE (SUBSTR (GETVAR "dwgname")
                                     (- (STRLEN (GETVAR "dwgname")) 6)
                                     1
                             ) ;_ end of substr
                    ) ;_ end of strcase
                ) ;_ end of eq
                (EQ "\\"
                    (STRCASE (SUBSTR (GETVAR "dwgname")
                                     (- (STRLEN (GETVAR "dwgname")) 12)
                                     1
                             ) ;_ end of substr
                    ) ;_ end of strcase
                ) ;_ end of eq
              ) ;_ end of and
            ) ;_ end of if
          ) ;_ end of if
          (EQ "XBASE.DWG" (STRCASE (GETVAR "dwgname")))
          (EQ (GETVAR "TILEMODE") 1)
        ) ;_ end of or
         (PROGN
           (PRINC "\n(substr (getvar \"dwgname\") 6 1)=")
           (PRINC (SUBSTR (GETVAR "dwgname") 6 1))
         ) ;_ end of progn
         (PROGN
           (IF (EQUAL (GETVAR "limmax") (LIST 14.0 8.5) 3)
             (c:cstmp)
             (c:lbl)
           ) ;_ end of IF
           (IF (EQ (SUBSTR (GETVAR "dwgprefix") 1 5) "\\10208\\21620")
             (PROGN
               (IF lvndx
                 nil
                 (LOAD "lvndx")
               ) ;_ end of if
               (lvndx)
             ) ;_ end of progn
             (PROGN
               (IF huandx
                 nil
                 (LOAD "huandx")
               ) ;_ end of if
               (huandx)
             ) ;_ end of progn
           ) ;_ end of if
         ) ;_ end of progn
      ) ;_ end of if
      (IF (AND (EQ (GETVAR "tilemode") 0) (/= cur_vp 1))
        (COMMAND "_.mspace")
      ) ;_ end of if
      (IF align_lst
        (PROGN
          (SETQ num (LOAD_DIALOG "gpdgn"))
          (gate_dlg)
        ) ;_ end of progn
      ) ;_ end of if
      (c:backup)
    ) ;_ end of progn
  ) ;_ end of if
  (PRINC)
) ;_ end of defun