home *** CD-ROM | disk | FTP | other *** search
/ BUG 15 / BUGCD1998_06.ISO / aplic / felixcad / fcaddata.z / FRX_STUP.LSP < prev    next >
Lisp/Scheme  |  1997-10-21  |  1KB  |  54 lines
  1. ;; frx_stup.lsp
  2. ;; Function to display raster data
  3. ;; 29.07.1997
  4. ;; (C)opyright Geograt Informationssysteme GmbH
  5.  
  6.  
  7. (setq frx_lastfile "")        ;; last file name
  8.  
  9. (defun C:RLC2BMP ( / f )
  10.   (if (eval (read "rinfo"))
  11.     (progn
  12.       (setq f (getfiled "Convert RLC file to Bitmap file" frx_lastfile "rlc" 0))
  13.       (if f (rlc2bmp (setq frx_lastfile f)))
  14.     )
  15.     (alert "Raster Extension not loaded." "Raster Extension" "INFORMATION")
  16.   )
  17.   (princ)
  18. )
  19.  
  20. (defun C:BMP2RLC ( / f )
  21.   (if (eval (read "rinfo"))
  22.     (progn
  23.       (setq f (getfiled "Convert Bitmap file to RLC file" frx_lastfile "bmp" 0))
  24.       (if f (bmp2rlc (setq frx_lastfile f)))
  25.     )
  26.     (alert "Raster Extension not loaded." "Raster Extension" "INFORMATION")
  27.   )
  28.   (princ)
  29. )
  30.  
  31. (defun C:RASTER( / tmp)
  32.   (if (not C:RLADEN)(progn
  33.     (if (setq tmp (findfile "raster.dll"))
  34.       (progn    
  35.        (xload tmp nil)
  36.        (delcmd "exit")
  37.        (defun C:EXIT ()
  38.          (xunload "raster" nil)
  39.          (command ".exit")
  40.        )
  41.       )
  42.       (alert 
  43.        "File 'raster.dll' not found."
  44.        "Raster Extension"
  45.        "INFORMATION"
  46.       )
  47.     )
  48.   ))
  49.   (princ)
  50. )
  51.  
  52.  
  53. (princ)
  54.