[dpmoucpi]

Добрый день.
Появилась такая проблема:
Чертежи необходимо сдавать на английском языке. У заказчика установлена система которая проверяет чертежи (вплоть до толщины линии) и если на чертеже есть буквы на русском языке она их не принимает.
То-ли в силу своей не внимательности или по другой причине но проектировщики иногда вводят русские буквы вместо английских.
Кто может подсказать как бы так находить русские буквы на чертежах?

[hwd]

Сообщение от Дима_ Если заставлять юзера менять буквы текстовым редактором - то он что код, что xml может запороть - в обоих случаях программа функционировать перестает.

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

Сообщение от Дима_ Если делать "красиво" (с чего вы изначально и начали - гуишки с галочками и пр.), то надо и "редактор данных" писать - покажите мне хоть одну платную программу где внесение изменения настроек (штатно) подразумевает редактирование xml - я таких не знаю

Я разве предлагал анимированные контролы на 3D-интерфейсе? Не стоит путать "красиво" с "удобно" - это не одно и то же. Я писал об удобстве. Если набросать элементарный GUI - сложно для вас, это не означает, что это сложно для всех. На создание такого интерфейса, с распитием чая, уйдёт минут 30.
Какой к чёрту "редактор данных"??? Откройте букварь, почитайте про то, как работают с XML в dotnet.

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

Не вздумайте подобное на форумах программистов написать - сразу же будете преданы анафеме... Если ВЫ не знаете таких программ - это как раз-таки не показатель.

пробегитесь поиском по своему комьютеру по маске xml и еще не забываем что есть куча форматов "на основе" - много из них "вручную" правили

А теперь выполните такой же поиск, но с таким условием выборки: "*.config". Что, результат отличается? Не беритесь спорить/давать оценку тому, в чём не разбираетесь! XML - это формат, а не расширение файла. Файл, содержащий в себе данные xml-формата, может иметь любое расширение. Например файлы генератора отчётов StimulSoft имеют расширение mrt, хотя их содержимое - xml.

Знаю я что такое регексы

Очень сильно сомневаюсь в этом, в свете того, что вы пишете. Знания бывают разные. Прочитать в WikiPedia определение того, что такое регекс - это ещё не знание.

Есть еще много прекрасных решений с помощью которых "на ура" решаются задачи быстро и красиво, надо только уметь ими пользоватся, а не "замыкаться" на одной технологии.

Как всё запущено... Походу вы не знаете чем отличается платформа от технологии. Объяснять не буду.

p.s. разрастается она "до безобразия" не из-за гуишек и пр. - это стандартные элементы не отнимающие много времени - а из-за огромного количества мест которые нужно проверить - и далеко не всегда для корректной обработки достаточно "простой замены".

Это я даже комментировать не хочу. Ужос... Читайте буквари.

[Дима_]

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

[hwd]

Сообщение от Дима_ Я изначально хотел ответить на все Ваши посты - но "одумавшись" понял, что это будет пустое сотрясение воздуха. Вы уважаемый не умеете слушать (читать) и недочитав делаете выводы (хотя-бы внимательно прочитали тот текст который цитируете - и посмотрели свои выводы - связи в них нет), что собеседник ни в чем не разберается и ничего не умеет, а повторять (разжевывать) одно и то же по несколько раз, человеку которому толку от этого не будет я не немерен.

Сдаюсь

[Лиспер]

Offtop: Вы еще подеритесь, горячие финские парни.

[Дима_]

Сообщение от Лиспер Offtop: Вы еще подеритесь, горячие финские парни.

Offtop: Надо уточнять весовую категорию - у меня супертяжелая.

[hwd]

Сообщение от Дима_ Offtop: у меня супертяжелая.

Offtop: Это я уже понял

[alakk]

Русские буквы, как и все символы национальных шрифтов, располагаются в кодовой странице после 127 символа. Достаточно проверить порядковый номер символа, чтоб все стало ясно. Порядковый номер символа, к примеру, в FoxPro возвращает функция chr(). Нечто подобное есть и в VBA. Что касается встроенной в автокад версии VBA, то просто не знаком с ней. Покопайтесь сами
Достаточно организовать простенький цикл посимвольной проверки каждого слова текстового блока с выдачей результата куда-нибудь во внешний файл. Тут все элементарно

[Alan]

Сообщение от alakk Тут все элементарно

Если бы всё было так...

[alakk]

