如何编程创建一个新的文字样式（使用truetype字体)

ch20003

我是来学习的

bonny123

      我也写了一个

bonny123

2. ;;[功能]：创建字体样式，如已存在，则置为当前
   
3. ;;[语法]：BO-AddStyle-1 (tsname font fbig fh fw fo)
   
4. ;;[参数]：tsname=文字样式名 font=字体名(可加后缀) fbig=大字体 fh=字高 fw=宽高比 fo=倾斜角度
   
5. ;;[返回]：文字样式名
   
6. ;;[示例]：(BO-AddStyle-1 "BO-黑体" "黑体" 0 1 0)
   
7. ;;[结果]：
   
8. 
   
9. (defun BO-TX-AddStyle (tsname font fbig fh fw fo / ts)
   
10.         (if (not (tblsearch "STYLE" tsname))
    
11.                 (progn
    
12.                         (setq ts (vla-add BO-TXTS tsname))
    
13.                         (if (= fbig nil)
    
14.                                 (vla-put-FontFile ts font);设置字体(需保证支持目录下有此字体存在)
    
15.                                 (progn
    
16.                                         (vla-put-FontFile ts font);设置字体(需支持目录下有此字体存在)
    
17.                                         (vla-put-BigFontFile ts fbig);设置大字体
    
18.                                 )
    
19.                         )
    
20.                         (vla-put-height ts fh);高度
    
21.                         (vla-put-width ts fw);宽度因子
    
22.                         (vla-put-obliqueAngle ts fo);倾斜角度
    
23.                 )
    
24.         )
    
25.         (BO-TX-SetActive tsname)
    
26. )

;;[功能]：创建字体样式，如已存在，则置为当前<br /> ;;[语法]：BO-AddStyle-1 (tsname font fbig fh fw fo)<br /> ;;[参数]：tsname=文字样式名 font=字体名(可加后缀) fbig=大字体 fh=字高 fw=宽高比 fo=倾斜角度<br /> ;;[返回]：文字样式名<br /> ;;[示例]：(BO-AddStyle-1 "BO-黑体" "黑体" 0 1 0)<br /> ;;[结果]：<br /> <br /> (defun BO-TX-AddStyle (tsname font fbig fh fw fo / ts)<br />         (if (not (tblsearch "STYLE" tsname))<br />                 (progn<br />                         (setq ts (vla-add BO-TXTS tsname))<br />                         (if (= fbig nil)<br />                                 (vla-put-FontFile ts font);设置字体(需保证支持目录下有此字体存在)<br />                                 (progn<br />                                         (vla-put-FontFile ts font);设置字体(需支持目录下有此字体存在)<br />                                         (vla-put-BigFontFile ts fbig);设置大字体<br />                                 )<br />                         )<br />                         (vla-put-height ts fh);高度<br />                         (vla-put-width ts fw);宽度因子<br />                         (vla-put-obliqueAngle ts fo);倾斜角度<br />                 )<br />         )<br />         (BO-TX-SetActive tsname)<br /> )

DOUDOU1211

瞧一瞧看一看   

ewqszh

很好，学习，学习，再学习。

liunian0524

回复看隐藏

scnjlwb

谢谢分享！

forever123

学习当中  谢谢

508000096

这个还是可以看看。

wfch20000

我想看看，确实对我用用

拖拖_拉拉

大牛厉害~~~

sicky111

学习了。        

cracksa

来学习学习

孤云寒霜

找了好久，终于找到了

孤云寒霜

版主，试了你的方法，但提示函数错误，请问下该怎么设置