[求助]：vb中汉字输入问题!

yfy2003

Dim Styleobj As AcadTextStyle             '汉字字体集合
        Set AcadDoc = acadApp.ActiveDocument
        Set MoSpace = AcadDoc.ModelSpace
        Set paSpace = AcadDoc.PaperSpace
        acadApp.Visible = acTrue
        Set Styleobj = AcadDoc.TextStyles.Add("黑体")
        Styleobj.fontFile = "c:\windows\fonts\simhei.ttf"
        Set Styleobj = AcadDoc.TextStyles.Add("仿宋")
        Styleobj.fontFile = "c:\windows\fonts\simfang.ttf"
        Set Styleobj = AcadDoc.TextStyles.Add("楷体")
        Styleobj.fontFile = "c:\windows\fonts\simkai.ttf"
有没有办法不要路径"c:\windows\fonts"，让VB自动找！在字库中没有这种字体怎么办？

efan2000

使用FontFile要知道字体的路径，因为它不在ACAD的搜索路径下。
可以使用SetFont来设置字体，名称就是文字样式中的字体名称。

yfy2003

ThisDrawing.ActiveTextStyle.GetFont typeface, _
textbold, textitalic, textcharset, textpfamily
MsgBox "当前字体为:" & typeface
typeface = "宋体"
ThisDrawing.ActiveTextStyle.SetFont typeface, _
textbold, textitalic, textcharset, textpfamily
ThisDrawing.Regen acActiveViewport

斑竹：是不是这样？