删除点表中重复的点遇到的问题

crtrccrt

点表中重复的点
注意"显示"的精度,与实际的精度,
n次实践(>=100),总结:转换成字符串比较或以距离按精度(如1e-12)筛选.

llsheng_73

高效查找表中重复元素及去重复
http://bbs.mjtd.com/forum.php?mo ... &fromuid=202795
(出处: 明经CAD社区)

1. (defun delsame(l1 rcz / l2);;带容差去重(重复过的取第一次出现)，有时处理坐标点需要考虑容差
   
2.   (while l1
   
3.     (setq l2(cons(car l1)l2)l1(vl-remove-if'(lambda (x)(equal(car l1)x rcz))(cdr l1))))
   
4.   (reverse l2))
   
5. 
   
6. (defun delsames(l1 rcz / a l l2);;带容差去重(重复过的不出现)，有时处理坐标点需要考虑容差
   
7.   (while(setq a(car l1)l2(vl-remove-if'(lambda (x)(equal a x rcz))(cdr l1)))
   
8.     (if(=(1+(length l2))(length l1))(setq l(cons a l)))
   
9.     (setq l1 l2))
   
10.   (if(=(1+(length l2))(length l1))(setq l(cons a l)))
    
11.   (reverse l))

(defun delsame(l1 rcz / l2);;带容差去重(重复过的取第一次出现)，有时处理坐标点需要考虑容差<br />   (while l1<br />     (setq l2(cons(car l1)l2)l1(vl-remove-if'(lambda (x)(equal(car l1)x rcz))(cdr l1))))<br />   (reverse l2))<br /> <br /> (defun delsames(l1 rcz / a l l2);;带容差去重(重复过的不出现)，有时处理坐标点需要考虑容差<br />   (while(setq a(car l1)l2(vl-remove-if'(lambda (x)(equal a x rcz))(cdr l1)))<br />     (if(=(1+(length l2))(length l1))(setq l(cons a l)))<br />     (setq l1 l2))<br />   (if(=(1+(length l2))(length l1))(setq l(cons a l)))<br />   (reverse l))