Нумерация точек полилиний

Сделал простую утилиту для нумерования точек полилиний и создания таблицы с координатами (по "геодезическому принципу", когда X и Y наоборот).

Для работы программы нужно два файла:
PolylinePointsCoordToTable.exe - сама программа
GeoPointNumb.dwg - динамический блок который используется для нумерации узлов

В программе нужно нажать "Пронумеровать вершины" и она попросит выбрать полилинию в текущем документе Автокада. Интуитивно всё должно быть понятно. Масштаб (который у меня по умолчанию 0.5) - отвечает за размер выводимой информации. После успешного завершения работы, программа расставляет специальные динамические блоки для обозначения вершин. Иногда бывает необходимо поправить положение цифрового обозначения. Нумерация начинается с первой точки полилинии (так как она построена)

Также в архиве найдете:
Пример.dwg - пример работы программы
delphi source.zip - исходники на Delphi

Что непонятно, спрашивайте.