command如何创建一个字体样式为宋体

qiuhai1991

(command "style""tukou""黑体""0""""0""""");成功创建
(command "style""tukou""宋体""0""""0""""");无法创建
这样可以创建一个黑体的字体，但是不知为何，无法创建一个宋体的字体，但是手动创建的话又可以正常创建出宋体字体，搞不懂

chg

(defun c:fnt(/ a)
  (vl-load-com)
  (setq ThisDrawing(vla-get-activedocument (vlax-get-acad-object)))
  (Setq TextStyles(vla-get-TextStyles ThisDrawing))
  (Setq TextStyle(vla-add TextStyles "新文字样式"))
  (vla-SetFont TextStyle "宋体" :vlax-false :vlax-false 1 0)
  (princ)
)
这个是论坛里最好的方法了，不过不是用command创建的

ZZXXQQ

(command "STYLE" "tukou" "SimSun.ttf" "0" "" "0" "" "")

qiuhai1991

ZZXXQQ 发表于 2015-10-3 05:13
(command "STYLE" "tukou" "SimSun.ttf" "0" "" "0" "" "")

不行，刚好我的电脑没有simsun.ttf，我的宋体是simsunb.ttf，感觉没有通用鑫

ZZXXQQ

qiuhai1991 发表于 2015-10-4 01:14
不行，刚好我的电脑没有simsun.ttf，我的宋体是simsunb.ttf，感觉没有通用鑫

(if (findfile "simsun.ttf")
(command "style" "tukou" "simsun.ttf" "0" "" "0" "" "")
)
(if (findfile "sumsunb.ttf")
(command "style" "tukou" "simsunb.ttf" "0" "" "0" "" "")
)

qiuhai1991

有没有办法创建出出用手动创建出来的效果，就是显示“宋体”，不要显示simsun.ttf之类的

lucas_3333

这类的问题, 论坛里讨论过很多次了, 发贴前建议多搜索下
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7303840

carrot1983

既然路过，也来凑个热闹。

2. (defun C:TT ()
   
3.   (vl-load-com)
   
4.   (vlax-for X (vla-get-textstyles
   
5.                 (vla-get-activedocument (vlax-get-acad-object))
   
6.               )
   
7.     (print (list (vla-get-name X)
   
8.                  (vla-get-fontfile X)
   
9.                  (vla-get-bigfontfile X)
   
10.            )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    

(defun C:TT ()<br />   (vl-load-com)<br />   (vlax-for X (vla-get-textstyles<br />                 (vla-get-activedocument (vlax-get-acad-object))<br />               )<br />     (print (list (vla-get-name X)<br />                  (vla-get-fontfile X)<br />                  (vla-get-bigfontfile X)<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br />

2. (defun C:TT ()
   
3.   (while (setq DXF (tblnext "STYLE" (null DXF)))
   
4.     (print (list (cdr (assoc 2 DXF))
   
5.      (cdr (assoc 3 DXF))
   
6.      (cdr (assoc 4 DXF))
   
7.      )
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun C:TT ()<br />   (while (setq DXF (tblnext "STYLE" (null DXF)))<br />     (print (list (cdr (assoc 2 DXF))<br />      (cdr (assoc 3 DXF))<br />      (cdr (assoc 4 DXF))<br />      )<br />     )<br />   )<br />   (princ)<br /> )

1.　无法看到宋体
2.　无法取得中文的“隶书”，只能获得"SIMLI.TTF"

hd654

学习了，解决了问题