关于如何处理在vb.net里汉字乱码问题

fzg_2000

我用如下代码去处理 但出现的是乱码 如何解决，不胜感激 Dim mtextObject As AutoCAD.AcadMText
Dim mtextString As String
Dim insertionPoint(2) As Double
Dim width As Double '定义文本的宽度，书写位置
width = 45
insertionPoint(0) = pointTop(0) - 116.0# : insertionPoint(1) = pointTop(1) + 7.0# : insertionPoint(2) = pointTop(2)
mtextString = "\U+2205 \U+2770" Dim Acadapp As AutoCAD.AcadApplication
On Error Resume Next
Acadapp = GetObject(, "AutoCAD.Application")
Acadapp.ActiveDocument.ActiveTextStyle.fontFile = "C:\WINDOWS\Fonts\simsun.ttf"
mtextObject = Acadapp.ActiveDocument.ModelSpace.AddMText(insertionPoint, width, mtextString)

雪山飞狐_lzh

你直接用汉字不行么？

fzg_2000

用单文本(AddText)直接输入汉字，显示正常


而用多本文(AddMText）则是乱码