home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP / HJ155.LSP < prev    next >
Encoding:
Text File  |  1989-07-13  |  1.1 KB  |  48 lines
  1. ;    Change the text's style parameters
  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 k 0 n (sslength p))
  13.   (while (< k n)
  14.   (if (= (cdr (assoc 0 (entget (ssname p k)))) "TEXT")
  15.    (progn
  16.     (setq x (cdr (assoc 41 (entget (ssname p k)))))
  17.     (setq y (cdr (assoc 51 (entget (ssname p k)))))
  18.     (setq k n)
  19.   ))
  20.   (setq k (1+ k))
  21.   )
  22.   (setq t (getreal (strcat "\n╟δ╩Σ╚δ╨┬╡─┐φ╢╚╥≥╫╙<" (rtos x 2 1) ">:")))
  23.   (if (= t nil) (setq t x))
  24.   (setq a (getangle (strcat "\n╟δ╩Σ╚δ╨┬╡─╟π╨▒╜╟<" (angtos y 0 1) ">:")))
  25.   (if (= a nil) (setq a y))
  26.   (setq k 0)
  27.   (while (< k n)
  28.    (setq e (entget (ssname p k)))
  29.    (if (= (cdr (assoc 0 e)) "TEXT")
  30.     (progn
  31.      (setq x (assoc 41 e))
  32.      (setq y (assoc 51 e))
  33.      (setq e (subst (cons 41 t) x e))
  34.      (setq e (subst (cons 51 a) y e))
  35.      (entmod e)
  36.    ))
  37.    (setq k (1+ k))
  38.   )
  39. ))
  40. (initget "y n")
  41. (menucmd "s=ds14")
  42. (setq h (getkword "\n╗╣╨▐╕─┬≡<Y/N>?"))
  43. )
  44. (menucmd "s=screen")
  45. (grtext)
  46. (princ)
  47. )
  48.