[doki]

Подскажите что не правильно... не корректно сортирует

Вот список ( (a1 b1 (c1 d1)) (a3 b3 (c3 d3)) (a2 b2 (c2 d2)) ...)

вот лисп

(setq param_list
(vl-sort param_list
(function (lambda (e1 e2)
(> (- (car e1) (cadr e1)) (- (car e2) (cadr e2)))
) ) ) )


необходим результат от максимальных а и b до минимальных

[TararykovDG]

doki, не понятно, что нужно. Твой лисп сортирует список по убыванию разницы ai - bi, а Ты пишешь

необходим результат от максимальных а и b до минимальных

Если нужно чтобы список убывал по ai, а при их равенстве по bi, то тогда так

Код:

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

 
(setq param_list (list (list 5 4 (list 3 4)) (list 5 2 (list 3 4)) (list 10 2 (list 3 4))))
(vl-sort param_list (function (lambda (e1 e2) (if (= (car e1) (car e2)) (> (cadr e1) (cadr e2)) (> (car e1) (car e2))))))
; ((10 2 (3 4)) (5 4 (3 4)) (5 2 (3 4)))

[doki]

вот список

((1825.0 1150.0 (175193.0 -254701.0 0)) (1825.0 1150.0 (171918.0 -254701.0 0))
(1825.0 1150.0 (170043.0 -254701.0 0)) (1825.0 1150.0 (166768.0 -254701.0 0))
(2525.0 2350.0 (174843.0 -256501.0 0)) (2525.0 2350.0 (167118.0 -256501.0 0))
(2525.0 2350.0 (169693.0 -256501.0 0)) (2525.0 2350.0 (172268.0 -256501.0 0))
(2525.0 2350.0 (136118.0 -256501.0 0)) (2525.0 2350.0 (143843.0 -256501.0 0))
(1825.0 800.0 (141618.0 -255376.0 0)) (2525.0 1150.0 (174843.0 -259501.0 0))
(2525.0 1150.0 (174843.0 -260701.0 0)) (1237.5 300.0 (136762.0 -255126.0 0))
(1237.5 300.0 (144487.0 -255126.0 0)) (2525.0 1150.0 (167118.0 -259501.0 0))
(2525.0 1150.0 (167118.0 -260701.0 0)) (2525.0 1150.0 (169693.0 -260701.0 0))
(2525.0 1150.0 (169693.0 -259501.0 0)) (2525.0 1150.0 (172268.0 -259501.0 0))
(2525.0 1150.0 (172268.0 -260701.0 0)) (2525.0 1150.0 (136118.0 -259501.0 0))
(2525.0 1150.0 (136118.0 -260701.0 0)) (1825.0 1150.0 (138343.0 -260701.0 0))
(2525.0 1150.0 (138693.0 -259501.0 0)) (2525.0 1150.0 (141268.0 -259501.0 0))
(1825.0 1150.0 (141618.0 -260701.0 0)) (2525.0 1150.0 (143843.0 -260701.0 0))
(2525.0 1150.0 (143843.0 -259501.0 0)) (2525.0 1850.0 (138693.0 -256751.0 0))
(2525.0 1850.0 (141268.0 -256751.0 0)) (1825.0 800.0 (138343.0 -255376.0 0))
(1237.5 300.0 (135475.0 -255126.0 0)) (1237.5 300.0 (143200.0 -255126.0 0)))



вот как сортирует

((2525.0 1850.0 (138693.0 -256751.0 0)) (2525.0 1850.0 (141268.0 -256751.0 0))
(2525.0 2350.0 (174843.0 -256501.0 0)) (2525.0 2350.0 (167118.0 -256501.0 0))
(2525.0 2350.0 (169693.0 -256501.0 0)) (2525.0 2350.0 (172268.0 -256501.0 0))
(2525.0 2350.0 (136118.0 -256501.0 0)) (2525.0 2350.0 (143843.0 -256501.0 0))
(2525.0 1150.0 (174843.0 -259501.0 0)) (2525.0 1150.0 (174843.0 -260701.0 0))
(2525.0 1150.0 (167118.0 -259501.0 0)) (2525.0 1150.0 (167118.0 -260701.0 0))
(2525.0 1150.0 (169693.0 -260701.0 0)) (2525.0 1150.0 (169693.0 -259501.0 0))
(2525.0 1150.0 (172268.0 -259501.0 0)) (2525.0 1150.0 (172268.0 -260701.0 0))
(2525.0 1150.0 (136118.0 -259501.0 0)) (2525.0 1150.0 (136118.0 -260701.0 0))
(2525.0 1150.0 (138693.0 -259501.0 0)) (2525.0 1150.0 (141268.0 -259501.0 0))
(2525.0 1150.0 (143843.0 -260701.0 0)) (2525.0 1150.0 (143843.0 -259501.0 0))
(1825.0 800.0 (141618.0 -255376.0 0)) (1825.0 800.0 (138343.0 -255376.0 0))
(1825.0 1150.0 (175193.0 -254701.0 0)) (1825.0 1150.0 (171918.0 -254701.0 0))
(1825.0 1150.0 (170043.0 -254701.0 0)) (1825.0 1150.0 (166768.0 -254701.0 0))
(1825.0 1150.0 (138343.0 -260701.0 0)) (1825.0 1150.0 (141618.0 -260701.0 0))
(1237.5 300.0 (136762.0 -255126.0 0)) (1237.5 300.0 (144487.0 -255126.0 0))
(1237.5 300.0 (135475.0 -255126.0 0)) (1237.5 300.0 (143200.0 -255126.0 0)))


