;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	e-mail hfrancis-at-paracadd.com
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
(DEFUN dfwilt-custom ()
  (PROGN ;;;(VLR-REMOVE-ALL)
         (GC)
         (SETVAR "cmdecho" 0)
         (setvar "savetime" 20)
         (SETQ c:qsave  NIL
;;;               c:save   NIL
;;;               ;c:open   NIL
;;;               c:saveas NIL
;;;               ;c:quit   NIL
         )
         (COMMAND "undefine" "qsave")
;;;         (COMMAND "undefine" "save")
;;;         (COMMAND "undefine" "saveas")
;         (COMMAND "undefine" "quit")
;         (COMMAND "undefine" "open")
         (LOAD "qsave" "\nFile QSAVE.LSP not loaded! ")
;;;         (LOAD "save" "\nFile SAVE.LSP not loaded! ")
;;;         (LOAD "saveas" "\nFile SAVEAS.LSP not loaded! ")
;         (LOAD "open" "\nFile OPEN.LSP not loaded! ")
;         (LOAD "quit" "\nFile QUIT.LSP not loaded! ")         
;         (LOAD "ded" "\nFile DED.LSP not loaded!")
         (IF (/= (GETVAR "regenmode") 0)
           (SETVAR "regenmode" 0)
         ) ;_ end of IF
         (IF (OR (>= (READ (GETVAR "ACADVER")) 15.06) (<= (READ (GETVAR "ACADVER")) 14.99)) ;_ end of OR
           (SETVAR "plinetype" 0)
           (PROGN (SETVAR "plinetype" 2)
;;; (princ "\nAutoCAD system variable forced, PLINETYPE=2, to avoid \"Cannot select anything\" BUG in the extremely BUGGY
;;; AutoCAD version
;;; 2000i")
                  (PRINC "\nPLINETYPE FORCED TO 2!")
                  (PRINC)
           ) ;_ end of progn
         ) ;_ end of IF
         (IF (AND (NOT (EQ (STRCASE (GETVAR "dwgname")) "DRAWING.DWG"))
                  (NOT (WCMATCH (STRCASE (GETVAR "dwgname")) "DRAWING#.DWG"))
             ) ;_ end of AND
           (SETENV "MaxHatch" "200000")
         ) ;_ end of IF
;;;(LOAD "uutils" "\nFile UUTILS.LSP not loaded!")
         (IF (>= (ATOF (GETVAR "acadver")) 15.06)
           (PROGN (SETVAR "hidetext" 0)
                  (PROGN
;;;                           (PRINC "\nSkipped VBASTMT to set text history lines to 1200. ")
;;;                           (PRINC)
                           (IF txtscrnmem
                             nil
                             (LOAD "textscrnmem" "\nFile TEXTSCRNMEM.LSP not loaded! ")
                           ) ;_ end of IF
                           (IF txtscrnmem
                             (textscrnmem 1200)
                           ) ;_ end of IF
                  ) ;_ end of PROGN
           ) ;_ end of PROGN
           nil
         ) ;_ end of IF
  ) ;_ end of PROGN
) ;_ end of IF
;|«Visual LISP© Format Options»
(100 2 40 2 T "end of " 100 9 2 1 0 nil T nil T)
;*** DO NOT add text below the comment! ***|;