;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 11-21-2005
;;;
(DEFUN c:qsave (/ fstr)
  (SETQ fstr "  QSaved................:  ")
  (IF c:lbl
    nil
    (LOAD "lbl")
  ) ;_ end of if
;;;  (IF (AND (EQ (GETVAR "lunits") 2) (EQ (GETVAR "dimscale") 96))
;;;    (SETVAR "dimscale" 0)
;;;  ) ;_ end of if
  (SETQ cur_vp (GETVAR "cvport"))
  (IF (AND (EQ (GETVAR "tilemode") 0) (/= cur_vp 1))
    (COMMAND "_.pspace")
  ) ;_ end of if
  (dlog)
  (IF
;;;      (AND
      (OR (COND ((AND (NOT (WCMATCH (GETVAR "dwgname") "*\\*"))
                      (NOT (WCMATCH (STRCASE (GETVAR "dwgname")) "*.DWG"))
                      (EQ (STRLEN (GETVAR "dwgname")) 8)
                 ) ;_ end of AND
                 (AND (EQ "X"
                          (SUBSTR (STRCASE (GETVAR "dwgname")) 6 1) ;_ end of substr
                      ) ;_ end of EQ
                      (EQ "##"
                          (SUBSTR (GETVAR "dwgname") 7 2) ;_ end of substr
                      ) ;_ end of EQ
                 ) ;_ end of AND
                )
                ((AND (WCMATCH (STRCASE (GETVAR "dwgname")) "*.DWG") (EQ (STRLEN (GETVAR "dwgname")) 12))
                 (AND (EQ "X"
                          (SUBSTR (STRCASE (GETVAR "dwgname")) (- (STRLEN (GETVAR "dwgname")) 6) 1) ;_ end of substr
                      ) ;_ end of eq
                      (EQ "##"
                          (SUBSTR (STRCASE (GETVAR "dwgname")) (- (STRLEN (GETVAR "dwgname")) 5) 2) ;_ end of substr
                      ) ;_ end of eq
                 ) ;_ end of AND
                )
                ((AND (WCMATCH (STRCASE (GETVAR "dwgname")) "*.DWG")
                      (EQ "\\"
                          (SUBSTR (STRCASE (GETVAR "dwgname")) (- (STRLEN (GETVAR "dwgname")) 12) 1) ;_ end of substr
                      ) ;_ 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 "##"
                          (SUBSTR (STRCASE (GETVAR "dwgname")) (- (STRLEN (GETVAR "dwgname")) 5) 2) ;_ end of substr
                      ) ;_ end of eq
                 ) ;_ end of AND
                )
          ) ;_ end of COND
          (EQ "XBASE.DWG" (STRCASE (GETVAR "dwgname")))
          (EQ (GETVAR "TILEMODE") 1)
      ) ;_ end of or
;;;        (NOT (SSGET "X" '((2 . "DWGSTAMP")(0 . "INSERT"))))
;;;      )
    nil
    (PROGN (c:lbl)
           (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
  (IF (EQ (STRCASE (GETVAR "dwgname")) "DRAWING.DWG")
    (COMMAND ".saveas" "" "~")
    (COMMAND ".qsave")
  ) ;_ end of if
  (IF (EQ (GETVAR "dbmod") 0)
    (PROGN
;;;      (IF
;;;        (EQUAL
;;;          (RTOS (GETVAR "cdate") 2 8)
;;;          (RTOS
;;;            (CDR
;;;              (ASSOC
;;;                (GETVAR "dwgname")
;;;                (CAR (dos_filedate
;;;                       (STRCAT (GETVAR "dwgprefix") (GETVAR "dwgname"))
;;;                     ) ;_ end of dos_filedate
;;;                ) ;_ end of car
;;;              ) ;_ end of assoc
;;;            ) ;_ end of cdr
;;;            2
;;;            8
;;;          ) ;_ end of rtos
;;;          4
;;;        ) ;_ end of equal
;;;         nil
;;;        (PROGN
;;;         (IF
;;;           (AND
;;;             (dos_touch (STRCAT (GETVAR "dwgprefix") (GETVAR "dwgname")))
;;;             (EQ (dos_username) "francishc")
;;;           ) ;_ end of and
;;;            (dos_msgbox
;;;              (STRCAT "Corrected \"Modified:\" date & time for:\n"
;;;                      (GETVAR "dwgprefix")
;;;                      (GETVAR "dwgname")
;;;              ) ;_ end of STRCAT
;;;              "File Date & Time Modified"
;;;              1
;;;              3
;;;              4
;;;            ) ;_ end of dos_msgbox
;;;         ) ;_ end of IF
;;;         (PRINC "\ncdate=")
;;;         (PRINC (RTOS (GETVAR "cdate") 2 8))
;;;         (PRINC "\nfdate=")
;;;         (PRINC
;;;          (RTOS
;;;            (CDR
;;;              (ASSOC
;;;                (GETVAR "dwgname")
;;;                (CAR (dos_filedate
;;;                       (STRCAT (GETVAR "dwgprefix") (GETVAR "dwgname"))
;;;                     ) ;_ end of dos_filedate
;;;                ) ;_ end of car
;;;              ) ;_ end of assoc
;;;            ) ;_ end of cdr
;;;            2
;;;            8
;;;          ) ;_ end of rtos
;;;        )
;;;       )
;;;      ) ;_ end of IF
           (PRINC (STRCAT "  " (STRCASE (GETVAR "dwgprefix")) (STRCASE (GETVAR "dwgname")) " saved.\n") ; _ end of
                                                                                                        ; strcat
           ) ;_ end of princ
    ) ;_ end of PROGN
    (ALERT (STRCAT "  " (STRCASE (GETVAR "dwgprefix")) (STRCASE (GETVAR "dwgname")) " NOT saved!\n") ;_ end of strcat
    ) ;_ end of princ
  ) ;_ end of if
;;;  (if c:stat
;;;    nil
;;;    (load "stat")
;;;  ) ;_ end of if
;;;  (c:stat)
  (c:bu)
) ;_ end of defun
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
;*** DO NOT add text below the comment! ***|;