改变atuolisp中字体大小和字型是怎么做的？

jacksion

麻烦大家告诉我，改变atuolisp中字体大小和字型是怎么做的？谢谢！
程序替我编写一段吧！谢谢！

虚词

1）  (setvar "textstyle" "XXX") ，XXX指定字体。
        2）     (command "text" pt0  "mc" "H" 5.0 STRING "")，"H" 5.0设定字高。

meflying

(defun c:ed( / sname sinf h st m)
  (setq sname (car (entsel)))
  (setq sinf (entget sname))
  (setq h (getreal (strcat "\n输入新字高<" (rtos (cdr (assoc 40 sinf))) ">:")))
  (setq st (getstring (strcat "输入新字型<" (cdr (assoc 7 sinf)) ">:")))
  (setq m nil)
  (if h
    (progn (setq m t)
    (setq sinf (subst (cons 40 h) (assoc 40 sinf) sinf)))
  )
  (if (/= st "")
    (progn (setq m t)
    (setq sinf (subst (cons 7 st) (assoc 7 sinf) sinf)))
  )
  (if m
    (entmod sinf)
  )
  (princ)
)