有无更好的乱码解决方法？

请教各位高手：
打开的图形中常有乱码，可以使用R14中BONUS的“cht”命令更改，天正好像也有一个“乱码解决”程序。那么，那儿可以下载到所有的字体，或者发送给别人的图形预先附加自己字体文件，或者。。。具体怎样操作？请指教。作为回报，附送一个可以一次性更改字体的小程序：
(defun A7()
(while (< 0 (sslength e7))
(setq elist7 (entget (ssname e7 0)))
(if (= (cdr (assoc 0 elist7)) "TEXT")
(progn (setq oldS (assoc 7 elist7))
(if (= (strcase s6) "S")
(progn (setq S7 (cdr (assoc 7 elist7)))
(setq S7 (* S7 scale))
) ; end progn
) ; end if
(setq newS (cons 7 S7))
(setq elist7 (subst newS oldS elist7))
(entmod elist7)
) ; end progn
) ; end if
(setq e7 (ssdel (ssname e7 0) e7))
) ; end while
) ; end function

(defun C7()
(while (< 0 (sslength e7))
(setq elist7 (entget (ssname7 e7 0)))
(if (and (= (cdr (assoc 0 elist7)) "TEXT")
(= (/ (fix (* (cdr (assoc 7 elist7)) 100000.0)) 100000.0) oS)
)
(progn (setq oldS (assoc 7 elist7))
(setq newS (cons 7 S7))
(setq elist7 (subst newS oldS elist7))
(entmod elist7)
) ; end progn
) ; end if
(setq e7 (ssdel (ssname e7 0) e7))
) ; end while
) ; end function

(defun C:CGS()
(setq s6 (getstring "\nTYPE: (A)ll To One "))
(prompt "\nSelect Entities")
(setq e7 (ssget))
;(if (= (strcase s6) "S")
; (progn (setq scale (getstring "\nInput Scale :"))
; (A7)
; ) ; end progn
;) ; end if
(if (= (strcase s6) "A")
(progn (setq S7 (getstring "\nInput New Text Style :"))
(A7)
) ; end progn
) ; end if
;(if (= (strcase s6) "C")
; (progn (setq oS (getstring "\nInput Old Text Style :"))
; (setq S7 (getstring "\nInput New Text Style :"))
; (C7)
; ) ; end progn
;) ; end if
) ; end defun