[Dmitriy_2005]

Прислали файл с такой бякой:
[ATTACH]1116040109.gif[/ATTACH]

[Dmitriy_2005]

Открываю текст, выдает вот это:
[ATTACH]1116040165.gif[/ATTACH]

[Dmitriy_2005]

Что посоветуете?

[Pilot]

А что нужно-то?
Нет вопроса - нет совета 8)

[Dmitriy_2005]

Необходимо получить текст на русском. Каким образом?

[Pilot]

Попробовать сменить стиль и/или шрифт.
Но проще (ИМХО) написать заново.

[Dmitriy_2005]

>Попробовать сменить стиль и/или шрифт.
Не получается.

>Но проще (ИМХО) написать заново.
Файл мне прислали, что набивать не знаю, перевод может не совпасть.

Могу выслать на e-mail, посмотрите?

[Эдуард]

Была у меня такая ерунда.
Нужно снять флажок use bigfont со всех текстовых стилей.

[Dmitriy_2005]

Сообщение от Эдуард Была у меня такая ерунда. Нужно снять флажок use bigfont со всех текстовых стилей.

Не помогло, все символы заменились на вопросительные знаки и изредка знаки евро.

[Эдуард]

Кинь файл на мыл smoled#yandex.ru гляну

[sash-ka]

Сообщение от Dmitriy_2005 Прислали файл с такой бякой: [ATTACH]1116040109.gif[/ATTACH]

Смотри стиль текста, у тебя задействован помимо основного шрифта еще и большой шрифт bigfont с иероглифами.
Ищи такой шрифт.

[Dmitriy_2005]

Сообщение от Эдуард Кинь файл на мыл smoled#yandex.ru гляну

Выслал.

[Эдуард]

Получил еще вчера. Но

Необходимо получить текст на русском. Каким образом?

А Вы уверены , что эти надписи на русском языке?
Похоже нужно браться за русско-китайский словарь.

[Dmitriy_2005]

Сообщение от Эдуард Получил еще вчера. Но А Вы уверены , что эти надписи на русском языке?

Да, на русском.
Думаю, что не победить эту гадость, придется ручками набивать.
Всем спасибо за участие.

[VVA]

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

[VetalBY]

Скинь на vetalby#mail.ru еще я попробую глянуть

[Pilot]

Сообщение от Dmitriy_2005 Думаю, что не победить эту гадость, придется ручками набивать.

Не понял: Так вы собирались полуавтоматом с китайского на русский перевести, всего лищь заменив шрифт или стиль? :shock:
Думаю - все-таки прибется ручками.

[Эдуард]

Действительно русские.
Опытным путем установил , что коды большей части символов
смещены на 96.
Первая прикидка

Код:

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

(defun ziably ()
  (setq	zabl (vla-get-textstring
	       (setq txt (vlax-ename->vla-object (car (entsel))))
	     ) ;_  end of_vla-get-textstring
	zabl (mapcar '(lambda (x)
			(+ x 96)
		      ) ;_  end of_lambda
		     (vl-string->list zabl)

	     ) ;_  end of_mapcar
  ) ;_  end of_setq
  (vla-put-textstring
    txt
    (vl-list->string zabl)
  ) ;_  end of_vla-put-textstring

) ;_  end of_defun

[Эдуард]

Отредактировал в окончательный вариант

Код:

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

(defun ziably (/ zabl txt)
  (while
    (and
      (setq zabl (car (entsel "\nSelect text:")))
      (wcmatch (cdr (assoc 0 (entget zabl))) "*TEXT")

    ) ;_  end of_and

     (setq zabl	(vlax-ename->vla-object zabl)
	   txt	(vla-get-TextString zabl)
	   txt	(mapcar	'(lambda (x)
			   (if
			     (not
			       (or
				 (< x 126)
				 (>= x 220)
			       ) ;_  end of_or
			     ) ;_  end of_not
			      (+ x 96)
			      x
			   ) ;_  end of_if

			 ) ;_  end of_lambda
			(vl-string->list txt)

		) ;_  end of_mapcar
     ) ;_  end of_setq
     (vla-put-textstring
       zabl
       (vl-list->string txt)
     ) ;_  end of_vla-put-textstring
  ) ;_  end of_while
) ;_  end of_defun