我有个重复坐标的点集合 怎么去除重复项

852456

'((616787.0 4.90479e+006) (616897.0 4.9048e+006) (616902.0 4.90471e+006) (616795.0 4.90471e+006) (616787.0 4.90479e+006) (616897.0 4.9048e+006))这里有个6个坐标列表 其中有两个是重复的 怎么删除重复项 并且位置不变

dingtiedt

删除表中重复数据,保留图元名,并统计表中相同数量
http://bbs.mjtd.com/forum.php?mo ... 370&fromuid=7309019
(出处: 明经CAD社区)

(vl-remove-if '(lambda (x) (equal (car x) (caar lst))) lst)

852456

谢谢，以成功解决

lisperado

1. ;Lee Mac
   
2. (defun LM:Unique ( l )
   
3.     (if l (cons (car l) (LM:Unique (vl-remove (car l) (cdr l)))))
   
4. )
   

;Lee Mac <br /> (defun LM:Unique ( l )<br />     (if l (cons (car l) (LM:Unique (vl-remove (car l) (cdr l)))))<br /> )<br />

嗨！请留意！
(setq lst
'((616787.0 4.90479e+006) (616897.0 4.9048e+006) (616902.0 4.90471e+006) (616795.0 4.90471e+006) (616787.0 4.90479e+006) (616897.0 4.9048e+006))
)

;LM 递归返回
‘((616787.0 4.90479e+006) (616897.0 4.9048e+006) (616902.0 4.90471e+006) (616795.0 4.90471e+006))
787 897 902 795, X值没重复

; 楼上VL函数返回
((616897.0 4.9048e+006) (616902.0 4.90471e+006) (616795.0 4.90471e+006) (616897.0 4.9048e+006))
897 902 795 897, X值有重复


(equal
(LM:Unique lst)
(vl-remove-if '(lambda (x) (equal (car x) (caar lst))) lst)
1e-5
)

nil
;结果不一致

852456

lisperado 发表于 2018-10-10 18:59
嗨！请留意！
(setq lst
'((616787.0 4.90479e+006) (616897.0 4.9048e+006) (616902.0 4.90471e+006 ...

谢谢你  虽然看不懂 但是两个我都试了下  还是你的我用着对