suwei0072000 发表于 2003-5-23 22:30:00

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

您好：
请教一下，我想想图中插入中文，可用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 发表于 2003-5-24 01:18:00

和当前字体样式有关。

suwei0072000 发表于 2003-5-24 10:45:00

请问有没有解决办法？

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

                            请多指教谢谢！！
页: [1]
查看完整版本: [求助]addtext不能输入中文的问题