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

qiuhai1991 发表于 2015-10-3 02:09:13

本帖最后由 qiuhai1991 于 2015-10-6 22:22 编辑

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

chg 发表于 2015-10-3 02:09:14

(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 发表于 2015-10-3 05:13:29

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

qiuhai1991 发表于 2015-10-4 01:14:14

ZZXXQQ 发表于 2015-10-3 05:13 static/image/common/back.gif
(command "STYLE" "tukou" "SimSun.ttf" "0" "" "0" "" "")

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

ZZXXQQ 发表于 2015-10-4 06:22:56

qiuhai1991 发表于 2015-10-4 01:14 static/image/common/back.gif
不行，刚好我的电脑没有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 发表于 2015-10-6 22:22:18

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

lucas_3333 发表于 2015-10-7 11:16:59

这类的问题, 论坛里讨论过很多次了, 发贴前建议多搜索下
http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=169214&pid=743791&fromuid=7303840

carrot1983 发表于 2015-10-7 11:36:13

本帖最后由 carrot1983 于 2015-10-7 11:39 编辑

既然路过，也来凑个热闹。(defun C:TT ()
(vl-load-com)
(vlax-for X (vla-get-textstyles
            (vla-get-activedocument (vlax-get-acad-object))
         )
(print (list (vla-get-name X)
            (vla-get-fontfile X)
            (vla-get-bigfontfile X)
      )
)
)
(princ)
)
(defun C:TT ()
(while (setq DXF (tblnext "STYLE" (null DXF)))
(print (list (cdr (assoc 2 DXF))
(cdr (assoc 3 DXF))
(cdr (assoc 4 DXF))
)
)
)
(princ)
)1.　无法看到宋体
2.　无法取得中文的“隶书”，只能获得"SIMLI.TTF"

hd654 发表于 2023-3-16 02:31:35

学习了，解决了问题

页: [1]

明经CAD社区's Archiver

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