Чего ж тут сложного? Если возвращаемое значение меньше или равно 127, то английская скотинка пропустит символ. Если больше - ну, ты мужик меня понял, короче...

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

Сообщение от alakk Чего ж тут сложного? Если возвращаемое значение меньше или равно 127, то английская скотинка пропустит символ. Если больше - ну, ты мужик меня понял, короче...

Сразу возникают как минимум 3 вопроса/замечания:
1. В чем искать? В AutoCAD'е море различных примитивов, символьных таблиц и т.д. и т.п. в которых есть текстовые данные (впольть до имени)...
2. Что делать если код символа > 127? Удалять или заменять? Если заменять, то на что? И не возникнет ли повторения имен в символьных таблицах?
3. И с проверкой кода символа на > 127 не все просто. AutoCAD хранит информацию в UNICODE. Так что такая проверка не поможет. А есть еще строки вида "\U+XXXX" и "\M+YYYYY"
Всё это я уже проходил в DWGCONVERT и смею уверить, что тут далеко не всё так просто. Кстати, в приведенном чертеже есть еще и текстовые стили, содержащие в названии русские буквы...

[alakk]

Дружище. Если ты носишь гордое имя "Программист", то... не хочу тебя как-нибудь обидеть.
Я работаю в Архикаде и в ГДЛ, потому такие сложные VBA-материи мне не по плечу... Прошу прощения. Но алгоритм ясен, приступай!

[hwd]

Сообщение от alakk Дружище. Если ты носишь гордое имя "Программист", то... не хочу тебя как-нибудь обидеть. Я работаю в Архикаде и в ГДЛ, потому такие сложные VBA-материи мне не по плечу... Прошу прощения. Но алгоритм ясен, приступай!

Ты бы свои пальцы-то с пола поубрал... А то неровен час - оттопчут... Командир млин нашёлся....

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

Сообщение от alakk Дружище. Если ты носишь гордое имя "Программист", то... не хочу тебя как-нибудь обидеть.

Я лишь написал, что задача в общем случае не настолько тривиальная, как тебе кажется. Остальное не комментирую, ибо это ниже моего достоинства.

[dpmoucpi]