почему 1850 больше 2350?

[TararykovDG]

doki, у меня вот так отсортировал
( (2525.0 2350.0 (174843.0 -256501.0 0))
(2525.0 2350.0 (167118.0 -256501.0 0))
(2525.0 2350.0 (169693.0 -256501.0 0))
(2525.0 2350.0 (172268.0 -256501.0 0))
(2525.0 2350.0 (136118.0 -256501.0 0))
(2525.0 2350.0 (143843.0 -256501.0 0))
(2525.0 1850.0 (138693.0 -256751.0 0))
(2525.0 1850.0 (141268.0 -256751.0 0))
(2525.0 1150.0 (174843.0 -259501.0 0))
(2525.0 1150.0 (174843.0 -260701.0 0))
(2525.0 1150.0 (167118.0 -259501.0 0))
(2525.0 1150.0 (167118.0 -260701.0 0))
(2525.0 1150.0 (169693.0 -260701.0 0))
(2525.0 1150.0 (169693.0 -259501.0 0))
(2525.0 1150.0 (172268.0 -259501.0 0))
(2525.0 1150.0 (172268.0 -260701.0 0))
(2525.0 1150.0 (136118.0 -259501.0 0))
(2525.0 1150.0 (136118.0 -260701.0 0))
(2525.0 1150.0 (138693.0 -259501.0 0))
(2525.0 1150.0 (141268.0 -259501.0 0))
(2525.0 1150.0 (143843.0 -260701.0 0))
(2525.0 1150.0 (143843.0 -259501.0 0))
(1825.0 1150.0 (175193.0 -254701.0 0))
(1825.0 1150.0 (171918.0 -254701.0 0))
(1825.0 1150.0 (170043.0 -254701.0 0))
(1825.0 1150.0 (166768.0 -254701.0 0))
(1825.0 1150.0 (138343.0 -260701.0 0))
(1825.0 1150.0 (141618.0 -260701.0 0))
(1825.0 800.0 (141618.0 -255376.0 0))
(1825.0 800.0 (138343.0 -255376.0 0))
(1237.5 300.0 (136762.0 -255126.0 0))
(1237.5 300.0 (144487.0 -255126.0 0))
(1237.5 300.0 (135475.0 -255126.0 0))
(1237.5 300.0 (143200.0 -255126.0 0))
)

[doki]

тю.... интересно.... даже кад перегружал

[TararykovDG]

Сообщение от doki тю.... интересно.... даже кад перегружал

Могу лишь предположить, что в Твоем случае код считает 2525.0 > чем 2525.0 в соответсвующих строках
((2525.0 1850.0 (138693.0 -256751.0 0)) (2525.0 1850.0 (141268.0 -256751.0 0))
(2525.0 2350.0 (174843.0 -256501.0 0)) (2525.0 2350.0 (167118.0 -256501.0 0))
и поэтому уже не сравнивает между собой 1850.0 2350.0.
Это может происходить из-за точности отображения, в AutoCAD (в ком. строке или консоли VisualLisp) вещественные числа отображаются не более шести значащих цифр, но при расчетах внутри программы оперирует числами с точность до 15 знаков, см. пример:

Код:

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

_$ (setq a1 2525.000001)
2525.0
_$ (setq a2 2525.0)
2525.0
_$ a1 a2
2525.0
2525.0 ; отображаются a1 и a2 с одинаковыми значениями
_$ (> a1 a2)
T ; но при сравнении a1 оказывается больше чем a2, так оно и есть на самом деле, так как a1=2525.000001 a2=2525.0, 2525.000001 > 2525.0

Поэтому вопрос, как Ты формируешь исходный список для сортировки, если он получается в результате расчетов, то вполне возможно что получается описанный мной выше вариант. Я же скоприовал список из Твоего поста и у меня получается жестко прописаные значения всех чисел с точность до одного знака после разделителя десятичной части, поэтому сортировка происходит корректно.