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

newer

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创建文字样式：

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. )
    

;;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 />

下面是使用VLISP(AcTivex):

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

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

HLCAD

回复，向版主学习程序

dnbcgrass

回复学习学习！

WhoCanSay

向N版学习   

cfc123456

回复，向版主学习。

tmwall

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

819534890

good good.

qq1846687144

看一看,学一学

qyming1996

学习。。。。。。。

kqqt6236

看一下VLISP代码

spp_wall

谢谢！！！！学习！！！

start4444

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

lxy_2080

good good.

dingwqing

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

hao3ren

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