Сообщение от VVA Код: (defun C:R2E ( / *error* Doc) ;;;Rus To Eng (vl-load-com) (defun *error* (msg)(princ msg) (bg:layer-status-restore) (vla-endundomark Doc)(princ) ) (setq Doc (vla-get-activedocument (vlax-get-acad-object))) (bg:layer-status-save)(vla-startundomark Doc) (Translate-All-String-Objects Doc) (bg:layer-status-restore)(vla-endundomark Doc) (princ) ) (defun Translate-All-String-Objects (Doc / txtstr tmp txt count) (vlax-for Blk (vla-get-Blocks Doc) (if (= (vla-get-IsXref Blk) :vlax-false) (progn (setq count 0 txt (strcat "Changed " (vla-get-name Blk))) (grtext -1 txt) (vlax-for Obj Blk (setq count (1+ count)) (if (zerop(rem count 10))(grtext -1 (strcat txt " : " (itoa count)))) (if (and (vlax-write-enabled-p Obj) (vlax-property-available-p Obj 'TextString) ) ;_ end of and (progn (setq txtstr (if (vlax-method-applicable-p Obj 'FieldCode) (vla-FieldCode Obj) (vlax-get-property Obj 'TextString)) txtstr (trans-from-rus-to-translit txtstr) ) (vla-put-Textstring Obj txtstr) ) ) ;_ end of if ) ;_ end of vlax-for ) ) ;_ end of if ) ;_ end of vlax-for (vl-cmdf "_regenall") ) (defun trans-from-rus-to-translit ( str / translit)(vl-load-com) ;;; http://www.caduser.ru/cgi-bin/f1/board.cgi?t=28488Sx ;;; http://forum.dwg.ru/showthread.php?t=13063 ;;; Соответствие символов взято с translit.ru ;;; по мотивам http://www.caduser.ru/cgi-bin/f1/board.cgi?t=28488Sx ;;; name - исходная строка ;;; возвращается преобразованная (setq translit '(("А" "A")("Б" "B")("В" "V")("Г" "G")("Д" "D")("Е" "E")("Ё" "YO")("Ж" "ZH")("З" "Z") ("И" "I")("Й" "J")("К" "K")("Л" "L")("М" "M")("Н" "N")("О" "O")("П" "P")("Р" "R")("С" "S") ("Т" "T")("У" "U")("Ф" "F")("Х" "X")("Ц" "C")("Ч" "CH")("Ш" "SH")("Щ" "SHH")("Ъ" "#")("Ы" "Y") ("Ь" "'")("Э" "JE")("Ю" "JU")("Я" "JA")("а" "a")("б" "b")("в" "v")("г" "g")("д" "d")("е" "e") ("ё" "yo")("ж" "zh")("з" "z")("и" "i")("й" "j")("к" "k")("л" "l")("м" "m")("н" "n")("о" "o")("п" "p") ("р" "r")("с" "s")("т" "t")("у" "u")("ф" "f")("х" "x")("ц" "c")("ч" "ch")("ш" "sh")("щ" "shh")("ъ" "#")("ы" "y") ("ь" "'")("э" "je")("ю" "ju")("я" "ja"))) (apply 'strcat (mapcar '(lambda (x / sym) (if (setq sym (assoc x translit)) (cadr sym) x ) ;_ конец if ) ;_ конец lambda (mapcar 'chr (vl-string->list str)) ) ;_ конец mapcar ) ;_ конец apply ) (defun bg:layer-status-restore () (foreach item *PD_LAYER_LST* (if (not (vlax-erased-p (car item))) (vl-catch-all-apply '(lambda () (vla-put-lock (car item) (cdr (assoc "lock" (cdr item)))) (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item)))) ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of if ) ;_ end of foreach (setq *PD_LAYER_LST* nil) ) ;_ end of defun (defun bg:layer-status-save () (setq *PD_LAYER_LST* nil) (vlax-for item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (setq *PD_LAYER_LST* (cons (list item (cons "freeze" (vla-get-freeze item)) (cons "lock" (vla-get-lock item)) ) ;_ end of cons *PD_LAYER_LST* ) ;_ end of cons ) ;_ end of setq (vla-put-lock item :vlax-false) (if (= (vla-get-freeze item) :vlax-true) (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false)))) ) ;_ end of vlax-for ) ;_ end of defun __________________

Нормально заменяет, но не все символы почему то правильно, например такие символы как "," "є" и некоторые другие заменяет на "?". Это можно как то исправить?
Заранее спасибо.

[VVA]

Что за символ такой?

"є"

Лучше выложи файл с текстом

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

Сообщение от VVA Что за символ такой?

Украинская буква "е". Что в том чертеже она делает непонятно. Вместо нее напрашивается символ "°", т.к. она стоит в чертеже после символа "N".

[dpmoucpi]

Сообщение от Александр Ривилис Украинская буква "е". Что в том чертеже она делает непонятно. Вместо нее напрашивается символ "°", т.к. она стоит в чертеже после символа "N".

Да всё так но и символ "°", и знак деления, степень всё заменяется на "?".

[gomer]

Сообщение от dpmoucpi Нормально заменяет, но не все символы почему то правильно, например такие символы как "," "є" и некоторые другие заменяет на "?". Это можно как то исправить?

Проблема со шрифтом, установите подходящий и все будет правильно отображаться

[VVA]

Обнаружился один интересный глюк: Если в тексте есть UNICOD символы (например "\\U+00F7") то entget возвращает правильный результат, а Vla-get-Textstring - вопрос. Пришлось брать значение через entget
В Автокаде

Команда: (vla-get-TextString obj) "Utility sewage system. Sections 37-37 ? 51-51." Команда: (cdr(assoc 1 (entget(vlax-vla-object->ename obj)))) "Utility sewage system. Sections 37-37 ч 51-51."

В Visual Lisp редакторе

$ (vla-get-TextString obj) "Utility sewage system. Sections 37-37 ? 51-51." _$ (cdr(assoc 1 (entget(vlax-vla-object->ename obj)))) "Utility sewage system. Sections 37-37 \U+00F7 51-51." _$

2011-01-26 - Добавлена обработка символьных таблиц (Layer Block Dimstyle и т.д)
2011-02-07 - Исправлена ошибка из поста #81
2011-03-17 Добавлен purge и audit

Код:

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

 
(defun C:R2E ( / *error* Doc)
;;;Rus To Eng
(vl-load-com) 
(defun *error* (msg)(princ msg)
(bg:layer-status-restore)
(vla-endundomark Doc)(princ)
)
(setq Doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-auditinfo Doc :vlax-true)  
(repeat 3 (vla-purgeall  Doc))
(bg:layer-status-save)(vla-startundomark Doc)
(Translate-All-String-Objects Doc)
(bg:layer-status-restore)(vla-endundomark Doc)
(princ)
)

(defun Translate-All-String-Objects (Doc / txtstr tmp txt count)
  (foreach item '("LAYER" "LTYPE" "VIEW" "STYLE" "BLOCK" "UCS" "APPID" "DIMSTYLE" "VPORT")
    (foreach item1 (tablelist  item)
      (if (tblobjname item item1)
      (entmod
      (mapcar '(lambda(pair)
	     (cons (car pair)
		   (if (= (type (cdr pair)) 'STR)
		       (trans-from-rus-to-translit (cdr pair))
		      (cdr pair)
		     )
		   )
	     )
	  (entget(tblobjname item item1))
	  )
      )
        )
      )
    )
(vlax-for Blk	(vla-get-Blocks Doc)
(if (= (vla-get-IsXref Blk) :vlax-false)
(progn
(setq count 0 txt (strcat "Changed " (vla-get-name Blk)))
(grtext -1 txt)
(vlax-for	Obj Blk
(setq count (1+ count))
(if (zerop(rem count 10))(grtext -1 (strcat txt " : " (itoa count))))
(if (and (vlax-write-enabled-p Obj)
         (vlax-property-available-p Obj 'TextString)
) ;_ end of and
(progn
  (entmod
  (mapcar '(lambda(pair)
	     (cons (car pair)
		   (if (= (type (cdr pair)) 'STR)
		       (trans-from-rus-to-translit (cdr pair))
		      (cdr pair)
		     )
		   )
	     )
	  (entget (vlax-vla-object->ename Obj))
	  )
  )
)
) ;_ end of if
) ;_ end of vlax-for
)
) ;_ end of if
) ;_ end of vlax-for
(vl-cmdf "_regenall")
)
(defun trans-from-rus-to-translit ( str / translit)(vl-load-com) 
;;; http://www.caduser.ru/cgi-bin/f1/board.cgi?t=28488Sx
;;; http://forum.dwg.ru/showthread.php?t=13063
;;; Соответствие символов взято с translit.ru
;;; по мотивам http://www.caduser.ru/cgi-bin/f1/board.cgi?t=28488Sx
;;; name - исходная строка 
;;; возвращается преобразованная 
(setq translit 
'(("А" "A")("Б" "B")("В" "B")("Г" "G")("Д" "D")("Е" "E")("І" "I")("К" "K")("М" "M")("Н" "H")("О" "O")("Р" "P")("С" "C")("Т" "T")("Х" "X")("а" "a")("б" "b")("е" "e")("к" "k")("м" "m")("о" "o")("р" "p")("т" "t")("х" "x")("у" "y")("Э" "E")("с" "c"))) 

(apply 'strcat 
(mapcar '(lambda (x / sym) 
(if (setq sym (assoc x translit)) 
(cadr sym) 
x 
) ;_ конец if 
) ;_ конец lambda 
(mapcar 'chr (vl-string->list str)) 
) ;_ конец mapcar 
) ;_ конец apply
)
(defun tablelist (s / d r)
 (while (setq d (tblnext s (null d)))
   (setq r (cons (cdr (assoc 2 d)) r))
)
)
(defun bg:layer-status-restore ()
(foreach item *PD_LAYER_LST*
(if (not (vlax-erased-p (car item)))
(vl-catch-all-apply
'(lambda ()
(vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))
(vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item))))
) ;_ end of lambda
) ;_ end of vl-catch-all-apply
) ;_ end of if
) ;_ end of foreach
(setq *PD_LAYER_LST* nil)
) ;_ end of defun

(defun bg:layer-status-save ()
(setq *PD_LAYER_LST* nil)
(vlax-for item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(setq *PD_LAYER_LST* (cons (list item
(cons "freeze" (vla-get-freeze item))
(cons "lock" (vla-get-lock item))
) ;_ end of cons
*PD_LAYER_LST*
) ;_ end of cons
) ;_ end of setq
(vla-put-lock item :vlax-false)
(if (= (vla-get-freeze item) :vlax-true)
(vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false))))
) ;_ end of vlax-for
) ;_ end of defun

Еще одна версия в #84

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

Сообщение от VVA Если в тексте есть UNICOD символы (например "\\U+00F7") то entget возвращает правильный результат, а Vla-get-Textstring - вопрос

Это для однострочного текста или для многострочного тоже? Если и для многострочного, то тогда придется не только группу 1 читать, но и 3. Причем группа 3 может повторятся.