<已解决>点表排序问题

五只刀

用vl-sort排序X跟Y坐标两个排序时会有问题.X相等的情况下Y就有一些乱了.有没有其他好的方法
398425.82851,988124.27134
398426.47851,988124.27134
398427.12851,988124.27134
398427.77851,988124.27134
398428.42851,988124.27134
398429.07851,988124.27134
398429.72851,988124.27134
398430.37851,988124.27134
398431.02851,988124.27134
398431.67851,988124.27134
398432.32851,988124.27134
398432.97851,988124.27134
398433.62851,988124.27134
398434.27851,988124.27134
398434.92851,988124.27134
398435.57851,988124.27134
398419.97851,988123.62134
398420.62851,988123.62134
398434.27851,988123.62134
398421.27851,988123.62134
398434.92851,988123.62134
398435.57851,988123.62134
398421.92851,988123.62134
398422.57851,988123.62134
398423.22851,988123.62134
398423.87851,988123.62134
398424.52851,988123.62134
398425.17851,988123.62134
398425.82851,988123.62134
398426.47851,988123.62134
398427.12851,988123.62134
398427.77851,988123.62134
398428.42851,988123.62134
398429.07851,988123.62134
398429.72851,988123.62134
398430.37851,988123.62134
398431.02851,988123.62134
398431.67851,988123.62134
398432.32851,988123.62134
398432.97851,988123.62134
398433.62851,988123.62134
398434.27851,988123.62134
398434.92851,988123.62134
这个数据就是用vl-sort排序出来的,不理想.

pxr201419

vl-sorl没问题
(setq lst '((1.3 2.1)(1.4 2.1)(1.3 2.2)(1.4 2.2)))
(vl-sort (vl-sort lst '(lambda(a b)(> (cadr a)(cadr b))))
         '(lambda(a b)(> (car a)(car b))))
结果是((1.4 2.2) (1.4 2.1) (1.3 2.2) (1.3 2.1))
(vl-sort (vl-sort lst '(lambda(a b)(> (car a)(car b))))
         '(lambda(a b)(> (cadr a)(cadr b))))
结果是((1.4 2.2) (1.3 2.2) (1.4 2.1) (1.3 2.1))
试着把上面两种方式里的">"改为"<"，看看结果，充分理解vl-sort的用法

Lisphk

点到某个固定线的距离点和组成关联表，然后对关联表排序，在把点提出来

五只刀

pxr201419 发表于 2020-6-22 09:25
vl-sorl没问题
(setq lst '((1.3 2.1)(1.4 2.1)(1.3 2.2)(1.4 2.2)))
(vl-sort (vl-sort lst '(lambda(a  ...

数据少的时候是对的,数据多了就错了

五只刀

这个是我的CAD图,提取所有圆心坐标并排序X跟Y.排序出来就有问题

五只刀

pxr201419 发表于 2020-6-22 09:25
vl-sorl没问题
(setq lst '((1.3 2.1)(1.4 2.1)(1.3 2.2)(1.4 2.2)))
(vl-sort (vl-sort lst '(lambda(a  ...

你试一下我的图,提取所有圆心坐标后排序X跟Y的坐标,
要么X排序是对的,要么Y对.没办法X跟Y都对

newer

五只刀 发表于 2020-6-22 10:16
你试一下我的图,提取所有圆心坐标后排序X跟Y的坐标,
要么X排序是对的,要么Y对.没办法X跟Y都对

没有办法直接根据点就排好两个方向
你先得到对象的包围框，得到最下的边界和最左的边界
先根据最下边界排Y，得到子表， 然后每个子表在对最左边界排序X

去看下通用LISP函数库里面的 xd::pickset:tablesort函数的实现方法

f4800

楼主怎么解决的？？请教。。