Программа для контроля количества использованных материалов

По роду работы приходится контролировать объем использованных при строительстве погонажных материалов (труба, кабель, провод, лоток, профиль, световая линия и т.п.). По результатам проверки прорисовываю то что установленно на чертеже акада. Раньше пользовался функцией подсчета длинн на определенном слое, но теперь появилось немного свободного времени и для еще большего упрощения задачи написал прогу. Для правильной ее работы необходимо каждый материал прорисовывать (линиями, полилиниями, элипсами и прочими примитивами для которых возможно измерение длины) на отдельном слое (называть их например ВВГ3х2.5, кабель 3х1.5 в ПВХ трубе, труба д100, лоток 400, газовая труба, лента и т.п). Ничего страшного если на том же слое будут располагаться примитивы, для которых невозможно измерение длины (например текстовые пояснения). Не располагайте в этом слое всякого рода выноски и т.п. поскольку их длина будет учитываться.

Затем ручками необходимо набить таблицу в том же чертеже где перечислить все материалы что подлежат контролю и создать текстовые строки, в которые будут помещаться длины этих материалов.

Следующий шаг - ассоциация строк со слоями, на которых будет производиться подсчет. для этого в консоли необходимо набрать ASSOCIATE. На запрос "Select text to be associated:" нужно указать мышью строку, предназначенную для хранения длины. На второй запрос "Select object(s) on destination layer(s):" нужно выбрать мышью один (или несколько) объектов на слое (или слоях) с которого(рых) будет считаться длина. Можно здесь указать несколько слоев (тогда и длина будет считаться с нескольких слоев). ПВХ труба например может быть прорисована на слое "ПВХтруба" и на слое "кабель в ПВХ трубе". Ограничение - суммарное количество символов в именах выбранных слоев должно быть в пределах 220 (т.к. больше 256 в тысячную группу не влезает а еще на кавычки и слэши надо место оставить). Можно сначала выбрать объекты на интересующих слоях, а потом по команде ASSOCIATE указать на текст.

Такую ассоциацию нужно произвести по каждой позиции в Вашей таблице. Проверить какие слои ассоциированы с конкретной строкой можно набрав в консоли STRINGTEST и на запрос "Select text to be checked:" кликнуть по строке которую необходимо проверить. В ответ получите ошибку (что означает что вы не попали мышью ни по одному примитиву), сообщение типа "The selected string is associated with layer(s) - кабель в трубе" если ассоциация задана, либо сообщение "Association not found" если ассоциация не задана. Если вы ошиблись со слоем при ассоциации, то необходимо сделать это заново с помощью той же команды ASSOCIATE.

После ассоциации ручная работа закончена. Теперь заданные вами слои связаны с заданными строками. Подсчет длинн и обновление значений происходит по команде TEXT_UPDATE

для вызова помощи наберите HELPME

Для работы программы она должна быть подгружена. Это можно сделать либо поместив ее в автозагрузку выбрав в меню tools->load application (там где портфель) либо поместив ее в папку Support и прописав в acad????.lsp или acad????doc.lsp (if (loadapp "VolumesControl.vlx") (princ "\nVolumesControl.vlx successfuly loaded"))

В архиве в дополнение к файлу *.vlx файл меню для тулбара и 3 картинки для кнопок.
Итак:
обновление строк по команде TEXT_UPDATE. Макрос для кнопки - ^C^CTEXT_UPDATE
проверка строки по команде STRINGTEST.Макрос для кнопки - ^C^CSTRINGTEST
Ассоциация по команде ASSOCIATE. Макрос для кнопки - ^C^CASSOCIATE
Помощь не ахти, но по команде HELPME

В процессе эксплуатации обнаружил что часто не хило бы иметь возможность не ассоциировать строки со слоями заново, а добавлять слой(и) к уже имеющейся ассоциации. В результате в новом архиве имеем:
- новую версию программы с 4-й командой - ADD_LAYER (макрос для кнопки - ^C^CADD_LAYER)
- новый файл меню
- доп. картинку для новой кнопки