Сумма длин выделенных линий

Команда: LINESUM
Описание:Данный код позволяет получить сумму длин отрезков (LINE) и полилиний (LWPOLYLINE). Для этого сначала указываем объект для выбора слоя, далее выделяем объекты. Длины всех объектов LINE и LWPOLYLINE находящихся на указанном слое суммируются и информация о количестве линий и сумме их длин выводится на экан.

Внимание! Объекты прямоугольник и многоугольник являются объектами LWPOLYLINE, и идут в сумму как одна линия (периметр). Будьте внимательны.

PS Этот лисп я постоянно использую для подсчета длин проводов, гофры, труб и т.д.