AUTOCAD帮忙 编个LISP程序

Question

哪位大神能帮我编个程序啊
CAD里面修改文字样式（命令是st）
然后“样式名”选择standard，“shx字体”选择romans.shx，“大字体”选择extfont.shx，
然后点击“应用”

Answer 1

修改字standard体样式，autolisp代码如下：

(defun C:st ( / txts txtstyle)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (setq txts (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))))
 (setq TxtStyle (vla-Item txts "standard"))
 (vla-put-fontfile TxtStyle "romans.shx")
 (vla-put-bigfontfile TxtStyle "extfont.shx")
 (princ)
);复制到记事本，以【.lsp】为后缀命名，cad【appload】加载，命令【st】。