用LISP和VLISP分别实现定义一个truetype的文字样式

marting

AUTOLISP实现：

1. ;;Style: myNewStyle
   
2. ;;Font Name: Swiss 721 Bold Condensed Outline BT
   
3. ;;Fontfile: swisscbo.ttf
   
4. (if (not (tblsearch "STYLE" "myNewStyle"))
   
5.     (entmake '((0 . "STYLE")
   
6.                      (100 . "AcDbSymbolTableRecord")
   
7.                      (100 . "AcDbTextStyleTableRecord")
   
8.                      (2 . "myNewStyle") ;style name
   
9.                      (3 . "swisscbo.ttf") ;font file
   
10.                      (70 . 0)
    
11.                      (40 . 0.0)
    
12.                      (41 . 1.0)
    
13.                      (50 . 0.0)
    
14.                      (71 . 0)
    
15.                     )
    
16.     )
    
17.     (princ "\n Style already defined")
    
18. )
    
19. 
    

;;Style: myNewStyle<br /> ;;Font Name: Swiss 721 Bold Condensed Outline BT<br /> ;;Fontfile: swisscbo.ttf<br /> (if (not (tblsearch "STYLE" "myNewStyle"))<br />     (entmake '((0 . "STYLE")<br />                      (100 . "AcDbSymbolTableRecord")<br />                      (100 . "AcDbTextStyleTableRecord")<br />                      (2 . "myNewStyle") ;style name<br />                      (3 . "swisscbo.ttf") ;font file<br />                      (70 . 0)<br />                      (40 . 0.0)<br />                      (41 . 1.0)<br />                      (50 . 0.0)<br />                      (71 . 0)<br />                     )<br />     )<br />     (princ "\n Style already defined")<br /> )<br /> <br />

VLISP实现：

游客，如果您要查看本帖隐藏内容请回复

上面的文字样式名myNewStyle自己根据需要替换。

孤云寒霜

iLisp 发表于 2017-7-19 15:43

谢谢   已经解决了    请问下  怎么用lisp设置指定文字的特性呢

iLisp

marting 发表于 2017-7-19 14:28

不错，学了一招，中文 TTF 字体这样设置，windows 7 64bit + autocad 2012 64bit 测试通过

2. 
   
3. (setq msty (vla-add (vla-get-textstyles
   
4.                       (vla-get-activedocument (vlax-get-acad-object))
   
5.                     )
   
6.                     "m_st"
   
7.            )
   
8. )
   
9. (vla-getfont msty 'TypeFace 'Bold 'Italic 'CharSet 'P&Fam)
   
10. (vla-setfont msty "新宋体" Bold Italic CharSet P&Fam)

<br /> (setq msty (vla-add (vla-get-textstyles<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />                     "m_st"<br />            )<br /> )<br /> (vla-getfont msty 'TypeFace 'Bold 'Italic 'CharSet 'P&Fam)<br /> (vla-setfont msty "新宋体" Bold Italic CharSet P&Fam)

marting

q3_2006 发表于 2017-7-19 12:27

上面那个红框里面，ACAD设置的时候，其实是设置的TYPEFACE，宋体，新宋体什么的。

所以，你还要设置TYPEFACE，来区别是用的宋体还是新宋体。

对TTF字体，其实是通过

(vla-GetFont objstyle 'typeFace 'Bold 'Italic 'charSet 'PitchandFamily)  ;;获取文字样式的typeface等设置
(vla-SetFont objstyle "宋体" 'Bold 'Italic 'charSet 'PitchandFamily) ;;设置文字样式的typeface等

或者：
(vla-SetFont objstyle "新宋体" 'Bold 'Italic 'charSet 'PitchandFamily) ;;设置文字样式的typeface等

819534890

回复学习学习

q3_2006

怎么知道文件名对应哪种字体...哪里能查到..SimSun..是宋体...最近有个新宋体...就不知道字体文件名是哪个..搞得人很郁闷..

qyming1996

学习，学习，学习

crtrccrt

我了个去吧主动态环

liunian0524

感谢楼主分享

HLCAD

感谢大师分享代码！

ll_j

q3_2006 发表于 2017-7-19 05:36

新宋体是Nsimsun.ttf，在win系统中，宋体和新宋体是打包的，文件名是simsun.ttc，这个文件名是acad不认的，但字体装入后，acad会认其中的ttf字体，实际上应该就是一个指针。在simsun.ttc中，不仅仅有以上两个ttf，还有前面加上@字符的竖排字体，就是@simsun.ttf和@Nsimsun.ttf。如果要知道文件名，不妨先定义一个字型，然后使用(entget(tblobjname "style" "aa"))这种方法查看ttf文件名。

简单测试了一下，部分字库是没有这种可见的“指针”的，比如我这里有一个“宋体-18030”，虽然使用资源管理器能查看ttc文件名，但无法查看ttf接口，这种文件本人也没有什么办法，只能不用作罢。

q3_2006

ll_j 发表于 2017-7-19 08:46

好..谢谢大师...我试试..

Lisphk

q3_2006 发表于 2017-7-19 05:36

进入c:\windows\fonts目录， 详细信息显示，把显示字体文件名称标签显示出来，字体的文件名就看到了，如上图。

xyccf

感谢楼主分享

ymcui2005

回复学习学习

向嘟嘟

回复看看。。。。。。。

q3_2006

Lisphk 发表于 2017-7-19 09:05

原来这样哈..系统小白真可怜...我查了下..新宋体也是simsun但新建字体样式并不成功...是什么原因呢..