home *** CD-ROM | disk | FTP | other *** search
/ BUG 15 / BUGCD1998_06.ISO / aplic / felixcad / fcaddata.z / FLX_APPM.LSP < prev    next >
Lisp/Scheme  |  1997-06-11  |  6KB  |  167 lines
  1. ;;; FLX_APPM.LSP
  2. ;;; ==================================================================
  3. ;;; Provided by Felix Computer Aided Technologies GmbH 1995-97
  4. ;;; ==================================================================
  5. ;;; Changed: Jan  20, 1996 / vp
  6. ;;; Changed: Sept 29, 1996 / vp
  7. ;;;          June 10, 1997 / vp (getfiled ... 16) for 3.0
  8. ;;; ==================================================================
  9. ;;; Application Managament Functions
  10. ;;; File is loaded from FLX_MAIN.LSP
  11. ;;; See also: LISTFILE in flx_lstf.lsp
  12. ;;; ==================================================================
  13.  
  14. ;;; ------------------------------------------------------------------
  15. ;;;  SET TEMPLATE DRAWING
  16.  
  17. (defun C:TEMPLATE ( / tile fn template flag)
  18.     (setfunhelp "C:TEMPLATE" "Template Drawing")
  19.     (setq title "Set template drawing")
  20.     (if (= (getvar "LANGUAGE") 1)(progn
  21.       (setfunhelp "C:TEMPLATE" "Vorlagezeichnung")
  22.       (setq title "Vorlagezeichnung setzen")
  23.     ))
  24.     (defun *ERROR*(msg) (setq *ERROR* nil)(princ))
  25.     (setq template (getvar "FCTEMPLATE"))
  26.     (setq flag 16)
  27.     (if (setq fn (getfiled title template "flx" flag)) ;; modified for 3.0 vp
  28.       (setvar "FCTEMPLATE" fn)
  29.     )
  30.     (setq *ERROR* nil) (princ)
  31. )
  32.  
  33. ;;; ------------------------------------------------------------------
  34. ;;; RUNMACRO
  35.  
  36. (defun C:RUNMACRO( / header cfg fn)
  37.     (setfunhelp "C:RUNMACRO" "MACRO")
  38.     (setq header "Run Macro File")
  39.     (if (= (getvar "LANGUAGE") 1)(progn
  40.       (setfunhelp "C:RUNMACRO" "MACRO")
  41.       (setq header "Macro Datei ausfⁿhren")
  42.     ))
  43.     (defun *ERROR*(msg) (setq *ERROR* nil)(setvar "FILEDIA" 1)(princ))
  44.     (if (setq fn (getfiled header "" "mcr" 0))
  45.       (progn
  46.          (setvar "FILEDIA" 0)
  47.          (command ".MACRO" fn)
  48.       )
  49.     )
  50.     (setvar "FILEDIA" 1)
  51.     (setq *ERROR* nil)
  52.     (princ)
  53. )
  54.  
  55. ;;; ------------------------------------------------------------------
  56. ;;; DLGEDIT: Calls the Dialog and Menu Editor (dme.exe)
  57.  
  58. (defun C:DLGEDIT( / prt_list fn fn2)
  59.     (setfunhelp "C:DLGEDIT" "Resource Manager")
  60.     (setq prt_list '(
  61.        "Call Dialog and Menu Editor"
  62.        "No file specified to be edited with DME."
  63.     ))
  64.     (if (= (getvar "LANGUAGE") 1)(progn
  65.       (setfunhelp "C:DLGEDIT" "Applikations-Manager")
  66.       (setq prt_list '(
  67.          "Menⁿ- und Dialogeditor aufrufen"
  68.          "Keine Datei spezifiziert, die mit DME bearbeitet werden soll." 
  69.       ))
  70.     ))
  71.     (if (setq fn (getfiled (nth 0 prt_list) "" "mnp,mnu,dlg" 0))
  72.        (progn
  73.          (setq fn2 (if (setq fn2 (findfile "dme.exe")) fn2 "dme.exe"))
  74.          (if (findfile fn)
  75.            (CALL_WINEXE (strcat fn2 " -d " fn))
  76.            (CALL_WINEXE (strcat fn2))
  77.          )
  78.        )
  79.        (princ (nth 1 prt_list))
  80.     )
  81.     (princ)
  82. ) 
  83.  
  84. ;;; ------------------------------------------------------------------
  85. ;;; BMPEDIT: Calls Bitmap Editor / Uses: pbrush.exe 
  86.  
  87. (defun C:BMPEDIT( / prt_list fn)
  88.     (setfunhelp "C:BMPEDIT" "Resource Manager")
  89.     (setq prt_list '(
  90.        "Edit Bitmap using Pbrush"
  91.        "No bitmap file specified to be edited with PBRUSH."
  92.     ))
  93.     (if (= (getvar "LANGUAGE") 1)(progn
  94.       (setfunhelp "C:BMPEDIT" "Applikations-Manager")
  95.       (setq prt_list '(
  96.          "Bitmap mit Pbrush editieren"
  97.          "Keine Bitmap-Datei spezifiziert, die mit PBRUSH bearbeitet werden soll." 
  98.       ))
  99.     ))
  100.     (if (setq fn (getfiled (nth 0 prt_list) "" "bmp" 0))
  101.        (CALL_WINEXE (strcat "pbrush.exe" " " fn))
  102.        (princ (nth 1 prt_list))
  103.     )
  104.     (princ)
  105. )
  106.  
  107. ;;; ------------------------------------------------------------------
  108. ;;; EDITOR: Calls Windows Text Editor / Uses: notepad.exe
  109.  
  110. (defun C:EDITOR( / header fn)
  111.     (setfunhelp "C:EDITOR" "Resource Manager")
  112.     (setq header "Call Notepad Editor")
  113.     (if (= (getvar "LANGUAGE") 1)(progn
  114.       (setfunhelp "C:EDITOR" "Applikations-Manager")
  115.       (setq header "Notepad Editor aufrufen")
  116.     ))
  117.     (if (setq fn (getfiled header ""  "txt,lsp,lin,pat,*" 0))
  118.        (CALL_WINEXE (strcat "notepad.exe" " " fn))
  119.     )
  120.     (princ)
  121. )
  122.  
  123. ;;; ------------------------------------------------------------------
  124. ;;; EDITLISP: Calls Windows Text Editor / Uses: notepad.exe
  125.  
  126. (defun C:EDITLISP( / header fn)
  127.     (setfunhelp "C:LISTFILE" "Lisp")
  128.     (setq header "Edit Lisp File using Notepad")
  129.     (if (= (getvar "LANGUAGE") 1)(progn
  130.       (setfunhelp "C:LISTFILE" "Applikations-Manager")
  131.       (setq header "Lisp-Datei mit Notepad Editor bearbeiten")
  132.     ))
  133.     (if (setq fn (getfiled header "" "lsp" 0))
  134.       (CALL_WINEXE (strcat "notepad.exe" " " fn))
  135.     )
  136.     (princ)
  137. )
  138.  
  139. ;;; ------------------------------------------------------------------
  140. ;;; LOADLISP: Load Lisp Routines 
  141.  
  142. (defun C:LOADLISP( / prt_list fd fn fx)
  143.     (setfunhelp "C:LOADLISP" "Lisp")
  144.     (setq prt_list '("Load Lisp File" "Loading " " Done."))
  145.     (if (= (getvar "LANGUAGE") 1) (progn
  146.       (setfunhelp "C:LOADLISP" "Applikations-Manager")
  147.       (setq prt_list '("Lisp Datei laden" "Lade" " Fertig."))
  148.     ))
  149.     (FLX_FUNC_INIT)
  150.     (setq fd (findfile (setq fx "textout.lsp"))) 
  151.     (setq fd (if fd (substr fd 1 (- (strlen fd) (strlen fx))) "" ))
  152.     (if (setq fn (getfiled (nth 0 prt_list) fd "lsp" 0)) ;;; open!
  153.       (progn
  154.          (princ (strcat (nth 1 prt_list) (strcase fn) "..."))
  155.          (load fn)
  156.          (setq FLX$LOADLISP fn)
  157.          (princ (nth 2 prt_list))
  158.       )
  159.     )
  160.     (setq *ERROR* nil)
  161.     (FLX_FUNC_EXIT)
  162. )
  163.  
  164. ;;; ==================================================================
  165.  
  166. (princ)
  167.