lisp全部文本改宋体字型_[推荐]修改任何文字（包括属性块、有名无名块）

转发一好用程序，可修改任何文字，唯独不能修改尺寸文字，望原创作者或各位高手能修改一下。

LISP：

;自定义UnDo范围

(defun EF:UNDOBegin ()

(setvar "CMDECHO" 0 )

(command "_.undo" "_group")

(princ)

) ;end defun

(defun EF:UNDOEnd()

(setvar "CMDECHO" 0)

(command "_.undo" "_end")

(princ)

) ;end defun

(defun c:tt( / dcl_id1 oba ob1 obn obt ptn otxt txt sty styno lay cyn layno hig wid ang col cnu etlst style layer)

(graphscr)

(EF:UNDOBegin)

(setq olderr *error*)

(defun *error*(msg)

(princ "\n*ERROR*...")

(princ msg)

(princ)

);end defun error.

(defun set_color ( conm / costr )

(defun map_color ( ckey mno )

(start_image ckey)

(fill_image 0 0 (DimX_tile ckey) (DimY_tile ckey) mno)

(end_image)

) ;end defun

(cond ((= 0 conm)(setq costr "Byblock"))

((= 1 conm)(setq costr "Red"))

((= 2 conm)(setq costr "Yellow"))

((= 3 conm)(setq costr "Green"))

((= 4 conm)(setq costr "Cyan"))

((= 5 conm)(setq costr "Bule"))

((= 6 conm)(setq costr "Magenta"))

((= 7 conm)(setq costr "color"))

((= 256 conm)(setq costr "Bylayer"))

( t (setq costr ""))

) ;end cond

(cond ((= 0 col) (map_color "col" 7))

((= 256 col)(map_color "col" (cdr (assoc 62 (tblsearch "layer" lay)))))

(t (map_color "col" conm))

) ;end cond

(if (= 256 conm)

(set_tile "cnu" (s