[求助]addtext不能输入中文的问题

suwei0072000

您好：
请教一下，我想想图中插入中文，可用addtext方法插中文时，显示都为？？
-------------------------------------------------------------------
Dim height As Double
Dim txt As AcadText
Dim string As String
string="中文"
height = 4
point(为已知点)
Set txt = ThisDrawing.ModelSpace.AddText(string, point, height)
-------------------------------------------------------------------
以上代码运行后在图中显示为：  ？？

efan2000

suwei0072000

请问：
如何用vba代码的方式把当前的文字样式改为addtext支持的
                                  谢谢！！

efan2000

ThisDrawing.ActiveTextStyle.SetFont "仿宋_GB2312", False, False, 1, 0。这是设置当前文字样式中的字体为仿宋体的。Typeface就是在文字样式对话框中的名称。
注意这种方式只能设置TrueType字体，对于大字体要用其它方法。