（XD::GEOM:ListCollinear-p）判断点表里面的所有点是否共线

Lispboy

如果表有重复点，消重后调用本函数

XD:GEOM:Collinear-p 见：http://bbs.xdcad.net/thread-709066-1-1.html

1. (defun XD::GEOM:ListCollinear-p ( lst )
   
2.     (or (null (cddr lst))
   
3.         (and (XD:GEOM:Collinear-p (car lst) (cadr lst) (caddr lst))
   
4.              (XD::GEOM:ListCollinear-p (cdr lst))
   
5.         )
   
6.     )
   
7. )
   

(defun XD::GEOM:ListCollinear-p ( lst )<br />     (or (null (cddr lst))<br />         (and (XD:GEOM:Collinear-p (car lst) (cadr lst) (caddr lst))<br />              (XD::GEOM:ListCollinear-p (cdr lst))<br />         )<br />     )<br /> )<br />

明天你好

成角度的两条线
获取4个顶点

(setq lst '((4918.51 1699.6 0.0) (4467.33 1357.01 0.0) (4467.33 1357.01 0.0) (5283.96 1253.34 0.0)))
(XD::GEOM:ListCollinear-p lst) 返回的是T

这不是函数的BUG ?
难道非要对表除重后使用？

newer

明天你好 发表于 2017-5-23 18:26

既然知道是有重复的点，为什么不消除。

去看下这个 http://bbs.xdcad.net/thread-709319-1-1.html

这不是BUG，消除重复后，再调用函数。

明天你好

newer 发表于 2017-5-23 18:53

我是除重后使用的
只是原贴中开始没有说明要除重，所以提这个问题

2. 
   
3. ; [url]http://bbs.xdcad.org/thread-668673-1-2.html[/url]
   
4. 
   
5. ; 递归法:
   
6. (defun XD::List:DelSame (l)
   
7.   (if l
   
8.    (cons (car l) (XD::List:DelSame (vl-remove (car l) l)))
   
9. )
   
10. )
    
11. 
    
12. ; 非递归版本:
    
13. (defun XD::List:DelSame (l / ll)  (while l
    
14.     (setq ll (cons (car l) ll)
    
15.           l (vl-remove (car l) l)
    
16.     )
    
17.   )
    
18.   (reverse ll)
    
19. )
    
20. 
    

<br /> ; [url]http://bbs.xdcad.org/thread-668673-1-2.html[/url]<br /> <br /> ; 递归法:<br /> (defun XD::List:DelSame (l)<br />   (if l<br />    (cons (car l) (XD::List:DelSame (vl-remove (car l) l)))<br /> )<br /> )<br /> <br /> ; 非递归版本:<br /> (defun XD::List:DelSame (l / ll)  (while l<br />     (setq ll (cons (car l) ll)<br />           l (vl-remove (car l) l)<br />     )<br />   )<br />   (reverse ll)<br /> )<br /> <br />