home *** CD-ROM | disk | FTP | other *** search
/ BUG 15 / BUGCD1998_06.ISO / aplic / felixcad / fcaddata.z / F3E_STUP.LSP < prev    next >
Lisp/Scheme  |  1997-10-20  |  4KB  |  105 lines
  1. ;;; F3E_STUP.LSP for FelixCAD
  2. ;;; ====================================================================
  3. ;;; (C)opyright Felix Computer Aided Technologies GmbH 1995-97
  4. ;;; ====================================================================
  5. ;;; Release: English Version 3.01
  6. ;;; ====================================================================
  7. ;;; Created: Jan 23, 1996 vp
  8. ;;; Changed: Sep 30, 1996 vp
  9. ;;;          Jun 10, 1997 vp
  10. ;;; ====================================================================
  11. ;;;    Several commands loaded via this main lisp file are used in 
  12. ;;;    the pull-down menu and palettes of the program.
  13. ;;;
  14. ;;; Note: 
  15. ;;;    This file should be auto-loaded to provide the user with the
  16. ;;;    commands defined in programming interface files (Lisp or DDL
  17. ;;;    files). 
  18. ;;;
  19. ;;;    Auto-Loading of this Lisp file is guaranteed by the entry
  20. ;;;    "AutoLspLoad=" in the program's INI file.
  21. ;;;    It is required, that the file is located in the application
  22. ;;;    directory setting specified in the program's INI file.
  23. ;;; 
  24. ;;; ====================================================================
  25.  
  26.  
  27. ;;; ====================================================================
  28. ;;; First of all, save the built-in atoms-family to the global variable
  29. ;;;    FLX_ATOMS_FAMILY to allow Lisp programmers to evaluate
  30. ;;;    built-in, application specific, and user defined functions:
  31.  
  32. (if (/= (type FLX$ATOMS_FAMILY) 'LIST)
  33.     (setq FLX$ATOMS_FAMILY (atoms-family 1))
  34. )
  35.  
  36. ;;; ====================================================================
  37. ;;; The global variable FLX$WIN controls the type of controls in dialogs
  38.  
  39. (setq FLX$WIN95 T) 
  40.  
  41. ;;; ====================================================================
  42. ;;; Set default language to English
  43.  
  44. (setvar "LANGUAGE" 2)
  45.  
  46. ;;; ====================================================================
  47. ;;; Set the global variable FLX$DIRECTORY, which is used to find the
  48. ;;; additional Lisp and Dialog Files relative to the kernel directory:
  49.  
  50. (setq startup_lispfile "f3e_stup.lsp")
  51.  
  52. (if (setq tmp (findfile (setq x startup_lispfile)))
  53.     (setq FLX$DIRECTORY
  54.           (strcat (substr tmp 1 (- (strlen tmp) (strlen x)) ) "utils\\")
  55.     )
  56. )
  57.  
  58. (setq startup_lispfile nil tmp nil x nil)
  59.  
  60. ;;; ====================================================================
  61. ;;; Load the main FCAD Lisp file (flx_main.lsp), which provides
  62. ;;; additional Lisp defined commands in FCAD:
  63.  
  64. (if (not FLX_LOADLISP)
  65.     (if (setq tmp (findfile (strcat FLX$DIRECTORY "flx_main.lsp")))
  66.         (progn
  67.            (princ "\nStartup... ")
  68.            (load tmp)
  69.            (princ "OK")
  70.         )
  71.     )
  72. )
  73. (setq tmp nil)
  74.  
  75. ;;; ====================================================================
  76.  
  77. (defun C:SETUP()
  78.     (command "UNITSETUP")
  79.     (princ)
  80. )
  81.  
  82. ;;; ====================================================================
  83. ;;; If the file FC_BONUS.LSP is found in the application search path,
  84. ;;; load it ...
  85.  
  86. (if (setq tmp (findfile "fc_bonus.lsp")) (load tmp))
  87. (setq tmp nil)
  88.  
  89. ;;; ====================================================================
  90. ;;; If the file FRX_STUP.LSP is found in the application search path,
  91. ;;; load it ...
  92.  
  93. (if (setq tmp (findfile "frx_stup.lsp"))
  94.     (load tmp)
  95.     (defun C:RASTER()
  96.       (alert "Raster Extension not installed")
  97.     )
  98. )
  99. (setq tmp nil)
  100.  
  101. ;;; ====================================================================
  102.  
  103. (princ)
  104.  
  105.