[NEDIS]

Пишу програмку и в одной ее части столкнулся с проблемой (уже два дня голову ломаю).
Есть набор линейных примитивов я нохожу попарно их пересечения (составляю список точек пересечения от каждой пары примитивов). Получает длиный список повторяющихся точек пересечений.
Далее в цикле беру из этого списка первый примитив, перетаскиваю его во второй новый список, а из первого этот примитив удаляю.

В итоги получаю вот такую ерунду
((1.50067e+006 -115870.0) (1.50067e+006 -115870.0) (1.50067e+006 -115870.0) (1.50067e+006 -115870.0) (1.52075e+006 -106060.0))

т.е. точка (1.50067e+006 -115870.0) на отрез не хочет фильтроваться

P.S. По хорошему надо получить Список пересечений вида:
((<Имя объекта: 1> <Имя объекта: 2> (X Y)) (<Имя объекта: 1> <Имя объекта: 3> <Имя объекта: 4> <Имя объекта: 5>(X Y)))
Т.е. чтобы каждый элемент списка сдержал все пересекаемые примитивы в заданной точке

[Кулик Алексей aka kpblc]

Попробуй заменить строку

Код:

[Выделить все]

(setq spisok-point-all (vl-remove vershina-n spisok-point-all))

на

Код:

[Выделить все]

(setq spisok-point-all (vl-remove-if
                                (function
                                  (lambda (x)
                                    (equal x vershina-n 1e-3)
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                spisok-point-all
                                ) ;_ end of vl-remove-if
             )

P.S. В логику кода не вникал

[NEDIS]

kpblc как всегда спасибо