;选择文字修改字体

(defun c:chtxsy ( / a ns n index b1 e f b2)
        (setq a (ssget'((0 . "TEXT"))))
        (setq ns (getstring "\nEnter new text style:"))
        (setq n (sslength a))
        (setq index 0)
        (repeat n
             (setq b1 (entget(ssname a index)))
             (setq index (+ index 1))
             (setq e (assoc 7 b1))
             (setq f (cons (car e) ns))
             (setq b2 (subst f e b1))
             (entmod b2)
             )
   )
  ;;; This program change seleced texts' style .2002.4.7