;;FSELECT.LSP demonstrates FSELECT.DVB
;;Copyright 2004 by Thomas Gail Haws
;;
;;; This program is free software under the terms of the
;;; GNU (GNU--acronym for Gnu's Not Unix--sounds like canoe)
;;; General Public License as published by the Free Software Foundation,
;;; version 2 of the License.
;;;
;;; You can redistribute this software for any fee or no fee and/or
;;; modify it in any way, but it and ANY MODIFICATIONS OR DERIVATIONS
;;; continue to be governed by the license, which protects the perpetual
;;; availability of the software for free distribution and modification.
;;;
;;; You CAN'T put this code into any proprietary package.  Read the license.
;;;
;;; If you improve this software, please make a revision submittal to the
;;; copyright owner at hawstom@despammed.com or see www.hawsedc.com.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License on the World Wide Web for more details.
;;;
(DEFUN
   C:FSELECT ()
  (COND
    ((>= (ATOF (GETVAR "acadver")) 15)
     (SETQ
       USERS1OLD
        (GETVAR "users1")
       USERS2OLD
        (GETVAR "users2")
       USERS3OLD
        (GETVAR "users3")
       USERS4OLD
        (GETVAR "users4")
     ) ;_ end of setq
     (SETVAR "users1" "fselect.lst")
     (SETVAR "users2" "Drawings (*.dwg)|*.dwg")
     (SETVAR
       "users3"
       "File(s) listed below will be added to the list file shown in title:"
     ) ;_ end of setvar
     (SETVAR
       "users4"
       "FSELECT assembles a list in a text file for your use in an AutoLISP application."
     ) ;_ end of setvar
     (COMMAND "-vbarun" "fselect.dvb!modFileSelect.FileSelect")
     (SETQ *HAWS-FSELECTLISTFILE* (GETVAR "users1"))
     (SETVAR "users1" USERS1OLD)
     (SETVAR "users2" USERS2OLD)
     (SETVAR "users3" USERS3OLD)
     (SETVAR "users4" USERS4OLD)
;     (ALERT
;       (STRCAT
;         "\nThe Visual Basic program you just ran created\n"
;         *HAWS-FSELECTLISTFILE*
;         "\ncontaining the list of files you assembled."
;       ) ;_ end of strcat
;     ) ;_ end of alert
    )
    (T
     (ALERT
       "\nSorry.  I don't think this version of AutoCAD can run a Visual Basic Script."
     ) ;_ end of alert
    )
  ) ;_ end of COND
) ;_ end of defun