home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ACAD10-1.ZIP / NTEXT.LSP < prev    next >
Encoding:
Text File  |  1989-02-16  |  729 b   |  21 lines
  1. (DEFUN C:NTEXT (/ js pnt1 a b c d e )
  2.  (GRAPHSCR)
  3.  (setq js (getstring "Enter Left/Right/Center/Middle  "))(terpri)
  4.   (setq js (strcase js))
  5.   (SETQ PNT1 (GETPOINT "Starting Point  "))(terpri)
  6.   (setq a (getdist pnt1 "Enter Height  "))(terpri)
  7.   (setq c (getdist pnt1 "Enter The Line Spacing  "))(terpri)
  8.   (setq b (getreal "Enter The Number Of Text Lines  "))(terpri)
  9.   (setq e (getstring 1 "Enter Text:   "))
  10.   (setq d "T")
  11.    (while d
  12.     (setq b (- b 1))
  13.     (if (= b 0) (setq d nil))
  14.     (if (= js "L") (command "text" pnt1 a "0" e)
  15.      (command "text" js pnt1 a "0" e))
  16.      (setq pnt1 (list (car pnt1)(-(cadr pnt1) c)))
  17.      (setq e (atof e))
  18.      (setq e (1+ e))
  19.      (setq e (rtos e 2 0))  
  20.   )  
  21. )