[讨论]：这个有什么简便方法吗………………

lzy9788

一点列表中如果有相同的点，能通过排序后消除掉相同的多余的点吗？
如((1,2,0) (5,4,0)(4,3,0)(1,2,0))
通过按x排序后得((1,2,0)(4,3,0)(5,4 0))

lsjjm

1. VL-SORT函数对表排序, 但不消重.
2. 消重使用内部函数: acet-list-remove-duplicates.

lzy9788

acet-list-remove-duplicates
这个函数能直接调用？

lsjjm

最初由 lzy9788 发布
[B]acet-list-remove-duplicates
这个函数能直接调用？ [/B]

如果是完全安装或者安装了ET工具...

陌生人

(VL-SORT '((1 2 0)(2 3 4)(3 2 1)(1 2 0)) '(lambda(x y)(<(car x )(car y))))
;->((1 2 0) (1 2 0) (2 3 4) (3 2 1)) ;未过滤重项.;不用acet，怎么过滤重项？
(VL-SORT '(2 3 4 2 0 1) '<) ;-> (0 1 2 3 4) ;已过滤重项.

灯火

帮助文件说VL-SORT可能[/COLOR]  滤重项，使用中好像数字排序滤重项，而字符串排序则不滤除重项。

aeo

其实是个排序问题。

坐标越接近，就排的越靠在一起.
这样再给个精度，就可以去重复点了.

陌生人

(setq lst '((1 2 0)(2 3 4)(3 2 1)(1 2 0)))
(setq lst (vl-sort lst '(lambda(x y)(<(car x )(car y)))) i 0)
(apply 'append (mapcar '(lambda(x)(if (equal (nth i lst)(nth (setq i(1+ i)) lst) 1e-4) nil (list x)))lst))
->((1 2 0) (2 3 4) (3 2 1))

lsjjm

数字排序也不一定能滤重项, 如: (vl-sort '(4 6 1.2 5 1.2) '<) return :(1.2 1.2 4 5 6).

lzy9788

多谢长老