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

fzg_2000 · 发表于 2005-1-14 16:51:00

我用如下代码去处理
但出现的是乱码
如何解决，不胜感激
   Dim mtextObject As .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)