feng582304 发表于 2013-1-7 00:42:56

创建文字样式使用宋体

(defun asdf ( / obj )
(setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "asdf"))
(vlax-dump-Object obj)
(vla-setFont obj "宋体" :vlax-false :vlax-false 134 2)
)
如果使用这样方式创建的话，其兼容性有多大？请大家帮忙在各自的系统平台和CAD平台测试一下。
如果可行的话， 以后就不用为没法改成window字体烦恼啦。

mandala 发表于 2013-11-7 09:07:38

本帖最后由 mandala 于 2013-11-7 09:11 编辑

这个值得推荐，我找一个能同时在win7和xp下加载宋体的lisp很久了。这个lisp在win764位、32位、xp下都能通过。试过的cad版本有2007、2008、2010，以及安装了cass7.0的2005，以及安装了正版cass9.1forcad2008、2007的所有win7和xp电脑，没发现不能创建宋体的现象。

竖向宋体是这么写的：
(defun asdf ( / obj )
(setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "asdf"))
(vlax-dump-Object obj)
(vla-setFont obj "@宋体" :vlax-false :vlax-false 134 2)
)

mandala 发表于 2013-11-6 18:02:11

问题是如何创造竖向的宋体？

m809289064j 发表于 2019-6-7 08:26:43

mandala 发表于 2013-11-7 09:07
这个值得推荐，我找一个能同时在win7和xp下加载宋体的lisp很久了。这个lisp在win764位、32位、xp下都能通过 ...

谢谢,找老久了,今天才看到,谢谢

朽木大师 发表于 2013-11-5 22:23:29

留个记号，以备下次使用

mandala 发表于 2013-11-6 18:00:41

这个比较有意思……

用它我能在win764位旗舰版，cad2007，cad2008下正常创建宋体。

yuanziyou 发表于 2013-11-7 09:52:00

标记,也许有用!

awd37 发表于 2013-12-18 21:02:48

测试了win8.1 下   autocad 2012和 安装了南方cass 9.1能成功创建宋体

hnfsf 发表于 2014-5-7 00:59:44

这个方法太好了，管用，通吃、、。。

那个猎人 发表于 2014-5-7 08:39:19

新手向前辈们学习啦,赞一个

那个猎人 发表于 2014-5-12 16:57:16

请怎怎么设置宋体的高宽比
页: [1] 2 3
查看完整版本: 创建文字样式使用宋体