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

newer · 发表于 2016-8-11 21:10:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

Issue
When I create new text styles based on truetype fonts, how do I know which fonts are available?  When I type certain font names as they are listed in the STYLE dialog box, AutoCAD tells me that the font name does not exist.

Using Visual LISP, how do I create a new style without using (command "style" new-style full-style-name "" "" "" "" "" "") ?

Solution
It seems that with some fonts, mostly Swiss and Dutch, the font name is abbreviated in AutoCAD's STYLE dialog.  Some of the common abbreviations used are:

Bd = Bold
Blk = Black
Cn = Condensed
Ex = Extended
It = Italic
Out = Outline
Rm = Roman
Xbd = Extra Bold

For example:
Swis721 BlkEx BT  would be written as  Swiss 721 Black Extended BT
Swis721 BdCnOut BT  would be written as  Swiss 721 Bold Condensed Outline BT
Dutch801 Rm BT  would be written as  Dutch 801 Roman BT
Dutch801 Xbd BT  would be written as  Dutch 801 Extra Bold BT

Note: Using Windows Explorer, you can see the actual spelling of the font names, in theFonts directory (ex: C:\Windows\Fonts).

There are two lisp approaches to create a new style, without using (command "style"...etc), but you will need the name of the actual .ttf file to do so.  Again, Windows' Fonts directory lists the font names and the related .ttf filename.  For example: Swiss 721 Bold Condensed Outline BT is found in the file swisscbo.ttf.  With this information, we can proceed to entmake a new text style.  First, the old AutoLISP approach, using entmake:

使用LISP创建文字样式：

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

下面是使用VLISP(AcTivex):

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

具体应用中，用你期望的字体替代程序里面的ttf文件名。

HLCAD · 发表于 2016-8-12 08:01:53

回复，向版主学习程序

dnbcgrass · 发表于 2016-8-12 08:07:16

回复学习学习！

WhoCanSay · 发表于 2016-8-12 08:13:01

向N版学习

cfc123456 · 发表于 2016-8-12 14:21:41

回复，向版主学习。

tmwall · 发表于 2016-8-13 00:01:52

想班组学习一下。。。。。。。。。。

819534890 · 发表于 2016-8-15 09:04:02

good good.

qq1846687144 · 发表于 2016-8-15 09:08:11

看一看,学一学

qyming1996 · 发表于 2016-8-15 23:21:35

学习。。。。。。。

kqqt6236 · 发表于 2016-8-16 09:47:13

看一下VLISP代码

spp_wall · 发表于 2016-8-16 10:53:59

谢谢！！！！学习！！！

start4444 · 发表于 2016-8-18 15:48:40

回复看看----------------------

lxy_2080 · 发表于 2016-8-21 17:30:55

good good.

dingwqing · 发表于 2016-8-21 21:33:17

回复，下载，学习！！！！！！！

hao3ren · 发表于 2016-8-24 00:51:16

回复看看----------------------

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。