home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / TXTIMP.LSP < prev    next >
Text File  |  1987-07-12  |  1KB  |  32 lines
  1. (defun c:txtimp (/ va)
  2. (defun *error* (st) (prompt (strcat "error: " st "\007\n")))
  3. (defun fa (/ vb vc ve vf vg vh vi)
  4. (setq vb (read-line va) vc (getstring "\nstyle name <standard>: "))
  5. (if (= vc "")(setq vc "standard"))
  6. (setq ve (getpoint "\nstarting point: "))
  7. (setq vf (getdist ve
  8.      (strcat "\nheight<"
  9.      (rtos (getvar "textsize")(getvar "lunits")(getvar "luprec")) ">: ")))
  10. (setq z (getdist "\nenter distance between lines: "))
  11. (if (= vf nil)(setq vf (getvar "textsize")))
  12. (setq vg (getangle ve "\nrotation angle <0>: "))
  13. (if (= vg nil)(setq vg 0.0))
  14. (setq vh (getvar "aunits"))
  15. (setvar "aunits" 4)
  16. (setq vi (getvar "blipmode"))
  17. (setvar "blipmode" 0)
  18. (setvar "cmdecho" 0)
  19. (command "text" "s" vc ve vf vg vb)
  20. (while (/= vb nil)
  21.      (setq ve (polar ve (+ vg (* 1.5 pi))(* (* 8 z) vf )))
  22.      (setq vb (read-line va))
  23.      (command "text" ve "" "" vb ))
  24. (setvar "blipmode" vi)
  25. (setvar "aunits" vh)
  26. (close va))
  27.  
  28. (setq va (open (getstring "\nname of ascii file to insert: ") "r"))
  29. (if (/= va nil)(fa)(prompt "file not found - try again\007\n")))
  30.  
  31. ble sample of the finished
  32. ; product(s) in final marketed form.  I