 - (defun c:fnt(/ a)
- (vl-load-com)
- (setq ThisDrawing(vla-get-activedocument (vlax-get-acad-object)))
- (Setq TextStyles(vla-get-TextStyles ThisDrawing))
- (Setq TextStyle(vla-add TextStyles "新文字样式"))
- (vla-SetFont TextStyle "宋体" :vlax-false :vlax-false 1 0)
- (princ)
- )
|