[Манасыпов Р.Ф.]

Доброго времени суток!

Прочитал многие темы по экспорту координатов точек, но задачка у меня несколько другая. Её решение жизненоважно для меня...))))))
Суть проста, на листе имеются 300-400 окружностей с различными координатами и радиусами. Хотелось бы присвоить номер каждой окружности перекинуть в txt: номер окружности, X, Y и радиус. То есть четыре столбца. Как эту задачку можно решить?
Я не особо разбираюсь в програмировании, но темы посвящённые базовым понятиям прочитал.
Буду благодарен любой помощи. Заранее спасибо!

[VVA]

Сообщение от Манасыпов Р.Ф. но вот только если радиусы одинаковые первей записывается тот у которого Y меньше

Обновил #19

[Манасыпов Р.Ф.]

Сообщение от VVA Обновил #19

что-то не так, пишет:
ошибка: неверно сформированный список на входе


то есть нужна сортировка при одинаковом Х со следующим приоритетом:
1. начиная с большнго радиуса;
2. при условии равнства радиуса, начинать записывать с окружности с меньшим Y.

вся сортировка начинается от меньшего X к большему

И ещё чтобы на чертеже он окружности нумеровал.

Огромное спасибо всем за помошь!

[VVA]

Исправил #19

[Манасыпов Р.Ф.]

Сообщение от VVA Исправил #19

что-то нить утеряна.....
выдал файлы на первом месте просто окружности с большим диаметром....

извините меня пожалуйста, я видимо очень плохо объясняю......
в общем приоритет такой:
1. координата Х, то есть пока по всем Y при одном и том же Х не будут определены и выписаны все окружности к следующему значению X не приступать;
2. если при одном и том же значении Х, несколько окружностей с разными радиусами, записывается первый тот у которого радиус больше;
3. если при одном и том же значении Х, несколько окружностей с одинаковым радиусом, то приоритет у окружности с меньшим Y.
Как только отсканировал все Y, при одном и том же Х, приступает к следующему значени Х по возрастанию.

то есть по сути, в выводных файлах, с одним и тем же значением по Х, на последнем месте должна быть окружность с наименьшим радиусом и наибольшей координатой Y, а на первом - с наибольшим радиусом и наименьшим Y.

приложил пример, как именно должна быть нумерация. (Желательно чтобы эту нумерацию ещё делал сам LISP на чертеже дублируя номера которые записывает в файл NOM.txt)

Премного благодарен за помошь, ещё раз извините за неясное изложение задачи!

[VVA]

Обновил #19
Текст рисуется текущим стилем, текущей высотой (TEXTSIZE)