LISP для определения высотной отметки.

Всех приветствую!
Данный скрипт предназначен для автоматического вычисления и заполнения высотных отметок в атрибутах блоков на чертеже AutoCAD на основе их положения по оси Y относительно заданного "нулевого" блока.
В архиве также уже присутствует блок высотной отметки с настроенным атрибутом.

Описание работы:
Скрипт запрашивает выбор блока с отметкой 0.00 — это устанавливает "проектный нуль".
Из выбранного блока извлекается значение его атрибута "ОТМ" (если атрибут не найден — скрипт использует единственный доступный атрибут блока).
Далее пользователь выбирает другие блоки, для которых требуется рассчитать отметки.
Скрипт вычисляет разницу координат по оси Y между каждым выбранным блоком и нулевым блоком (расчетная точка это base point блока).

На основе этой разницы определяются новые значения высотных отметок:
Если блок выше нуля — значение записывается без знака + (например, 3.70),
Если блок ниже нуля — значение записывается со знаком - (например, -1.25).
Все значения округляются до двух знаков после запятой и записываются в атрибут ОТМ соответствующего блока.

Особенности:

Скрипт работает с любыми блоками, содержащими атрибут ОТМ.
При отсутствии атрибута ОТМ — обновляется существующий единственный атрибут блока.
Все вычисления производятся автоматически без необходимости ручного ввода.
Результат можно сразу визуально проверить на чертеже.