home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 15
/
BUGCD1998_06.ISO
/
aplic
/
felixcad
/
fcaddata.z
/
FRX_STUP.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1997-10-21
|
1KB
|
54 lines
;; frx_stup.lsp
;; Function to display raster data
;; 29.07.1997
;; (C)opyright Geograt Informationssysteme GmbH
(setq frx_lastfile "") ;; last file name
(defun C:RLC2BMP ( / f )
(if (eval (read "rinfo"))
(progn
(setq f (getfiled "Convert RLC file to Bitmap file" frx_lastfile "rlc" 0))
(if f (rlc2bmp (setq frx_lastfile f)))
)
(alert "Raster Extension not loaded." "Raster Extension" "INFORMATION")
)
(princ)
)
(defun C:BMP2RLC ( / f )
(if (eval (read "rinfo"))
(progn
(setq f (getfiled "Convert Bitmap file to RLC file" frx_lastfile "bmp" 0))
(if f (bmp2rlc (setq frx_lastfile f)))
)
(alert "Raster Extension not loaded." "Raster Extension" "INFORMATION")
)
(princ)
)
(defun C:RASTER( / tmp)
(if (not C:RLADEN)(progn
(if (setq tmp (findfile "raster.dll"))
(progn
(xload tmp nil)
(delcmd "exit")
(defun C:EXIT ()
(xunload "raster" nil)
(command ".exit")
)
)
(alert
"File 'raster.dll' not found."
"Raster Extension"
"INFORMATION"
)
)
))
(princ)
)
(princ)