[LISP程序]：消除点表重复项

snsj

2. 
   
3. ;;;|消除点表重复项
   
4. (defun rem-ptlst (a / ex y)
   
5.   (setq        ex (vl-remove-if
   
6.              '(lambda (y)
   
7.                 (and (equal (car y) (caar a) 1e-4)
   
8.                      (equal (cadr y) (cadar a) 1e-4)
   
9.                 )
   
10.               )
    
11.              a
    
12.            )
    
13.   )
    
14.   (if (car a)
    
15.     (cons (car a) (rem-ptlst ex))
    
16.   )
    
17. )

<br /> ;;;|消除点表重复项<br /> (defun rem-ptlst (a / ex y)<br />   (setq        ex (vl-remove-if<br />              '(lambda (y)<br />                 (and (equal (car y) (caar a) 1e-4)<br />                      (equal (cadr y) (cadar a) 1e-4)<br />                 )<br />               )<br />              a<br />            )<br />   )<br />   (if (car a)<br />     (cons (car a) (rem-ptlst ex))<br />   )<br /> )

eachy

2. 
   
3. (defun xdl-pts-removedups (pts / pl)
   
4.   (while pts
   
5.     (setq p   (car pts)
   
6.           pts (cdr pts)
   
7.           pts (vl-remove-if '(lambda (x) (equal x p 1e-10)) pts)
   
8.           pl (cons p pl)
   
9.     )
   
10.   )
    
11.   (reverse pl)
    
12. )

<br /> (defun xdl-pts-removedups (pts / pl)<br />   (while pts<br />     (setq p   (car pts)<br />           pts (cdr pts)<br />           pts (vl-remove-if '(lambda (x) (equal x p 1e-10)) pts)<br />           pl (cons p pl)<br />     )<br />   )<br />   (reverse pl)<br /> )

eachy

补充一点，Lisp中无序的点表是没有什么价值的，会大大降低程序运行效率。