абракадабра вместо русского текста

Столкнулся с аналогичной проблемой - многострочные тексты, оформленные таймсом  оказались в кодировке Unicode. Левой задней сваял макрос, вроде помогло:
Public Sub RestMText()
  Dim varPnt, varCancel As Variant
  Dim P As Variant
Dim w, h As Double
Dim corner(0 To 2) As Double
Dim S As String
Dim MTextObj As AcadMText
Dim tc As AcadAcCmColor
  Dim a, a1, b As String
  Dim d As Long
  On Error Resume Next
  control = False
  'Do Until control = True
  a = ""
     ThisDrawing.Utility.GetEntity Entity, varPnt, vbCrLf & "Выберите текст:"
     If TypeOf Entity Is AcadMText Then
        Set oT = Entity
        ' Load UserForm1
         a = oT.TextString
         a1 = ""
     UserForm1.TextBox1.Text = a
     UserForm1.TextBox2.Text = ""
     For i% = 0 To Len(a)
          If i > 0 Then
             Select Case Mid(a, i, 4)
                 Case "\U+4"
                     d = Val("&H" + Mid(a, i + 3, 4)) - 15536
                     a1 = a1 + ChrW(d) + " "
                     i = i + 6
                 Case "\C0;"
                    a1 = a1 + "\fTimes New Roman|b0|i0|c204|p0;\C0;"
                    i = i + 3
                 Case "|c0|"
                    a1 = a1 + "|c204|"
                    i = i + 3
                 Case "U+00"
                     d = Val("&H" + Mid(a, i + 2, 4)) + 848
                     a1 = a1 + ChrW(d) + " "
                     i = i + 6
                 Case Else
                   a1 = a1 + Mid(a, i, 1)
            End Select
         ' Else
         '   a1 = a1 + Mid(a, i, 1)
         End If
        Next i
       ' UserForm1.TextBox2.Text = a1
      '  UserForm1.Show
        P = oT.InsertionPoint
w = oT.Width
h = oT.Height
' tc = oT.TrueColor
S = a1 'TextBox2.Text
Entity.Delete
corner(0) = P(0)
corner(1) = P(1)
corner(2) = P(2)
Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, w, S)
MTextObj.Height = h
     Else
       MsgBox "Объект не является многострочным текстом"
       control = True
     End If
' Loop
End Sub
Макрос, естественно, непричесанный, некогда было. Будет время - переделаю в АРХ.

Если что - могу выслать dvb файл с описанием как и чего делать. Правда, я не могу гарантировать, что шрифты у тебя поломались тем же образом, что и у меня. Если что - пиши на a_konovalenko@mail.ru, можешь прислать файлы с покорябанным текстом, я над ним поколдую. Правда, тоже без гарантии....

> Андрей
1) Сравни региональные установки Windows на обоих компьютерах.
2) Пользуйся для переноса чертежей командой AutoCAD _ETRANSMIT - она переносит и файлы шрифтов.

Когда я подвожу мышку к кнопкам панели интрументов,высвечиваются вместо их названия иероглифы.Как быть???