[Red Nova]

Я не пользуюсь таблицами AutoCADа, черчу ячейки, в них по мтексту. Вопрос как оперативно соcчитать сумму цифр их содержимого. Слышал есть такой калькулятор, по моему calcacad называется, но на 2008-й Cad не идет. Что делать?

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

[OHUKC]

ОГРОМНОЕ СПАСИБО

[CB]

> dextron3
Лисп по поводу #518. Работает и Mtext'ом
Первый текст может быть и в виде "L=234мм" - из него вытянется число и вставится во второй текст/mtext, который может быть тоже любого вида...

Код:

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

(defun C:TEST (/ rec-pat value obj lst-name)
  (defun rec-pat (str / rec-pat)
    (defun rec-pat (temp str pat n /)
      (cond
 ((= str "") (list temp))
 ((if (minusp n)
    (not (wcmatch (substr str 1 1) pat))
    (wcmatch (substr str 1 1) pat)
  ) ;_ end of if
  (if (/= temp "")
    (cons temp (rec-pat "" str pat (- n)))
    (rec-pat "" str pat (- n))
  ) ;_ end of if
 )
 (t
  (rec-pat (strcat temp (substr str 1 1))
    (substr str 2)
    pat
    n
  ) ;_ end of rec-pat
 )
      ) ;_ end of cond
    ) ;_ end of defun
    (rec-pat "" str "[1234567890.]" 1)
  ) ;_ end of defun
  (vl-load-com)
  (setq value
  (apply
    'strcat
    (apply
      '(lambda (a b)
  (mapcar
    '(lambda (str_b)
       (if
         (and
    (equal "" (vl-string-left-trim "0123456789." str_b))
    (not (equal (chr 46) str_b))
         ) ;_ end of and
;;;Снос форматирования с первого Mtext'а
   (apply
     'strcat
     (mapcar
       '(lambda (str_a)
          (if
     (and
       (equal
         ""
         (vl-string-left-trim "0123456789." str_a)
       ) ;_ end of equal
       (not (equal (chr 46) str_a))
     ) ;_ end of and
      str_a
      ""
          ) ;_ end of if
        ) ;_ end of lambda
       a
     ) ;_ end of mapcar
   ) ;_ end of apply
;;;-----------------------------
   str_b
       ) ;_ end of if
     ) ;_ end of lambda
    b
  ) ;_ end of mapcar
       ) ;_ end of lambda
      (mapcar
        '(lambda (a)
    (rec-pat (cdr (assoc 1 (entget a))))
  ) ;_ end of lambda
        (setq lst-name
        (mapcar
   '(lambda (x / obj)
      (princ (strcat "\n" x))
      (while
        (not
          (and
     (setq obj
     (car (entsel (princ (strcat "\r" x))))
     ) ;_ end of setq
     (vl-string-search
       "TEXT"
       (cdr (assoc 0 (entget obj)))
     ) ;_ end of vl-string-search
          ) ;_ end of and
        ) ;_ end of not
      ) ;_ end of while
      obj
    ) ;_ end of lambda
   (list
     "Выберите текст А :"
     "Выберите текст В :"
   ) ;_ end of list
        ) ;_ end of mapcar
        ) ;_ end of setq
      ) ;_ end of mapcar
    ) ;_ end of apply
  ) ;_ end of apply
  ) ;_ end of setq
  (if (vlax-write-enabled-p
 (setq obj (vlax-ename->vla-object (cadr lst-name)))
      ) ;_ end of vlax-write-enabled-p
    (progn
      (vlax-put-property obj 'TextString value)
      (vlax-release-object obj)
    ) ;_ progn
  ) ;_ if
  (princ)
) ;_ defun

[OHUKC]

а не подскажешь , какие строчки надо добавить , чтоб число вставлялось в текст вида "345,6 м.п.", заменяя тока число 345,6 а м.п.
оставляло ....?????....пост №495....

[dextron3]

CB, спасибище!
а можно сделать чтобы при выборе первой цыфры както лисп давал знать о выборе, к примеру выделял или рамкой, а то в командную строку пиходится смотреть выбрал или нет узнавать

[Red Nova]

VVA
Пытался добавить в код армянские термины, чтобы командой spec5d можно было рассчитать и их.
Со всем вроде получилось, а вот с фланцем не то. Армянские слова записываются к примеру так:
\U0547\U0580\U057b\U0561\U0576

Вот участок кода в который я пытаясь вклинить армянский термин

Код:

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

