创建 宋体 字体样式

(defun c:tt ()
    (setq textstyles (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "宋 宽0.7 高3"))
    (vla-SetFont textstyles "宋体" :vlax-false :vlax-false 1 0)
    (vlax-put-property textstyles "Height" 3)
    (vlax-put-property textstyles "Width" 0.7)
)