hey,
check the function
(defun parse_list (list_to_sort x_axle / index parsed_list parsed_sublist)
(if x_axle (setq coordinate_1 'car coordinate_2 'cadr coordinate_3 'caar)
(setq coordinate_1 'cadr coordinate_2 'car coordinate_3 'cadar)
)
(setq list_to_sort (vl-sort list_to_sort '(lambda (point_1 point_2)
(and (< ((eval coordinate_1) point_1)
((eval coordinate_1) point_2))
)
)
)
index 0
parsed_sublist (list (car list_to_sort))
)
(repeat (length list_to_sort)
(cond
(
(equal ((eval coordinate_3) parsed_sublist)
((eval coordinate_1) (nth (setq index (1+ index)) list_to_sort))
1e-3
)
(setq parsed_sublist (append parsed_sublist (list (nth index list_to_sort))))
)
(
t
(setq parsed_list (append parsed_list
(list (vl-sort parsed_sublist
'(lambda (point_1 point_2)
(and (< ((eval coordinate_2) point_1)
((eval coordinate_2) point_2)
)
)
)
)
)
)
parsed_sublist (list (nth index list_to_sort))
)
)
)
)
(mapcar '(lambda (sublist) (if (= 1 (length sublist)) (car sublist) (last sublist))) parsed_list)
)
it sorts and parses a list ascending depending on the x_axle parameter. if x_axle is t then it sort a list by x coordinate, otherwise by y. if there are several points with same x/y coordinate and different y/x coordinates then only point with greatest y/x coordinate will stay.
like (parse_list your_list t)
corrected
