home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ACAD10-1.ZIP / STEXT.LSP < prev    next >
Encoding:
Text File  |  1989-02-16  |  656 b   |  18 lines
  1. (DEFUN C:STEXT (/ 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 d "T")
  10.    (while d
  11.     (setq e (getstring 1 "Enter Text:   "))
  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.   )  
  18. )