[const]

Добрый день. Проблема с мтекстом. На работе работал с файлом, добавил текстовое оформление. Работал в 2008 Ен. Открыл дома - на месте некоторых слов - кракозябры. Более того, встречается такая надпись " Ïëàí первого ýòàæà
ñ ñèñòåìîé отопления"
изменения character set эффекта не дала.
Поглядев на этот текст внимательнее заметил вот что
"Command: (entget(car(entsel)))

Select object: ((-1 . <Entity name: 7ed24a00>) (0 . "MTEXT") (5 . "12B698")
(102 . "{ACAD_XDICTIONARY") (360 . <Entity name: 7ed24a08>) (102 . "}") (330 .
<Entity name: 7ef9ec10>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"РАмка") (370 . 9) (100 . "AcDbMText") (10 404586.0 -64450.1 0.0) (40 . 400.0)
(41 . 5190.0) (46 . 0.0) (71 . 5) (72 . 5) (1 . "Èíä{\\fTimes New
Roman|b0|i0|c204|p18;и}âèäóàëüíûé æèëîé äî\U+00EC") (7 . "ARCH") (210 0.0 0.0
1.0) (11 1.0 0.0 0.0) (42 . 5189.33) (43 . 1191.25) (50 . 0.0) (73 . 1) (44 .
1.0))
" НЕ понял откуда в обычном тексте ACAD_XDICTIONARY, и почему добавляются юникодовские знаки? И что сделать чтобы подобных проблем не возникало? Стиль текста был на основе нью романа.

[Serghei]

Александр,
Спасибо большое за ответ. Я думал можно что-то сделать

[Александр Ривилис]

Сообщение от Serghei Александр, Спасибо большое за ответ. Я думал можно что-то сделать

Кстати, на андроид-смартфоне этот текст прекрасно переводит Google объектив:

[Serghei]

Сообщение от Александр Ривилис Кстати, на андроид-смартфоне этот текст прекрасно переводит Google объектив:

Мне его не нужно переводить. Мне нужно, чтобы при выделении через быстрые свойства содержимое не крякозабры показывало, а иероглифы. Я выдал часть из чертежа. В самом чертеже, штамп нормальный. Зеленый текст отображается хорошо, а красный нет.

[Serghei]

Кстати.
Точную кодировку определил - это GB2312

Интересно, имеется ли какая-то программа, которая конвертирует сразу в файле кодировку?
Так придется копировать текст на сайт и потом обратно копировать. Так выход, но долго

Скопированный кодированный текст, уже хорошо отображается

[Dinoxromniy]

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

Код:

[Выделить все]

Sub txt_code()
Dim ent As AcadEntity
Dim FilterType(3) As Integer
Dim FilterData(3) As Variant
Dim i As Integer


 FilterType(0) = -4
  FilterData(0) = "<or"
  FilterType(1) = 0
  FilterData(1) = "text"
  FilterType(2) = 0
  FilterData(2) = "mtext"

  FilterType(3) = -4
  FilterData(3) = "or>"
  For i = 0 To ThisDrawing.SelectionSets.count - 1
    If ThisDrawing.SelectionSets.Item(i).Name = "q3" Then
        ThisDrawing.SelectionSets.Item("q3").Delete
        Exit For
    End If
    
  Next i
  ThisDrawing.SelectionSets.Add("q3").SelectOnScreen FilterType, FilterData
  For Each ent In ThisDrawing.SelectionSets.Item("q3")
    ent.textString = ChangeTextCharset(ent.textString, "GB2312", "WINDOWS-1252")
  Next ent
 ThisDrawing.SelectionSets.Item("q3").Delete
End Sub
Function ChangeTextCharset(ByVal txt$, ByVal DestCharset$, _
                           Optional ByVal SourceCharset$) As String

    On Error Resume Next: Err.Clear
    With CreateObject("ADODB.Stream")
        .Type = 2: .mode = 3
        If Len(SourceCharset$) Then .Charset = SourceCharset$
        .Open
        .WriteText txt$
        .Position = 0
        .Charset = DestCharset$
        ChangeTextCharset = .ReadText
        .Close
    End With
End Function

[Serghei]

Dinoxromniy,
У меня выдает ошибку
Команда: (LOAD "C:/Users/GumSe/Desktop/txt_code.lsp") ; ошибка: неверная функция: 3

[Dinoxromniy]

Serghei, это VBA. В командной строке вбейте ._VBAIDE , откроется обычный VBA редактор как например в экселе. Двойным щелчком щелкните по иконке Thisdrawing, откроется белый лист - его содержимое. Вставьте туда код, установите курсор на любой исполняемой строке - например на "FilterType(0) = -4" и нажмите F5. В автокаде выберите нужный текст (лучше бы копии), затем нажмите правую клавишу мыши. Результатом может являться перекодировка выделенного текста (у меня отображается ????????, а в свойствах видно содержимое 给水排水设计说明).

[Dinoxromniy]

Serghei, я как то не подумал - у вас может быть не установлена поддержка VBA. Посмотрите результат перекодировки, может код ни о чем. Если есть смысл, тогда можно установить VBA.

[Serghei]

Dinoxromniy, если у меня верно отображается то на что указывает стрелка перекодировано, значит код верный, да?
Никогда не запускал такие коды в автокаде. Только лиспы.
Сейчас буду пробоввать.
Спасибо большое.

[Dinoxromniy]

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

[Serghei]

Dinoxromniy,
Премного, премного благодарю!
Вы меня выручили. Ваш код работает.
Теперь отображается как нужно. Да, я выборочно буду брать. У меня не весь текст нужно декодировать.

Впервые кстати, запускаю код vba в автокаде.

Спасибо!

[Stierlitz]

можно в гугл-переводчик скопировать, но то что он переводит надо читать с определенным воображением

[Serghei]

Честное слово, какие-то бестолковые чертежи, одно мучение.
Встречается и такой текст (см. скриншот 1)
Преобразую в МТЕКСТ (см. скриншот 2), какое-то странное наложение.
Потом в МТЕСКТ сбрасываю форматирование и потом уже копирую декодированный текст. (Скриншот 3)
Ужас

[max_g]

Добрый день

Имеется файл с крякозябрами.
пытался воспользоватся рекомендациями на форуме, но автокад 2024 не подтягивает ARX по инструкции из архива DWGConvert

может у кого есть возможность перекодировать?

заранее благодарен

[Boroda888]

День добрый!
Чего то не нашел кракозябров ((
Может просто шрифта нет?

[max_g]

Добрый день

у меня есть к сожалению, и в Вашем файле тоже

может и нет шрифта но какого?

[Кулик Алексей aka kpblc]

Сообщение от max_g может и нет шрифта но какого?

ACAD в ком.строке пишет, какие шрифты на какие заменяет.

[max_g]

Сообщение от Кулик Алексей aka kpblc ACAD в ком.строке пишет, какие шрифты на какие заменяет.

благодарю. проблема решена добавлением шрифта [RUSSIAN_1251]