;;;======= СТАЛЬ ЛИСТОВАЯ ДЛЯ ФЛАНЦЕВЫХ ДЕТАЛЕЙ ?
    ((vl-position (car WHAT) '("ФЛ" "FL" "ФЛАНЕЦ")) ;_Сталь листовая
    (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
    (setq L (str-str-lst L "Х"))
                      ;;;Вес стали для фланцев определяем как Пи умножить на 0.5 диаметра в квадрате умножить на длину и на *STAL*
                      ;;;Диаметр - большее число, длина - меньнее
                     (setq L     (mapcar 'atof L))
                     (setq Diam  (apply 'max L) ;_ диаметр
                           sH (apply 'min L) ;_ длинна
                           )
    (setq *MPROF* (STRCAT "Лист " (dwgru-string-replace (rtos Sh 2 0) ".0" "")))
                      (setq ves_det_1 (* pi 0.25 Diam Diam sH *STAL*)
                            ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                            ves_det_all (* count ves_det_1))
                    )

Вот мой вариант, который почему-то не работает

Код:

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

;;;======= СТАЛЬ ЛИСТОВАЯ ДЛЯ ФЛАНЦЕВЫХ ДЕТАЛЕЙ ?
    ((vl-position (car WHAT) '("ФЛ" "FL" "ФЛАНЕЦ" "\U0547\U0580\U057b\U0561\U0576")) ;_Сталь листовая
    (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
    (setq L (str-str-lst L "Х"))
                      ;;;Вес стали для фланцев определяем как Пи умножить на 0.5 диаметра в квадрате умножить на длину и на *STAL*
                      ;;;Диаметр - большее число, длина - меньнее
                     (setq L     (mapcar 'atof L))
                     (setq Diam  (apply 'max L) ;_ диаметр
                           sH (apply 'min L) ;_ длинна
                           )
    (setq *MPROF* (STRCAT "Лист " (dwgru-string-replace (rtos Sh 2 0) ".0" "")))
                      (setq ves_det_1 (* pi 0.25 Diam Diam sH *STAL*)
                            ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                            ves_det_all (* count ves_det_1))
                    )

Как сделать это правильно?

[dextron3]

Red Nova, можешь показать как на армянском выглядят чертежи, а то кроме русского немецкого и английского не видел, можно скриншотами..

[Red Nova]

И казахские тоже не видел?

[dextron3]

Red Nova, тут вообще кроме цыфр ничего не понять, у Вас с лева на право пишут? поэтому наверное лисп не работает

у нас все на русском идет еще с советского союза...

[Red Nova]

dextron3, Это лист из старого проекта, без СПДС.
Пишут у нас конечно же с лево на право, и к работе лиспа это не имеет отношения.

VVA Я приблизительно чувствую почему у меня не выходит с кодом. В этой строчке ты записал все обозначения исключительно заглавными,

Код:

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

("ФЛ" "FL" "ФЛАНЕЦ")

но если в спецификации записать не ФЛАНЕЦ а Фланец, то программа это понимает. Это значит, что каким то образом происходит отождествление заглавных и прописных. Но если в лиспе записать

Код:

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

("ФЛ" "FL" "Фланец")

то лисп не понимает спецификаций с записями ФЛАНЕЦ или Фланец, то есть можно использовать только заглавные.
С армянским скорее всего лажа именно тут. Код не может отличить заглавные и прописные буквы армянского алфавита. Так что же делать?
Уточню также что с трубами и с профильными листами у меня все работает и на армянском. Проблема только с фланцем.

[VVA]

Перед сравнением все строки с помощью функции strcase приводятся к верхнему регистру. С русским и английским strcase работает корректно. Попробуй с армянским.

[nem]

доброго времени суток. почитал тему, все интересно, но немного не мое. не подсажите лисп для подсчета мультитекстов - т.е. сколько раз текст встречается на выбраном участке. желательно, чтобы можно было заранее задать те м-тексты, которые нужно подсчитать. результат подсчета хотелось бы в табличке, но тут уж не до капризов =)

например, на чертеже есть следующие м-тексты: к1, т1, хх12, хх14, %%С100.

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

прошу прощения если это уже есть, а я не нашел.

[Red Nova]

VVA, Сорри, не понял. Можно конкретнее, что я должен сделать?

[VVA]

Код:

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

(strcase "Фланец")

Вернет "ФЛАНЕЦ". А что вернет strcase если вмето "Фланец" будет армянская строка?
>nem
Диалоговая функция подсчёта вхождений текстовых символов в файле чертежа Оно?
PS Заходи по ссылке через IE

[nem]

VVA, хорошая вещь, но только для обычного текста, а м-текст не замечает...

[VVA]

nem,
1. Автор лиспа по ссылке #533
2. Еще вариант

[gomer]

http://dwg.ru/dnl/3716 - считает тексты, мтексты размеры (переопределенные)

[Red Nova]

VVA,
Беда в том, что армянские символы нужно записывать как

Код:

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

"\U0547\U0580\U057b\U0561\U0576"

Естественно если в ком строку ввести

Код:

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

Command: (strcase "\U0547\U0580\U057b\U0561\U0576")

то вернет

Код:

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

"UU0547UU0580UU057BUU0561UU0576"

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

Код:

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

Command: (strcase "\\U0547\\U0580\\U057b\\U0561\\U0576")
"\\U0547\\U0580\\U057B\\U0561\\U0576"

[nem]

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

[VVA]

Red Nova, Запусти этот лисп

Код:

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

(strcase(cdr(assoc 1 (entget(car(entsel "\nТкни в армянский текст"))))))

[Red Nova]

Вот скриншот.