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

suwei0072000 · 发表于 2003-5-24 18:58:00

您好：
请教一下，我想想图中插入中文，可用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)
-------------------------------------------------------------------
以上代码运行后在图中显示为：？？