home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
cad_util
/
v8n8_cad.zip
/
TXTIN1.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1993-07-23
|
529b
|
16 lines
(defun C:txtin (/ fln pt1 hgt f e txt)
(setq fln (getstring "\nFile name to import "))
(setq pt1 (getpoint "\nPick text beginning point"))
(setq hgt (getdist pt1 "\nHeight or <ENTER> if fixed height"))
(setq f (open fln "r"))
(setq txt (read-line f))
(if (= hgt nil) (command "text" pt1 "0" txt))
(if (/= hgt nil) (command "text" pt1 hgt "0" txt))
(setq e 1)
(while e
(setq txt (read-line f))
(if (= txt nil) (setq e nil))
(command "text" "" txt)
)
(close f)
)