Показать сообщение отдельно
Непрочитано 14.09.2011, 14:21 #1
сумма площадей объектов
baaba
 
архитектор
 
Москва
Регистрация: 07.07.2007
Сообщений: 624

Код:
[Выделить все]
 
(defun c:calcar (/ aaset)
;|Программа суммирует площади выбранных примитивов.
Суммарная площадь выводится в единицах чертежа.
Для архитектурно-строительных измерений надо заменить
в коде программы (calcar aaset (1- (sslength aaset)))
на (/ (calcar aaset (1- (sslength aaset))) (expt 10 6))
Конечно это не отменяет комманду "Area" с опцией "Add" -)|;
(setq aaset (ssget))

(defun calcar (aaset num)
  (if (<= 0 num)
    (progn
      (command "_.area" "_ob" (ssname aaset num))
      (+ (getvar "area") (calcar aaset (1- num)))
    ) 0 )
)

(calcar aaset (1- (sslength aaset))) 
)

Последний раз редактировалось baaba, 14.09.2011 в 14:44.
Просмотров: 4884
 
Размещение рекламы