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