win7系统LISP生成宋体样式后如何改变字高、比例的疑问

pop159

win7 系统自带宋体样式后缀是 .TTC,可CAD只认.TTF，因此在本论坛中有找到一个办法，但不知道如何在创建文字样式的时候增加改变字高、比例，请各位帮帮啊，谢谢啦
http://bbs.mjtd.com/forum.php?mo ... 4%D7%D6%D1%F9%CA%BD
这是找到的方法，但没有设置字高、比例等，请各位前辈指导下

669423907

关注一下，也想知道如何设为当前

ssyfeng

看看是不是这样：

2. (defun asdf ( / obj )
   
3.   (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "asdf"))
   
4.   (vla-setFont obj "宋体" :vlax-false :vlax-false 134 2)
   
5.   (vla-put-Height obj 8)  ;;;设置字高
   
6.   (vla-put-Width obj 0.75)  ;;设置宽度因子
   
7.   (vla-put-ActiveTextStyle (vla-get-ActiveDocument (vlax-get-acad-object)) obj)  ;;设置为当前字体样式
   
8. )

(defun asdf ( / obj )<br />   (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "asdf"))<br />   (vla-setFont obj "宋体" :vlax-false :vlax-false 134 2)<br />   (vla-put-Height obj 8)  ;;;设置字高<br />   (vla-put-Width obj 0.75)  ;;设置宽度因子<br />   (vla-put-ActiveTextStyle (vla-get-ActiveDocument (vlax-get-acad-object)) obj)  ;;设置为当前字体样式<br /> )

pop159

ssyfeng 发表于 2018-11-14 10:16
看看是不是这样：

可以了，谢谢啦