;;;Custom startup functions. Contains combined DDEDIT+DDATTE, layer mgmt functs, logging functs, etc. ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 1990-2001 ;;; Edited: 6-3-2005 ;;; ;;;================================================================================================== ;;;C:DEBUGSETVAR moved to separate lisp file ;;;================================================================================================== ;;;C:NILBNS moved to separate lisp file ;;;================================================================================================== ;;;undefine C:OPEN and DEFUN C:OPEN moved to separate lisp file ;;;================================================================================================== ;;;CMDOPEN moved to separate lisp file and renamed MYOPENCMD.LSP ... and replaced by myopen_fun.lsp ;;;================================================================================================== ;;;SAVE_FILE_CHK moved to separate lisp file ;;;================================================================================================== ;;;C:NEXT function moved to separate lisp file ;;;================================================================================================== ;;;C:NEXTDWG function moved to separate lisp file NEXT.LSP ;;;================================================================================================== ;;;C:PREV function moved to separate lisp file NEXT.LSP ;;;================================================================================================== ;;;C:PSPACE function moved to separate lisp file ;;;================================================================================================== ;;;DLOG moved to separate file ;;;================================================================================================== ;;;UNDEFINE qsave and DEFUN QSAVE moved to separate lisp file ;;;================================================================================================== ;;;C:BU renamed to C:BACKUP and moved to separate lisp file ;;;================================================================================================== ;;;C:SAVE moved to separate lisp file ;;;================================================================================================== ;;;C:SAVEAS moved to separate lisp file ;;;================================================================================================== ;;;C:QUIT moved to separate lisp file ;;;================================================================================================== ;;;C:SSNAP moved to separate lisp file ;;;================================================================================================== ;;;C:IBLK moved to separate lisp file ;;;================================================================================================== (PRINC "\nLoading custom startup files...") (PRINC) (DEFUN c:limn (/) (GETVAR "limmin") ) ;_ end of defun ;;;================================================================================================== (DEFUN c:limx (/) (GETVAR "limmax") ) ;_ end of defun ;;;================================================================================================== (IF (EQ (GETVAR "lispinit") 0) (PROGN (SETQ onam nil) (dlog) ) ;_ end of PROGN (dlog) ) ;_ end of IF (IF (OR (EQ (SUBSTR (GETVAR "dwgprefix") 3 6) "\\1363\\") (EQ (SUBSTR (GETVAR "dwgprefix") 3 7) "\\10302\\") (WCMATCH (GETVAR "dwgprefix") "*\\LITTLE-SUGAR-CREEK\\*") ) ;_ end of OR (SETQ do_cmud T do_char nil ) ;_ end of SETQ (SETQ do_char nil do_cmud nil ) ;_ end of SETQ ) ;_ end of IF ;;;================================================================================================== (LOAD "getstyle" "\nFile GETSTYLE.LSP not loaded! ") (LOAD "gvpno" "\nFile GVPNO.LSP not loaded! ") (LOAD "panpnt" "\nFile PANPNT.LSP not loaded! ") (IF (AND (SETQ styldf (TBLSEARCH "style" "standard")) (EQ (STRCASE (CDR (ASSOC 3 styldf))) "ROMANS.SHX") ) ;_ end of and nil (COMMAND "-STYLE" "STANDARD" "ROMANS.SHX" 0 1 0 "N" "N" "N") ) ;_ end of if ;;;================================================================================================== (PROGN (PRINC "\nSkipped VBASTMT to set text history lines to 1200. ") ;;;(COMMAND "vbastmt" (STRCAT "Application.Preferences.Display.HistoryLines=" (ITOA 1200))) (PRINC) ) (PRINC "\nCustom startup files loaded. ") (PRINC) ;|«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! ***|;