[求助]：关于vl-remove

leochen

命令: !l1
((317.625 365.237) (661.285 365.237) (1063.26 365.237) (1436.08 365.237)
(1763.08 365.237))

命令: (setq a '(661.285 365.237))
(661.285 365.237)

命令: (vl-remove a l1)
((317.625 365.237) (661.285 365.237) (1063.26 365.237) (1436.08 365.237)
(1763.08 365.237))

命令: (setq a (nth 1 l1))
(661.285 365.237)

命令: (vl-remove a l1)
((317.625 365.237) (1063.26 365.237) (1436.08 365.237) (1763.08 365.237))
上例中l1是程序生成的表，怎么会这样？请指点？

xyp1964

有什么问题？

2. [FONT=courier new](defun c:test ()
   
3.   (setq        l1 '((317.625 365.237)
   
4.              (661.285 365.237)
   
5.              (1063.26 365.237)
   
6.              (1436.08 365.237)
   
7.              (1763.08 365.237)
   
8.             )
   
9.         a  '(661.285 365.237)
   
10.         b  (vl-remove a l1)
    
11.   )
    
12.   (princ "\nl1 = ")
    
13.   (princ l1)
    
14.   (princ "\na = ")
    
15.   (princ a)
    
16.   (princ "\nb = ")
    
17.   (princ b)
    
18.   (princ)
    
19. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        l1 '((317.625 365.237)<br />              (661.285 365.237)<br />              (1063.26 365.237)<br />              (1436.08 365.237)<br />              (1763.08 365.237)<br />             )<br />         a  '(661.285 365.237)<br />         b  (vl-remove a l1)<br />   )<br />   (princ "\nl1 = ")<br />   (princ l1)<br />   (princ "\na = ")<br />   (princ a)<br />   (princ "\nb = ")<br />   (princ b)<br />   (princ)<br /> )[/FONT]

leochen

象你这样的，我这里也可以
我的表是程序生成的（如许多直线之间的交点），然后这个表中有些交点需要去除，再生成一个交点却不能从表中去除掉，可能不是vl-remove的问题
可能是交点精度上的问题，请问可以解决吗？




通过别的方法解决了
不过这总是个问题，通过程序两次生成同一个点，有可能因为精度原因，程序认为这两个不是同一点