[VBA程序]：vb 设置字体

wgs1991

vb 在cad 中用addtext方法加入的汉字，一开始都是一些问号，需要设置字体以后才能正确显示，用什么方法可以一开始就正确显示汉字

yunzhong80

你addtext方法加入的汉字后，你还得设置文字的StyleName属性，StyleName 默认值为当前文字式样。
Dim txt As AcadText
        txt = acadApp.ActiveDocument.ModelSpace.AddText("文字", PT, 2)
        txt.StyleName = "宋体"

wgs1991

还是不行，我的程序如下
dim cadt as  acadtext
dim acaddoc as AcadDocument
Private Sub Command5_Click()
Set acadDoc = acadApp.ActiveDocument
pt1(0) = 2: pt1(1) = 17: pt1(2) = 0
Set acadtext = acadDoc.ModelSpace.AddText("地", pt1, 3.2)
acadtext.StyleName = "楷体"
End Sub
在Autocad2004里面显示还是 " ？" 。