[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, и почему добавляются юникодовские знаки? И что сделать чтобы подобных проблем не возникало? Стиль текста был на основе нью романа.

[A_S]

Сообщение от nik_mb Судя по количеству повторяющихся символов кодировка, возможно, какая нибудь 16 или 32 битная (хотя врядли - слишком мало символов в слове). Нелегкий случай. Сдается мне, что кодировка сербская или македонская (они могут писать киррилицей).

Ты скорее всего прав. Заказчик - архитектор из Сербии. Можно ли где-нибудь скачать эту сербскую кодировку?

[nik_mb]

Сообщение от Profan А названия слоев видели?

Но названия слоев в другой кодировке и легко конвертируется. Например один слой "ьхЄрышў. яЁюЇшыш" - "металич. профили"

[sagava]

Через региональные и языковые настройки, найти все требуемые кодировки и поставить галочки, но нужен диск Windows.

[A_S]

Сообщение от sagava Через региональные и языковые настройки, найти все требуемые кодировки и поставить галочки, но нужен диск Windows.

Добавила языки, но чертеж открывается в том же виде.

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

Похоже чертеж был уже испорчен после того, как его тебе передали. Еще нужно знать какая у него была установлена кодовая страница.

[nik_mb]

Думаю, что помочь вам очень не просто. Так например есть кодировка YUSCII — неофициальное название для 7-битной кодировки JUS I.B1.002, использовавшейся в Югославии. Она представляет собой национальный вариант стандарта ISO 646.
Короче, нужен фонт (Arial) с компутера на котором было выполнено это задание.

[vkolt]

Есть автокадовский фаил со спецификацией ОВ. На первой странице в части надмисей есть ероглифы, в части всё нормально. Шрифт использован стандартный, DWGconvert результата не дал. Может кто поможет, ато руки опускаются.

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

Сообщение от vkolt Есть автокадовский фаил со спецификацией ОВ. На первой странице в части надмисей есть ероглифы, в части всё нормально. Шрифт использован стандартный, DWGconvert результата не дал. Может кто поможет, ато руки опускаются.

DWGConvertStr помогает. Направление перекодировки Unicode Latin1->Windows Впрочем, там в одном тексте и нормальный и абракадабра, так что нужно немного поработать головой.

[vkolt]

Странно, у меня не помогает. Одни иероглифы на другие меняет.

[Servini]

Добрый день.

Есть dxf-файл, созданный нашими партнерами в Японии. Нам его прислали по почте. На одном компьютере с 2005-м автокадом этот файл открывается, английский текст читается, при этом когда пытаешься редактировать текст, содержимое отображается в виде крякозябров, но после завершения редактирования текст отображается нормально везде, кроме поля Contents в свойствах текста. Скриншот во вложении - файл 2005.jpg. При изменении файла шрифта в стилях текста на этом компьютере, шрифт меняется, английский текст читается. При снятии галочки "Использовать большой шрифт" - текст превращается в крякозябры.

На другом компьютере, где установлен автокад 2007 русская версия, этот файл сразу открывается с крякозябрами, и ни один из предложенных способов, включая DWGConvert, не помогает. Скриншот во вложении, файл 2007rus.jpg.

Сам проблемный файл со шрифтами с того компьютера, где текст читается, тоже во вложении.

Подскажите, как можно прочитать текст на компьютере с автокадом 2007?

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

Этот dxf-файл уже редактировали. Выложи оригинальный dxf-файл.

[Servini]

Да, я убрал конфиденциальную информацию. Однако, после этого я проверил отредактированный файл на обоих компьютерах, ситуация один в один с тем, что я описал.
Если же без оригинального файла никак, то я хотел бы попросить разрешения прислать его Вам на почту. Выкладывать его в форуме всё-таки не хотелось бы.

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

Сообщение от Servini Да, я убрал конфиденциальную информацию. Однако, после этого я проверил отредактированный файл на обоих компьютерах, ситуация один в один с тем, что я описал. Если же без оригинального файла никак, то я хотел бы попросить разрешения прислать его Вам на почту. Выкладывать его в форуме всё-таки не хотелось бы.

Дело не в том, что ситуация у
тебя такая же, а в том, что DWGCODEPAGE в этом файле некорректная. Прислать можешь, но не уверен, что смогу помочь.

[Servini]

Блин, какая жалость. (( Куда слать?
Хе-хе. Как оказалось, DWGCODEPAGE в оригинальном файле вообще не указана! Ж8()
В исправленном есть, а в оригинальном - нет!
Отправил.
Уточню ещё раз, текст там - английский.

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

Могу предложить решение (у самого нет времени программировать). Идея в следующем. Каждый английский символ в строке состоит из двух. Первый - имеет десятичный код 130, второй на 31 больше чем код английского символа. Поэтому алгоритм должен быть такой:
1) Убрать все символы с кодом 130 (chr 130)
2) Заменить остальные символы x на x-31 (chr (- x 31))

Код:

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

(defun C:EN ( / s s1 e flag_dub)
  (setq s (cdr (assoc 1 (setq e (entget (car (entsel)))))))
  (setq s (vl-string->list s) s1 "") 
  (foreach x s
    (cond
      ((and (> x 128) (< x 158)) (setq flag_dub t))
      (flag_dub (setq s1 (strcat s1 (chr (- x 31))) flag_dub nil))
      (t        (setq s1 (strcat s1 (chr x))))
    )
  )
  (entmod (subst (cons 1 s1) (assoc 1 e) e))
  (princ)
)

Пусть простят меня поклонники лиспа за не эстетичный код.

[Servini]

Спасибо, буду пробовать и изучать.
Попробовал код. Работает, спасибо, только пробелы тоже конвертирует, а этого делать не надо.
Мда. Язык совсем новый.
Если кто опытный найдет время - буду рад.

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

Поправил немного код.

Код:

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

(defun C:EN_TEXT ( / ss)
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss  (foreach x (vl-remove-if (function listp)  (mapcar
       (function cadr)
       (ssnamex ss))) 
    (jpn_enc x))
  ) ;_  if
  (princ)
)

