home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP / HJ174.LSP < prev    next >
Encoding:
Text File  |  1989-07-13  |  716 b   |  36 lines
  1. ;    Change the text height
  2. ;
  3. (Defun hj01 ()
  4.  (setvar "cmdecho" 0)
  5.  (setq h "y")
  6.  (while (= h "y")
  7.   (princ "\n╟δ╤í╚í─π╥¬╨▐╕─╡─╬─▒╛")
  8.   (grtext -1 "  ╟δ╤í╚í─π╥¬╨▐╕─╡─╬─▒╛")
  9.   (setq p (ssget))
  10.   (if (/= p nil)
  11.   (progn
  12.   (setq t (getreal "\n╟δ╩Σ╚δ╫╓╕▀<3>:"))
  13.   (setq k 0 n (sslength p))
  14.   (if (= t nil) (setq t 3.0))
  15.   (while (< k n)
  16.    (setq e (entget (ssname p k)))
  17.    (if (= (cdr (assoc 0 e)) "TEXT")
  18.     (progn
  19.      (setq x (assoc 40 e))
  20.      (setq e (subst (cons 40 t) x e))
  21.      (entmod e)
  22.    ))
  23.    (setq k (1+ k))
  24.   )
  25.   )
  26.   (princ "\n╬┤╤í╓╨─┐▒Ω!")
  27.   )
  28.   (initget "y n")
  29.   (menucmd "s=ds14")
  30.   (setq h (getkword "\n╗╣╨▐╕─┬≡<Y/N>?"))
  31. )
  32. (menucmd "s=screen")
  33. (grtext)
  34. (princ)
  35. )
  36.