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

ch20003 · 发表于 2018-1-10 21:33:43

我是来学习的

bonny123 · 发表于 2018-1-15 16:32:19

我也写了一个

bonny123 · 发表于 2018-1-15 16:33:42

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

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

DOUDOU1211 · 发表于 2018-1-18 18:46:36

瞧一瞧看一看

ewqszh · 发表于 2018-1-30 10:54:11

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

liunian0524 · 发表于 2018-1-30 13:37:19

回复看隐藏

scnjlwb · 发表于 2018-2-18 10:31:51

谢谢分享！

forever123 · 发表于 2018-3-3 19:52:26

学习当中谢谢

508000096 · 发表于 2018-3-3 21:36:05

这个还是可以看看。

wfch20000 · 发表于 2018-3-7 16:13:23

我想看看，确实对我用用

拖拖_拉拉 · 发表于 2018-3-15 23:29:40

大牛厉害~~~

sicky111 · 发表于 2018-3-16 00:04:51

学习了。

cracksa · 发表于 2018-3-16 07:39:04

来学习学习

孤云寒霜 · 发表于 2018-3-16 09:28:34

找了好久，终于找到了

孤云寒霜 · 发表于 2018-3-16 09:36:03

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

帐号		自动登录	找回密码
密码			立即注册

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