;;将文字修改为显示成汉字的字型
(defun C:Test (/ FONT1 TBL1 TEXTSTYLENAME)
  ;;如果用户没有将standard改为能够显示成汉字的字型，就将其修改成能够显示汉字的字型。
  (if (and (setq TextStyleName (cdr (assoc 7 (entget (car (entsel))))))
           (setq tbl1 (tblsearch "style" TextStyleName))
           (setq font1 (assoc 4 tbl1))
           (setq font1 (cdr font1))
           (= (type font1) 'str)
           (equal (strcase font1) "")
      )
    (command "_style" TextStyleName "gbenor,gbcbig" 0.0 1.0 0.0 "n" "n" "n")
    ;;(setvar "textstyle" "standard")
  )
)