请助，怎么设置写入文字的字体

lxy_2080

现在写入是系统字体，怎么能指定写入的字体是宋体呢，谢谢！！

(defun c:dz (/ oce1 n1 zn h1 sxh1 p1)
  (vl-load-com)  (setq oce1 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
   ;(command "-style" "HZTXT" "txt.shx,hztxt.shx"  0 0.5 0 "n" "n" "n")
  (setq        ms (vla-get-modelspace
  (vla-get-activedocument (vlax-get-acad-object))           )  )
  (if qz    ()    (setq qz "")  )
  (if hz    ()    (setq hz "")  )
  (initget "c")
  ;;;  (setq nqz (getstring (strcat "\n请输入前缀<" qz ">/c(为空): " )))
  ;;;(cond;;;  ((= nqz "c") (setq qz ""))
  ;;;  (T (if (/= nqz "")(setq qz nqz)));;;)
  ;;;  (setq nhz (getstring (strcat "\n请输入后缀<" hz ">/c(为空): " )))
  ;;;  (cond;;;  ((= nhz "c") (setq hz ""))
  ;;;  (T (if (/= nhz "")(setq hz nhz)));;;)
  (setq        qz "P"        hz "#"  )
  (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))    (setq n1 1)  )
  (if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))    (setq zn 1)  )
  ;;;(if (not (setq h1 (getreal "\n请指定文字高度 <2.5>: ")))    (setq h1 2.5) (2.5) )
  (setq h1 2.5)

  (setq sxh1 (strcat qz (itoa n1) hz))
  (setq p1 (getpoint "\n请指定插入点: "))
  (while (/= p1 nil)    (setq p1 (vlax-3d-point p1))
    (setq txt (vla-addtext ms sxh1 p1 h1 ))
    (setq      n1   (+ n1 zn)      sxh1 (strcat qz (itoa n1) hz) p1   (getpoint "\n请指定下一插入点: ")))
  (setvar "cmdecho" oce1)  (vlax-release-object ms)  (princ))

lxy_2080

自己顶起,没人吗!!!

feng582304

要创建宋体可以参见http://bbs.mjtd.com/thread-99969-1-1.html
然后创建文字，再指定样式

lxy_2080

字体不需要创建.主要是怎么指定写入字体的样式呢?