[UnAtom]

Собственно вопрос из названия темы понятен. То есть на чертеже есть какие-то числа (2-3 числа) нужно перемножить их между собой. Думаю, кто-то скажет, что это можно сделать на калькуляторе, не говорите - сам понимаю. Для чего мне это нужно?..не спрашивайте, нужно и всё.
Может где-то такой вариант в просторах ДВГ и валяется или для специалиста это очень простая задача, но нашёл нечто похожее на форуме, только для суммирования чисел (очень полезная штука):

Код:

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

(defun c:sum ()
  (print
    "Выберите текстовые объекты среди которых
будет произведененна калькуляция"
  )
  (print
    (strcat
      "Сумма = "
      (rtos
  (apply
    (function +)
    (mapcar
      (function
        (lambda (a)
    (atof
      (vl-string-subst "." "," (cdr (assoc 1 (entget a)))))))
      (vl-remove-if
        (function listp)
        (mapcar (function cadr)
          (ssnamex (ssget '((0 . "TEXT,MTEXT")))))))))))
  (princ))

Нужно, то же самое, но только чтоб перемножало.

П.С. В программировании не разбираюсь. Посему, люди добрые, помогите Лиспом. Заранее благодарен.

[gomer]

Код:

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

(defun c:mult ()
(prompt
"Выберите текстовые объекты среди которых
будет произведененна калькуляция"
)
(princ
(strcat
"Произведение = "
(rtos
(apply
(function *)
(mapcar
(function
(lambda (a)
(atof
(vl-string-subst "." "," (cdr (assoc 1 (entget a)))))))
(vl-remove-if
(function listp)
(mapcar (function cadr)
(ssnamex (ssget '((0 . "TEXT,MTEXT")))))))))))
(princ))

[UnAtom]

gomer
Спасибо. Я и сам к этому только что пришёл. Это оказалось совсем просто...даже для меня. Ну всё равно спасибо, за участие.
Тему можно закрывать!