判断两个点在容差内是否相等

Lisphk

1. (defun equalPoints (pt1 pt2 tol)
   
2.   (apply '= (mapcar '(lambda (x y) (equal x y tol)) pt1 pt2))
   
3. )
   
4. 
   

(defun equalPoints (pt1 pt2 tol)<br />   (apply '= (mapcar '(lambda (x y) (equal x y tol)) pt1 pt2))<br /> )<br /> <br />

wzg35356

郁闷，以前一直直接equal