求能获取到跟style命令一样的文字样式所使用的字体名称

sctw

1、(setq D (tblnext "style" (null D))) 这个语句不能获取到windows宋体、楷体等系统字体名称，都为空，请教怎样才能获得；
2、如果能获取到一样的中文字体，比如下图中的”华文楷体“，但实际windows\fonts 下的字体文件名却是这个英文名称，怎么再用windows里显示的中文名称去替换字体呢。

e2002

sctw

不明白哟，能不能再完整点呢，运行这句返回：参数类型错误: VLA-OBJECT nil

maiko

e2002 发表于 2020-8-10 12:07

大佬牛B,膜拜

wkq004

1. (setq textStyleName "中等线体") ;_字体样式名
   
2. (setq fontFileName "方正中等线简体.ttf") ;_字体文件名
   
3. (entmake (append
   
4.    '((0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord"))
   
5.    (list (cons 2  textStyleName))
   
6.    '((70 . 0) (40 . 1) (41 . 1))
   
7.   (list (cons 3 (strcat (getenv "Windir") "\\fonts\\" fontFileName) )) ;(3 . "宋体.ttf")
   
8. )
   
9. )         
   
10. ;;命令: (tblsearch "style" "中等线体")  ; ;返回不了除"宋体"外的汉字字体名
    
11. ;;((0 . "STYLE") (2 . "中等线体") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "") (4 . ""))
    
12. ;;(vla-get-FontFile (vla-get-ActiveTextStyle (vla-get-ActiveDocument (vlax-get-acad-object))))  ;返回不了除"宋体"外的汉字字体名
    
13. ;;(setvar "TEXTSTYLE" textStyleName) ;_当前字体样式
    
14. ;;(setq styleObj (vla-get-ActiveTextStyle (vla-get-ActiveDocument (vlax-get-acad-object))))
    
15. 
    
16. (setq styleObj (vlax-ename->vla-object (tblobjname "style" textStyleName)))
    
17. (vla-Getfont styleObj 'typeface 'bold 'italic 'charset 'pitchandfamily)
    
18. (print typeface) ;_返回中文字体名
    

(setq textStyleName "中等线体") ;_字体样式名<br /> (setq fontFileName "方正中等线简体.ttf") ;_字体文件名<br /> (entmake (append <br />    '((0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord"))<br />    (list (cons 2  textStyleName)) <br />    '((70 . 0) (40 . 1) (41 . 1))<br />   (list (cons 3 (strcat (getenv "Windir") "\\fonts\\" fontFileName) )) ;(3 . "宋体.ttf")<br /> )<br /> )         <br /> ;;命令: (tblsearch "style" "中等线体")  ; ;返回不了除"宋体"外的汉字字体名<br /> ;;((0 . "STYLE") (2 . "中等线体") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "") (4 . ""))<br /> ;;(vla-get-FontFile (vla-get-ActiveTextStyle (vla-get-ActiveDocument (vlax-get-acad-object))))  ;返回不了除"宋体"外的汉字字体名<br /> ;;(setvar "TEXTSTYLE" textStyleName) ;_当前字体样式<br /> ;;(setq styleObj (vla-get-ActiveTextStyle (vla-get-ActiveDocument (vlax-get-acad-object))))<br /> <br /> (setq styleObj (vlax-ename->vla-object (tblobjname "style" textStyleName)))<br /> (vla-Getfont styleObj 'typeface 'bold 'italic 'charset 'pitchandfamily)<br /> (print typeface) ;_返回中文字体名<br />