[Малявка]

Здравствуйте!
Пользуюсь макросом, суммирующим числа, уже пару лет. Замечательный! Спасибо мастерам от ЛИСПа, ведь это они написали мне макрос на этом форуме.

Код:

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

(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))

Сейчас есть необходимость изменить вычисления, помогите пожалуйста!
Нужно, набрав команду в ком.строке и получив приглашение выбрать числа, выбрать четыре числа и нажать ВВОД. А макрос должен не только суммировать эти четыре числа, но затем поделить сумму на четыре и умножить частное от деления на сто. Результат выдать в ком.строке.
Пыталась сама корячиться, да не выходит. Что взять с блондинки от автокада?
Мне такая фенька нужна для оформления картограммы земляных масс. Да, да, всё еще делаем "ручками", без привлечения Геониксов и Сивилов, увы.
Помогите пожалуйста.
Спасибо.
p.s. А лучше того, сделайте так, чтобы макрос делил сумму на количество выделенных чисел. Пригодится для вычислений среднего значения не только четырех чисел, а любого количества

[Profan]

Ну, вот, например:

Код:

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

 
;******* SUM_N.LSP **********
; Сумма числовых значений и вычисление среднего.
; В.В. Громов.
(defun C:SUM_N ( / echo ss1 ss ssn1 pp pp1 n ssn e et text sum summ summa sred)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq ss1 (ssget)) 
(setq ss (ssadd)) ;Набор СОЗДАН (пустой пока)
(setq ssn1 (sslength ss1) n 0) ;Количество примитивов
(repeat ssn1
(setq pp (ssname ss1 n)) ;Имена примитивов
(setq pp1 (entget pp)) ;Данные примитива с именем pp
(cond
((= (cdr (assoc '0 pp1)) "TEXT") (ssadd pp ss) ;Набор ТЕКСТОВ
))
(setq n (+ n 1))
)
(if ss (progn
(setq ssn (sslength ss) n 0)
(repeat ssn
(setq e (ssname ss n))
(setq et (entget e))
(setq text (cdr (assoc '1 et)))
(setq text (vl-string-trim "%U" text))
(princ "\n Число ")(princ n)(princ ": ")(princ text)
(setq sum (cons (atof text) sum))
(setq n (+ n 1))
)
))
(princ "\n Количество объектов: ") (princ ssn)
(setq summ (apply '+ sum))
(setq summa (strcat " Сумма чисел = " (rtos summ)))
(princ summa)
(setq sred (/ summ ssn))
(princ "\n Среднее значение = ") (princ sred)
(setq sred (* sred 100))
(princ "\n Среднее значение, умноженное на 100 = ") (princ sred)
(setvar "CMDECHO" echo)
(princ)
)

[Малявка]

Огромное спасибо! Оно самое!
А если коснуться предложенного мной макроса, нельзя ли изменить одну строчку в нем (там, где знак суммы), чтобы вместо знака суммы вставить все действия? (Я так пыталась изменить макрос).

[CB]

Код:

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

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

[Малявка]

Спасибо!