[Red Nova]

VVA написал программу для перевода терминов. Вот она. Суть вот в чем. Выбираем объекты, лисп находит во всех текстовых примитивах нужные термины, и заменяет их соответствующим переводом. Данные о словаре хранятся в том же lsp файле.

Код:

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

(defun transAR ( Kuda / nab lst table str from to)
;; Kuda - t русский - латинский
;; Kuda - nil латинский - русский
;;Таблица соответсвия
;;Соответсвия буквальное !!!!
;; Русская подстрока - латинская (а в твоем случае - армянская
   (setq table '(
               ("Двутавр" "Dvutabr")
               ("Швеллер" "Shveller")
               ("Дюбель-шпилька" "Dubel")
               ("Уголок" "Ugolok")
               ("Труба" "TRUBA")
               ("Болт" "BOLT")
               ("ГОСТ" "Gost")
               ("ГОСт" "Gost")
               )
       )
(if (setq nab (ssget "_:L" '((0 . "*TEXT"))))
  (foreach item (_dwgru-conv-pickset-to-list nab)
    (setq item (_dwgru-conv-ent-to-vla item))
    (setq str (vla-get-TextString item))
    (foreach rul table
      (if Kuda (setq from (car rul) to (cadr rul))
               (setq from (cadr rul) to (car rul))
        )
      (setq str (dwgru-string-replace str from to)))
    (vla-put-TextString item str)
    )
  )
  (princ)
  )
(defun C:EREVAN ()(transAR t))
(defun C:MOSKOW ()(transAR nil))

Проблема в том, что при переводе некоторые специальные символы СПДС на моем компьютере превращаются в вопросы, хотя у VVA работает коректно. В чем дело?

[Red Nova]

Вот кстати ролик работы лиспа. Видно как спец символы СПДС становятся вопросами.
Ролик

[VVA]

Что возвращает этот лисп

Код:

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

(vla-get-textstring (vlax-ename->vla-object(car(entsel "\nУкажи строку"))))

если ткуть в строчку с символами СПДС

[Red Nova]

Двутавр20 (Двутавр - естественно символ СПДС) возвращяет
"{\\Fcs_gost2304|c186;?}20"

[VVA]

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

[Red Nova]

Вот

[Рyslan]

а что ваш лисп переводит то? непонятно, буквы с кирилицы на латиницу? и кому это надо

[Red Nova]

Рyslan, Ну неужели не понятно что это просто пример. Туда можешь засунуть хоть казахские термины вместо латиницы.

[Рyslan]

Ладно не кипятись, уж и спросить нельзя

[gipro]

Рyslan, частенько нужно, когда работаешь с иностранными заказчиками. Примечания-то уж сам пишешь, а вот такие мелочи автоматом исправлять - очень удобно. Было бы еще удобней, если бы тексты не менялись, о писались на отдельном слое. Мы так делаем (правда вручную). Надо распечатать с русским текстом - пожалуйста, английским - переключил слои и печатай.

[VVA]

Короче дело в том, что для таких Мтекстов LISP и VLISP возвращают разные значения ???
Как говорится почувствуйте разницу

(cdr(assoc 1 (entget(car(entsel))))) Возвращает Труба {\\Fcs_gost2304|c186;\\H0.8333x;\U+E712\U+E720\U+E726\\Fcs_gost2304|c204; 85}" (vla-get-TextString (vlax-ename->vla-object(car(entsel)))) Возвращает "Труба {\\Fcs_gost2304|c186;\\H0.8333x;???\\Fcs_gost2304|c204; 85}"

Код:

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

(defun transAR ( Kuda / nab lst table str from to)
;; Kuda - t русский - латинский
;; Kuda - nil латинский - русский
;;Таблица соответсвия
;;Соответсвия буквальное !!!!
;; Русская подстрока - латинская (а в твоем случае - армянская
   (setq table '(
               ("Двутавр" "Dvutabr")
               ("Швеллер" "Shveller")
               ("Дюбель-шпилька" "Dubel")
               ("Уголок" "Ugolok")
               ("Труба" "TRUBA")
               ("Болт" "BOLT")
               ("ГОСТ" "Gost")
               ("ГОСт" "Gost")
               )
       )
(if (setq nab (ssget "_:L" '((0 . "*TEXT"))))
  (foreach item (_dwgru-conv-pickset-to-list nab)
    (setq str (cdr(assoc 1 (entget item))))
    (setq item (_dwgru-conv-ent-to-vla item))
    (foreach rul table
      (if Kuda (setq from (car rul) to (cadr rul))
               (setq from (cadr rul) to (car rul))
        )
      (setq str (dwgru-string-replace str from to)))
    (vla-put-TextString item str)
    )
  )
  (princ)
  )
(defun C:EREVAN ()(transAR t))
(defun C:MOSKOW ()(transAR nil))

[Red Nova]

VVA, Спасибо, работает