;统一文字样式
(defun c:TtY ()
    (setq FontFile "txt.shx")            
    (setq BigFontFile "hztxt.shx")     
    (setq Height 0) 
    (setq Width 0.8) 
    (setq ObliqueAngle 0) 
    (setq ChuiZhi "N")  ;4=垂直文字
    (setq fanxiang "N") ;2=反向文字
    (setq diandao "N")  ;4=颠倒文字

    (setq strFontfiles (strcat FontFile "," BigFontFile))
    (setq FontStyle (tblnext "STYLE" T))
    (while  
     (setq FontStyleName (cdr (assoc 2 FontStyle)))
         (princ FontStyleName)
     (if (/= FontStyleName "")
     (command "_style" FontStyleName strFontfiles "" "" "" "" "" "")     
     )
         (setq FontStyle (tblnext "STYLE"))
    )
)