创建文字样式使用宋体

feng582304

2. (defun asdf ( / obj )
   
3.   (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "asdf"))
   
4.   (vlax-dump-Object obj)
   
5.   (vla-setFont obj "宋体" :vlax-false :vlax-false 134 2)
   
6.   )

(defun asdf ( / obj )<br />   (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "asdf"))<br />   (vlax-dump-Object obj)<br />   (vla-setFont obj "宋体" :vlax-false :vlax-false 134 2)<br />   )

如果使用这样方式创建的话，其兼容性有多大？请大家帮忙在各自的系统平台和CAD平台测试一下。
如果可行的话， 以后就不用为没法改成window字体烦恼啦。

mandala

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

m809289064j

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

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

wudechao

pop159 发表于 2018-11-13 17:59
请问如何在创建的同时可以设置字高、比例等，谢谢

(vla-put-width obj 0.7);字宽
      (vla-put-height obj 0.0);字高

朽木大师

留个记号，以备下次使用

mandala

这个比较有意思……

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

mandala

这个值得推荐，我找一个能同时在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)
  )

yuanziyou

标记,也许有用!

awd37

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

hnfsf

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

那个猎人

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

那个猎人

请怎怎么设置宋体的高宽比