[求助]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)
-------------------------------------------------------------------
以上代码运行后在图中显示为：  ？？

Ea

suwei0072000

您好：
当前的画图区为默认字体，addtext的字体应如何解决呢？

                            请多指教谢谢！！