Автоматическое суммирование рамеров

Привет! Есть ли возможность / макрос для автоматического суммирования длин размеров? Например, выделяю нужные размеры, и программа выдает их сумму.

 

Максим, попробуйте этот вариант.

 

Спасибо, нашел его, жаль, что под более старшие версии не работает.

 

может подойдет

Code:

(defun C:SUMDIM()
(apply '+ (mapcar (function (lambda (a) (cdr (assoc 42 (entget a)))))
((lambda (o)
   (vl-remove-if 'listp (mapcar 'cadr (ssnamex o)))
 ) ;_ end_lambda
  (ssget '((0 . "DIMENSION")))
)
) ;_ end_mapcar
	   )
  )

 

Alexandr-GR, как этим пользоваться?

 

для начала скопируй код в текстовый файл,
сохрани с расширением .lsp,
закинь файл в активное окно автокада
в командной строке набери SUMDIM

 

Спасибо, попробую.

 

Теперь акад 2010 вылетает при загрузке с этой прогой. Как отключить ее автоматическую загрузку?

 

В описании программы указано: для удаления библиотеки из автозагрузки - наберите команду unregCalcAcad. Разрядность при загрузке учли?