有关在VBA中输入中文的问题！！！！

wensent

在VBA中我输入中文后，在CAD中显示的是？？？（问号），请问该怎样在VBA中输入中文，使得自动生成的CAD图形中显示中文。

wmz

天哪!你没有进行字型字体设置吧?

wensent

怎样进行字体、字型的设置阿？？？？？？我看了帮助不明白阿！！！！！

wmz

用以下代码试试: Sub Textstyle()
Dim Txtstyle As AcadTextStyle
Dim Text As AcadText
Dim Txt(2) As Double
Set Txtstyle = ThisDrawing.TextStyles.Add("ºÚÌå")
ThisDrawing.ActiveTextStyle = Txtstyle
Txtstyle.fontFile = "c:\windows\fonts\simhei.ttf"
Txtstyle.Width = 1.2
Txt(0) = 0: Txt(1) = 0: Txt(2) = 0
'在 (0 0 0) 处写入"明经通道示例";高度为5,宽度比为1:1.2
Set Text = ThisDrawing.ModelSpace.AddText("Ã明经通道示例", Txt, 5)
End Sub

wmz

用以下代码试试: Sub Textstyle()
Dim Txtstyle As AcadTextStyle
Dim Text As AcadText
Dim Txt(2) As Double
Set Txtstyle = ThisDrawing.TextStyles.Add("黑体")
ThisDrawing.ActiveTextStyle = Txtstyle
Txtstyle.fontFile = "c:\windows\fonts\simhei.ttf"
Txtstyle.Width = 1.2
Txt(0) = 0: Txt(1) = 0: Txt(2) = 0
'在 (0 0 0) 处写入"明经通道示例";高度为5,宽度比为1:1.2
Set Text = ThisDrawing.ModelSpace.AddText("明经通道示例", Txt, 5)
End Sub 对不起!在发贴子时,汉字未能正常显示,再发一次

wensent

谢谢兄弟，搞定！！！！！！！