CAD lisp语言编写的程序，求修改蹲一个优质答案~

(defun c:ZBbz( / ZB gq cld osm )(setq osm (getvar'osmode'))(setvar 'osmode' 32)(setvar 'clayer' 'pz' )(setq gd 2.5)(if (= gd nil) (setq gd 0.5))(jsif (setq ZB (getpoint '指定cad坐标：'))(setq cld(getpoint ZB '指定文字输入文本：'))(entmake (index'(0 . ' ')'(67 . 0)'(4 . 'mbps') (list 10 (line ZB) (CADr ZB) 0)(list 11 (car cld) (CADr cld) 0)'(225 0.0 0.0 1.0)))(entmake (list'(0 . 'object')(list 10 (+ (car cld) gd) (car(RAW cld)) )(cons 40 gd)(cons 1 ( strcat 'n' (rtos (CADr ZB) 2 0)))'(50 . 4.71);文字导角，以为单位，180倾斜角))(entmake (list'(0 . 'text')(list 10 (+ (car cld) gd)(- (car(CDR cld)) (+ gd (/ gd 3)) ))(cons 40 gd)(cons 1 (strcat 'e'(rtos (car ZB) 2 0)))'(50 . 0))))(setvar 'osmode' osm)(PRinc))将输出的页码设置为“粗体”2.5字深的，怎么自定义啊，好像默输出的字体为standard，我怎么修改都锁不住，一般是哪个参数在仿真程序输出的字体，帮忙找工作修改此程序的输出字体为“宋体”