求高手帮忙改下我写的这个插件

请问如何把里面所用 字体样式 改成 华文细黑 啊？

; =============================================
; | 第 4 张 |
; | 版本: V1.1 作者: YC |
; =============================================
(defun C:D4(/ dx dy dx1 pt ptt lay)
(setvar "CMDECHO" 0)
(setq lay (getvar "clayer"))
(command "color" "bylayer")
(command "layer" "m" "D4" "c" "yellow" "D4" "")
(if (or (= nil (tblsearch "style" "TuHao"))
(/= (cdr (assoc 40 (tblsearch "style" "TuHao"))) 0)
)
(command "STYLE" "TuHao" "RC9,hztxt" "0" ".7" "0" "n" "n" "n")
)
(setq pt (getpoint "\nInsert point: "))
(command "text" "s" "TuHao" pt "3" "0" "第 4 张")
(setq dy (cadr pt))
(setq dx (car pt))
(setq dx1 (+ dx 9))
(setq dy (+ dy 0.5))
(setq ptt (list dx1 dy))

(setq RC91 (rtos RC9 2 0))
(command "text" "s" "TuHao" ptt "4" "0" RC91)
(command "layer" "s" lay "")
(princ)(princ)
)