home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / sorties / 2100 / cadet.lsp < prev    next >
Lisp/Scheme  |  1993-04-01  |  3KB  |  45 lines
  1. ;CADET Global Variables, edit values below to set permanent defaults
  2. (SETQ CADETP 1.6190) ;Text pitch factor, default 1.619, range 1.0 to 2.0
  3. (SETQ CADETT 1.0000) ;Table tolerance factor, default 1.5, range 0.1 to 2.0
  4. (SETQ CADETC NIL) ;Enable COM port resets, T = enable, NIL = disable
  5. (SETQ CADETM T) ;Disable memory management, T = disable, NIL = enable
  6. (SETQ CADETS NIL) ;Sort by LLH coordinates, T = LLH, NIL = insert point
  7. (SETQ CADETR NIL) ;Enable restore files, T = enable, NIL = disable
  8. (SETQ CADETB T) ;T = R10 Ext. AutoLISP/AutoCAD 386, NIL = R9/R10 Reg. AutoLISP
  9. (SETQ CADETL "C:/WASCO/") ;CADET's Lisp file directory, see CADET Manual
  10. (SETQ CADETD "C:/WASCO/") ;CADET's Read/Write Directory, see CADET Manual
  11. ;CADET CC, CI, etc. functions below may be renamed, but Wts? functions may not:
  12. (defun C:CC () (setq CADET@ "C") (WtsC40)) ;Cadet-Create Table
  13. (defun C:CN () (setq CADET@ "N") (WtsC40)) ;Cadet-Notes
  14. (defun C:CI () (setq CADET@ "I") (WtsC40)) ;Cadet-Import
  15. (defun C:CE () (setq CADET@ "E") (WtsE40)) ;Cadet-Edit
  16. (defun C:CET () (setq CADET@ "T") (WtsE40)) ;Cadet-Edit Table
  17. (defun C:CEN () (setq CADET@ "O") (WtsE40)) ;Cadet-Edit Notes
  18. (defun C:CEA () (setq CADET@ "B") (WtsE40)) ;Cadet-Edit Attributes
  19. (defun C:CEG () (setq CADET@ "G") (WtsE40)) ;Cadet-Edit Global
  20. (defun C:CS () (setq CADET@ "S") (WtsP40)) ;Cadet-SetText
  21. (defun C:CP () (setq CADET@ "P") (WtsP40)) ;Cadet-PlusText
  22. (defun C:CM () (setq CADET@ "M") (WtsP40)) ;Cadet-MultiText
  23. (defun C:CJ () (setq CADET@ "J") (WtsJ40)) ;Cadet-JustifyText
  24. (defun C:CA () (setq CADET@ "A") (WtsJ40)) ;Cadet-AlignText
  25. (defun C:CR () (setq CADET@ "R") (WtsR40)) ;Cadet-Restore
  26. (defun C:CX () (setq CADET@ "X") (WtsM40)) ;Cadet-External File
  27. ;CADET code below this point must not be modified:
  28. (defun C:CADET () (setq CADET@ "_") (WtsM40)) ;Cadet command line menu
  29. (if (and (getvar "worlducs") (getenv "CADET")) (SETQ CADETD (getenv "CADET")))
  30. (defun WtsLsp (st / fh st2 st3)
  31.   (setq st3 (if CADETB "Cadet40x" st) st2 (if CADETL (strcat CADETL st3) st3))
  32.   (if (getvar "worlducs") ;R10+
  33.     (progn (prompt "\nLoading...")(load st2)(prompt " Loaded.")
  34.       (eval (list (read st))))
  35.     (progn (setq fh (open "CadetLd.scr" "w"))(princ (strcat "(load \"" st2
  36.     "\") (" st ") ") fh)(setq fh (close fh))(command "script" "CadetLd")(princ)))
  37. )
  38. (defun WtsC40 () (WtsLsp "WtsC40"))
  39. (defun WtsE40 () (WtsLsp "WtsE40"))
  40. (defun WtsP40 () (WtsLsp "WtsP40"))
  41. (defun WtsJ40 () (WtsLsp "WtsJ40"))
  42. (defun WtsR40 () (WtsLsp "WtsR40"))
  43. (defun WtsM40 () (WtsLsp "WtsM40"))
  44. (princ) ;end of file
  45.