[MrBrown]

Здравствуйте!
В приложенном файле - массив точек (Z=0).
Требуется перебором закрасить каждую точку в нужный цвет в соответствии с расстоянием до ближайшей другой точки.
Если расстояние менее 500 - коричневый цвет,
501-600 - красный,
601-700 - оранжевый,
701-800 - жёлтый,
801 и более - зелёный.
Строки кода AutoLISP прошу закомментировать (программистом не стану, но хоть что-то для себя почерпну).

Для связи: 9629175688@mail.ru

[MrBrown]

Есть рабочий макрос! Моя благодарность StupidDuck, оказавшему услугу.
Выкладываю для общего пользования, может, кому-то понадобится весь макрос или его функциональные части.