[求助]删除列表中的相同元素LstDelSame没作用?[自己解决了]

carrot1983

;;;----通用函数-----
;;选择集->图元名表
(defun ss->elst (ss / elst)
  (setq i 0)
  (repeat (sslength ss)
    (setq elst (cons (ssname ss i) elst)
   i    (1+ i)
    )
  )
  (reverse elst)
)

;;;删除列表中的相同元素(保留一个)并返回新表
(defun LstDelSame (lst / x nl)
  (foreach x lst
    (if (not (member x nl))
      (setq nl (cons x nl))
    )
  )
  (setq nl (reverse nl))
  nl
)

(defun c:tt (/ ELST O1 O2 P PLST PLST0 SS)
  (princ "\n选择所有的交线.")
  (setq ss (ssget (list (cons 0 "*POLYLINE,LINE"))))
  (setq elst (ss->elst ss))
  (foreach e elst
    (setq o1 (vlax-ename->vla-object e))
    (foreach e elst
      (setq o2 (vlax-ename->vla-object e))
      (setq p (vlax-invoke o1 'intersectwith o2 acextendnone))
      (setq plst0 (cons p plst0))
    )
  )
  (setq plst2 (vl-remove nil (LstDelSame plst0)))
)

得到((29.0888 21.4991 0.0) (33.789 15.9458 0.0) (29.0888 21.4991 0.0)
(33.789 15.9458 0.0))

得到的任意线的交点表,是有重复的点. LstDelSame 没作用...

----------------------------------------------------------------------------------------------------------

可是:

(LstDelSame '((29.0888 21.4991 0.0) (33.789 15.9458 0.0) (29.0888 21.4991 0.0)
(33.789 15.9458 0.0)))

得到((29.0888 21.4991 0.0) (33.789 15.9458 0.0)) 又是对的....

(setq aaa '((29.0888 21.4991 0.0) (33.789 15.9458 0.0) (29.0888 21.4991 0.0)
(33.789 15.9458 0.0)))

(LstDelSame aaa)

得到((29.0888 21.4991 0.0) (33.789 15.9458 0.0)) 也是对的....

无痕

直接输入当然对了。

得到((29.0888 21.4991 0.0) (33.789 15.9458 0.0) (29.0888 21.4991 0.0)
(33.789 15.9458 0.0))

得到的任意线的交点表,是有重复的点. LstDelSame 没作用...

－》因为有微小误差，可能是点本身误差，也可能是浮点误差。如果不是完全相等，member是不起作用的。

虽然显示是(29.0888 21.4991 0.0) ，但可能是29.08883 只是cad显示不全，并不说明完全相等。

建议用equal，设定误差范围。

carrot1983

equal,版主说的,我想过了...

可是脑子转不过弯来...

那个坦白说,不会写...版主能直接帮忙把

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=64501

这个主题的问题解决一下...谢谢....

183017064

我也是这个问题，楼主解决了吗，重复的点干不掉啊

183017064

1. (defun qly (point-list )
   
2.   
   
3.         
   
4.         
   
5.         
   
6.         (setq new-list nil)
   
7.   (foreach point point-list
   
8.     (setq found nil)
   
9.     (foreach new-point new-list
   
10.       (if (< (distance point new-point) 1)
    
11.         (setq found t)
    
12.       )
    
13.     )
    
14.     (if (not found)
    
15.       (setq new-list (cons point new-list))
    
16.     )
    
17.   )
    
18.   (reverse new-list)
    
19. )

(defun qly (point-list )<br />   <br />         <br />         <br />         <br />         (setq new-list nil)<br />   (foreach point point-list<br />     (setq found nil)<br />     (foreach new-point new-list<br />       (if (< (distance point new-point) 1)<br />         (setq found t)<br />       )<br />     )<br />     (if (not found)<br />       (setq new-list (cons point new-list))<br />     )<br />   )<br />   (reverse new-list)<br /> )