home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP / HJ154.LSP < prev    next >
Encoding:
Text File  |  1989-06-14  |  762 b   |  30 lines
  1. ;   Change the text's style
  2. (Defun hj01 ()
  3.   (setq b "?")
  4.   (while (= b "?")
  5.   (setq b (getvar "textstyle"))
  6.   (setq b (strcase (getstring (strcat "\n╩Σ╚δ╨┬╫╓╨═├√╗≥ ? <" b ">:"))))
  7.   (if (= b "") (setq b (getvar "textstyle")))
  8.   (if (= b "?") (progn (menucmd "i=iwx1") (menucmd "i=*")))
  9.   )
  10.   (princ "\n╟δ╤í╚í╜½╕ⁿ╗╗╫╓╨═╡─╬─▒╛─┐▒Ω")
  11.   (grtext -1 "  ╟δ╤í╚í╜½╕ⁿ╗╗╫╓╨═╡─╬─▒╛─┐▒Ω")
  12.   (setq p (ssget))
  13.   (if (/= p nil)
  14.    (progn
  15.     (setq n (sslength p)
  16.           k 0)
  17.     (while (< k n)
  18.       (setq e (entget (ssname p k)))
  19.       (if (= (cdr (assoc 0 e)) "TEXT")
  20.        (progn (setq a (assoc 7 e))
  21.               (setq e (subst (cons 7 b) a e))
  22.               (entmod e)
  23.        ))
  24.       (setq k (1+ k))
  25.    )
  26.   ))
  27. (grtext)
  28. (print "END!")
  29. )
  30.