请问怎样用entmake 建立 "新宋体" 的字型？

ndgxy

请问怎样用entmake 建立 "新宋体" 的字型？求指点
(TBLSEARCH "style" "aa")
((0 . "STYLE") (2 . "aa") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "") (4 . ""))

(3 . "")明明是新宋体，怎么提取不到呀？求指点

marting

下面命令创建一个 myNewStyle 样式，字体用 新宋体，你可以借鉴修改下。

1. (defun c:tt ()
   
2.   (if (not (tblsearch "STYLE" "myNewStyle"))
   
3.     (entmake '((0 . "STYLE")
   
4.                (100 . "AcDbSymbolTableRecord")
   
5.                (100 . "AcDbTextStyleTableRecord")
   
6.                (2 . "myNewStyle")        ;style name
   
7.                (3 . "")        ;font file
   
8.                (70 . 0)
   
9.                (40 . 0.0)
   
10.                (41 . 1.0)
    
11.                (50 . 0.0)
    
12.                (71 . 0)
    
13.                (-3 ("ACAD" (1000 . "NSimSun") (1071 . 34353)))
    
14.               )
    
15.     )
    
16.     (princ "\n Style already defined")
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    

(defun c:tt ()<br />   (if (not (tblsearch "STYLE" "myNewStyle"))<br />     (entmake '((0 . "STYLE")<br />                (100 . "AcDbSymbolTableRecord")<br />                (100 . "AcDbTextStyleTableRecord")<br />                (2 . "myNewStyle")        ;style name<br />                (3 . "")        ;font file<br />                (70 . 0)<br />                (40 . 0.0)<br />                (41 . 1.0)<br />                (50 . 0.0)<br />                (71 . 0)<br />                (-3 ("ACAD" (1000 . "NSimSun") (1071 . 34353)))<br />               )<br />     )<br />     (princ "\n Style already defined")<br />   )<br />   (princ)<br /> )<br /> <br />

Linhay

(3 . "")明明是新宋体

怎么判断的，明明是空

fangmin723

(defun c:tt ()
        (setq textstyles (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) "宋 宽0.7 高3"))
        (vla-SetFont textstyles "宋体" :vlax-false :vlax-false 1 0)
        (vlax-put-property textstyles "Height" 3)
        (vlax-put-property textstyles "Width" 0.7)
)

ll_j

试试Nsimsun.ttf。

Lisphk

fangmin723 发表于 2017-8-5 11:08

正解，对TTF字体， 还要设置TYPEFACE

marting

ll_j 发表于 2017-8-5 12:22

宋体和新宋体都是一个字体文件定义的，不同的typeface，要用vlisp的vla-setfont 。

要用ENTMAKE，用添加扩展实体数据

下面做个测试

设置了“新宋体”的样式定义，entget数据定义是：

1. 
   
2. 命令: (entget obj)
   
3. ((-1 . <图元名: -24f378>) (0 . "STYLE") (330 . <图元名: -24f3e8>) (5 . "11") (100 .
   
4. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard")
   
5. (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "") (4 . ""))
   
6. 
   

复制代码

既然定义了，那么数据一定是保存在文字样式记录里面的，那么接着查看下扩展实体定义

1. 
   
2. 命令: (entget obj '("*"))
   
3. ((-1 . <图元名: -24f378>) (0 . "STYLE") (330 . <图元名: -24f3e8>) (5 . "11") (100 .
   
4. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard")
   
5. (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "") (4 . "")
   
6. (-3 ("ACAD" (1000 . "NSimSun") (1071 . 34353))))
   
7. 
   

复制代码

所以，扩展实体数据里面，就是vla-setfont定义的那些。

用添加扩展实体数据方法，可以用 entmake 创建一个字体TTF里面不同的TYPEFACE了。

lwl450

学习一下

ll_j

又折腾了一会，有以下收获：
1、在组码3中使用字体名也是可以定义的，但不是字体文件名，应该是字体系统显示名（TYPEFACE），虽然可以定义，但这是有缺陷的，就是在acad中显示的字体名是有感叹号的。
2、中文字体应该直接在扩展数据中使用系统显示的字体名（如“新宋体”、“@黑体”等），不要使用由字体定义检索得到的西文名称（如“simsun”）。
3、在扩展数据在使用TYPEFACE，不要带扩展名。

附上修改后的程序，有兴趣的可以测试完善：

1. ;;sn－acad定义字体名
   
2. ;;tfa－windows系统显示字体名
   
3. (defun mkts (sn tfa)
   
4.   (if (not (tblsearch "STYLE" sn))
   
5.     (entmake
   
6.       (list '(0 . "STYLE")
   
7.             '(100 . "AcDbSymbolTableRecord")
   
8.             '(100 . "AcDbTextStyleTableRecord")
   
9.             (cons 2 sn)
   
10.             '(70 . 0)
    
11.             '(40 . 0.0)
    
12.             '(41 . 1.0)
    
13.             '(50 . 0.0)
    
14.             '(71 . 0)
    
15.             (list -3 (list "ACAD" (cons 1000 tfa)))
    
16.       )
    
17.     )
    
18.     (princ "\n Style already defined")
    
19.   )
    
20. )

;;sn－acad定义字体名<br /> ;;tfa－windows系统显示字体名<br /> (defun mkts (sn tfa)<br />   (if (not (tblsearch "STYLE" sn))<br />     (entmake<br />       (list '(0 . "STYLE")<br />             '(100 . "AcDbSymbolTableRecord")<br />             '(100 . "AcDbTextStyleTableRecord")<br />             (cons 2 sn)<br />             '(70 . 0)<br />             '(40 . 0.0)<br />             '(41 . 1.0)<br />             '(50 . 0.0)<br />             '(71 . 0)<br />             (list -3 (list "ACAD" (cons 1000 tfa)))<br />       )<br />     )<br />     (princ "\n Style already defined")<br />   )<br /> )

Lisphk

ll_j 发表于 2017-8-5 17:45

长老，ACAD定义字体名是指的什么？

比如这个新宋体，用你的函数怎么调用？

Lisphk

marting 发表于 2017-8-5 15:37

又学到了新东西，谢谢！

ll_j

Lisphk 发表于 2017-8-5 18:24

试试：(mkts "myts" "新宋体")

Lisphk

ll_j 发表于 2017-8-5 18:31

命令: (mkts "myts" "新宋体")
nil

打开STYLE对话框，没有新字形创建呢？

ll_j

Lisphk 发表于 2017-8-5 18:35

先打开文字样式对话框看看字体名中有没有“T新宋体”，再看看这个样式名是不是定义过，我这里是正常的。
命令: (mkts "kt" "@楷体_gb2312")
((0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 .
"AcDbTextStyleTableRecord") (2 . "kt") (70 . 0) (40 . 0.0) (41 . 1.0) (50 .
0.0) (71 . 0) (-3 ("ACAD" (1000 . "@楷体_gb2312"))))

Lisphk

ll_j 发表于 2017-8-5 18:41

新宋体应该是每个中文WINDOWS都有的吧，我这里肯定有的