[Red Nova]

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

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

[Profan]

Видишь - Щитать никто не хочет.
Если бы у тебя был не MText, а Text, то я бы предложил посмотреть сюда:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19574jg

[T-Yoke]

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

Блин, пора розги применять в школах. Народ совсем русского языка не знает. Может тогда начнёт считать, а не щитать

[Red Nova]

Да да, все верно , поправил. Я это, русский в школе не проходил. А как на счет по теме вопроса?

[Red Nova]

Profan По указанной ссылке есть и для мтекса вариант. Большое спасибо..
Код выглядит так

(defun c:z-calc-text-value (/ value ent obj ss) (vl-load-com) (princ "\nВыберите текстовые объекты среди которых будет произведененна калькуляция" ) ;_ princ (setq ss (ssget '((0 . "TEXT,MTEXT")))) (if (not ss) (princ "Не выбраны объекты") (progn (setq value (rtos (apply (function +) (mapcar (function (lambda (a) (atof (vl-string-trim "%Uu {\\Ll}" (vl-string-subst "." "," (cdr (assoc 1 (entget a))) ) ;_ vl-string-subst ) ;_ vl-string-trim ) ;_ atof ) ;_ lambda ) ;_ function (vl-remove-if (function listp) (mapcar (function cadr) (ssnamex ss) ) ;_ mapcar ) ;_ vl-remove-if ) ;_ mapcar ) ;_ apply ) ;_ rtos ) ;_ setq (if (vl-string-position (ascii ".") value) (setq value (vl-string-right-trim ".0" value)) ) ;_ if (setq value (vl-string-subst "," "." value)) (princ (strcat "\n Сумма = " value)) (alert (strcat "Сумма = " value "\nУкажите точку вставки ")) (setvar "ERRNO" 0) (if (and ent (vlax-property-available-p (setq obj (vlax-ename->vla-object ent)) 'TextString ) ;_ vlax-property-available-p ) ;_ and (progn (vlax-put-property obj 'TextString value) (vlax-release-object obj) ) ;_ progn ) ;_ if ) ;_ progn ) ;_ if (setq pt2 (getpoint)) (setq r (* (getvar "DIMSCALE") (getvar "DIMTXT"))) (command "_text" pt2 r 0 value) (princ) ) ;_ defun

[Клякса]

Попробуй следующий код:

Sub SummaMText()

Dim SelSetColl As AcadSelectionSets
Dim CirSet As AcadSelectionSet
Dim item As AcadMText
Dim Summa As Double

Set SelSetColl = ActiveDocument.SelectionSets
Set CirSet = SelSetColl.Add("Mt")
CirSet.Select acSelectionSetAll '

For Each item In CirSet
Summa = Summa + CDbl(item.TextString)
Next item

CirSet.Delete
Set CirSet = Nothing
Set SelSetColl = Nothing

MsgBox Summa ' выводит сумму в окне

End Sub



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

ЗЫ: Гы, пока я писал код, сам нашел :-)

[Red Nova]

А как на счет того, чтоб проводить более сложные вычисления, отмечая цифры мтекста. Скажем отнять, умножить, вознести в квадрат. Для этих целей наверное программка посложнее нужна, с интерфейсом похожим на калькулятор. Никто не знает такой для 2008-го?

[Клякса]

Теоретически можно все, и интерфейс в виде калькулятора и математические действия.
А чем тебя штатный калькулятор не устраивает?

[Red Nova]

штатный калькулятор не работает с цифрами из мтекста.

[Red Nova]

Лисп с поста 5 работает так. Выбираешь мтксты или тексты, enter выходит сообщение что сумма цифр равна ***. Далее указываешь точку где в последствии появляется мтекст с содержащейся искомой в нем суммой. Программа хорошая, но уж очень хочется чтоб в конце сумма не выводилась в новом мтексте, а записывалась в уже существующий мтекст по принципу оверрайт. Прошу помочь с переделкой лиспа.

[wetr]

Сообщение от Red Nova Лисп с поста 5 работает так. Выбираешь мтксты или тексты, enter выходит сообщение что сумма цифр равна ***. Далее указываешь точку где в последствии появляется мтекст с содержащейся искомой в нем суммой. Программа хорошая, но уж очень хочется чтоб в конце сумма не выводилась в новом мтексте, а записывалась в уже существующий мтекст по принципу оверрайт. Прошу помочь с переделкой лиспа.

В Веткаде есть подобная штука. Хочешь вставит новый объект, хочешь вставит ответ в существующий примитив. Может суммировать или суммировать с умножением. Одно НО - работает только с текстом.

[Red Nova]

У меня в файлах только мтекст

[Клякса]

С ЛИСПом не знаком, а на VBA попробовать можно.
Скинь небольшой файл, с которым можно работать. Укажи, какие МТЕксты складывать (или какие другие мат. вычисления), а в какой - вставлять результат... Может, там какие критерии есть для выделения или еще что... Без этого задача кажется совсем неопределенной...

[Клякса]

А штататный кальк вполне работает с цифрами из МТекста, если их туда скопипастить ;-)

[Red Nova]

В штатном калькуляторе цифры надо копировать поштучно, а используя лисп с поста 5 можно отметить разом нужные мтексты содержащиеся в которых цифры надо сложить, и результат выводится в новом мтексте, только мне удобнее чтоб результат вписывался в уже существующий мтекст.
>Критерий никаких при выделении нет, выделяешь нужные мтексты, те что рядом – рамкой, другие поштучно, enter, результат готов.
Попробуй попользоваться Лиспом с поста 5, думаю станет понятно.
А экспериментировать можешь с любым файлом где создано несколько мтекстов с содержащимися в них цифрами, скажем 2, 15, 56. Выделяешь их, складываешь, насколько я помню алгебру, результат равен 73, ну или возле того.

[a-alex]

Сообщение от Red Nova Лисп с поста 5 работает так. Выбираешь мтксты или тексты, enter выходит сообщение что сумма цифр равна ***. Далее указываешь точку где в последствии появляется мтекст с содержащейся искомой в нем суммой. Программа хорошая, но уж очень хочется чтоб в конце сумма не выводилась в новом мтексте, а записывалась в уже существующий мтекст по принципу оверрайт. Прошу помочь с переделкой лиспа.

Этот лисп есть по этой ссылке

Сообщение от Profan http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19574jg

Код:

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

(defun c:z-calc-text-value (/ value ent obj ss)
  (vl-load-com)
  (princ
    "\nВыберите текстовые объекты среди которых будет произведененна калькуляция"
    ) ;_ princ
  (setq ss (ssget '((0 . "TEXT,MTEXT"))))
  (if (not ss)
    (princ "Не выбраны объекты")
    (progn
      (setq
  value (rtos
    (apply
      (function +)
      (mapcar
        (function
          (lambda (a)
      (atof
        (vl-string-trim
          "%Uu {\\Ll}"
          (vl-string-subst
            "."
            ","
            (cdr (assoc 1 (entget a)))
            ) ;_ vl-string-subst
          ) ;_ vl-string-trim
        ) ;_ atof
      ) ;_ lambda
          ) ;_ function
        (vl-remove-if
          (function listp)
          (mapcar (function cadr)
            (ssnamex ss)
            ) ;_ mapcar
          ) ;_ vl-remove-if
        ) ;_ mapcar
      ) ;_ apply
    ) ;_ rtos
  ) ;_ setq
      (if (vl-string-position (ascii ".") value)
  (setq value (vl-string-right-trim ".0" value))
  ) ;_ if
      (princ (strcat "\n Сумма = " value))
      (alert (strcat "Сумма = " value))
      (setvar "ERRNO" 0)
      (while
  (and (not (setq  ent
       (car
         (nentsel
           (strcat
             "\n Выберите текстовый объект для записи значения <Выход>:"
             ) ;_ strcat
           ) ;_ entsel
         ) ;_ car
      ) ;_ setq
      ) ;_ not
       (equal (getvar "ERRNO") 7)
       ) ;_ and
   (setvar "ERRNO" 0)
   ) ;_ while
      (if (and ent
         (vlax-property-available-p
     (setq obj (vlax-ename->vla-object ent))
     'TextString
     ) ;_ vlax-property-available-p
         ) ;_ and
  (progn
    (vlax-put-property obj 'TextString value)
    (vlax-release-object obj)
    ) ;_ progn
  ) ;_ if
      ) ;_ progn
    ) ;_ if
  (princ)
  ) ;_ defun

[Red Nova]

Спасибо, там и вправду все так как мне надо. Надо мне быть повнимательней.

[a-alex]

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

Никто не видел лисп- тоже самое только с умножением.

[Кулик Алексей aka kpblc]

Ну замени

Код:

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

(apply
      (function +)

на

Код:

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

(apply
      (function *)

[a-alex]

Сообщение от Кулик Алексей aka kpblc Ну замени Код: [Выделить все] (apply (function +) на Код: [Выделить все] (apply (function *)

У меня были смутные догадки, но подумал что это слишком просто.
Спасибо Алексей!