(defun jpn_enc (en / s s1 e flag_dub)
  (setq s (cdr (assoc 1 (setq e (entget en)))))
  (setq s (vl-string->list s) s1 "") 
  (foreach x s
    (cond
      ((and (> x 128) (< x 158)) (setq flag_dub t))
      (flag_dub (setq s1 (strcat s1 (chr (- x 31))) flag_dub nil))
      (t        (setq s1 (strcat s1 (chr x))))
    )
  )
  (entmod (subst (cons 1 s1) (assoc 1 e) e))
)

[Servini]

Супер! Практичекси идеально!
Теперь неправильно преобразовывает символы & и строчные буквы.
(мне стыдно)
Думаю, дальше я попробую сам, чтоб вас не затруднять. Образец кода есть, книжки найду.
Спасибо, Александр!

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

Для строчных нужно вычитать 32 (впрочем не уверен что это всегда справедливо).

[Servini]

Ну, в общем, добавил пару исключений, но кардинально ничего менять не стал - 90% символов, с учетом этих исключений, переводятся правильно.
Что делать со строчными буквами (не с точки зрения программирования, а с точки зрения логики, сам язык оказался не таким уж сложным, при наличии отладчика, примера и документации разобраться можно) так и не понял, поэтому пока оставил.
Вот окончательный вариант, мож кому и поможет:

Код:

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

(defun C:ENT ( / ss s s1 e FLAG_DUB)
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss  (foreach x (vl-remove-if (function listp)  (mapcar
       (function cadr)
       (ssnamex ss))) 
    (jpn_enc x))
  ) ;_  if
  (princ)
)
(defun jpn_enc (en / s s1 e flag_dub)
  (setq s (cdr (assoc 1 (setq e (entget en)))))
  (setq s (vl-string->list s) s1 "") 
  (foreach x s
    (cond
      ((and (> x 124) (< x 144)) (setq flag_dub t))
      ((and (> x 146) (< x 154)) (setq s1 (strcat s1 (chr (- x 113))) flag_dub nil))
      ((= x 47) (setq s1 (strcat s1 (chr x )) flag_dub nil))
      ((= x 124) (setq s1 (strcat s1 (chr (- x 79))) flag_dub nil))
      (flag_dub (setq s1 (strcat s1 (chr (- x 31))) flag_dub nil))
      (t        (setq s1 (strcat s1 (chr x))))
    )
  )
  (entmod (subst (cons 1 s1) (assoc 1 e) e))
)

Отдельное спасибо Александру за науку.