LISP. Вычисление суммы чисел (например, в экспликации) (Страница 2 из 3)

Да.... а я только пупочку хотел... Ну, спасибо...

Господа, прошу прощения, конечно точка вместо слеша http://geol-dh.ru/kai_stru.html
Извините, с ноября не было возможности смотреть форум.

> ivan
Если это повторяется постоянно в одном файле, при повторном выборе текстов, тогда пришлите мне файл(обрезанный, только глюкнутый текст).

Код от (2005-08-16 23:24:57) работает как часики,очень удобно. Спасибо огромное разработчику!

Программа работает классно! Но вот подскажите, пожалуйста, как можно сделать на панели размеров (например) кнопку, нажимая на которую будет запускаться данная функция?

Спасибо, с кнопкой разобрался! Вместо макроса пишу просто название функции. Но возникла другая проблема. При каждом новом запуске AutoCAD приходится заново подгружать файл с данной функцией. (я это делаю через меню Сервис -> AutoLISP -> Приложения...). Извините если вопрос глупый, но как автоматизировать процесс подгрузки таких вот дополнительных файлов функций? (на примере z-calc-text-value.lsp)

спасибо большое! Очень полезная информация!

Виноват, опечатка

(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

> Алексей
Сам-то понял чего спросил? На будущее: "просто цифр" в файле dwg нет. Есть одно- или многострочные тексты; атрибуты; блоки с атрибутами; величины размеров и т.п. Это раз. Два: один вопрос - одна тема.

Вадим (2007-11-08 11:43:36)
работает хорошо, но та же ошибка: съедаются нули в сумме. если сумма чисел равна 20, то ответ: 2
как исправить?

Здравствуйте, успешно пользуюсь лиспом выложенным Вадимом. Прошу модифицировать лисп, так, чтоб в конце сумма не выводилась в новом тексте, а вписывалась в существующий, по принципу оверрайт. Буду очень благодарен.

У меня имеются куча блоков электроприемников с заданным невидимым атрибутом "P" ( мощность  кВт). Было бы круто если бы можно было лиспом посчитать сумму всех "Р" на чертеже.