[求助]：求点表中所有点是否共线

aeo

2. 
   
3. (defun PT-ONLINE (ptl / p1 p2 p3)
   
4.   (setq p1(car ptl) p2(cadr ptl))
   
5.   (not(apply 'or
   
6.     (mapcar '(lambda(p3)(inters p1 p2 p1 p3))(cddr ptl))
   
7.   ))
   
8. )
   

<br /> (defun PT-ONLINE (ptl / p1 p2 p3)<br />   (setq p1(car ptl) p2(cadr ptl))<br />   (not(apply 'or <br />     (mapcar '(lambda(p3)(inters p1 p2 p1 p3))(cddr ptl))<br />   ))<br /> )<br />

aeo

再来一个

2. 
   
3. (defun PTs-aline (ptl fu / r p)
   
4.   (setq e(entmakex(list '(0 . "LINE")(cons 10(car ptl))(cons 11 (cadr ptl))))
   
5.         r (apply 'and
   
6.              (mapcar '(lambda(p)(setq p(trans p 1 0))
   
7.                             (equal(vlax-curve-getClosestPointTo e p 1)p fu)
   
8.                       )
   
9.              (cddr ptl)
   
10.            ))
    
11.    )
    
12.    (entdel e)
    
13. r)
    

<br /> (defun PTs-aline (ptl fu / r p)<br />   (setq e(entmakex(list '(0 . "LINE")(cons 10(car ptl))(cons 11 (cadr ptl))))<br />         r (apply 'and<br />              (mapcar '(lambda(p)(setq p(trans p 1 0))<br />                             (equal(vlax-curve-getClosestPointTo e p 1)p fu)<br />                       )<br />              (cddr ptl)<br />            ))<br />    )<br />    (entdel e)<br /> r)<br />

狂刀

eachy给ａｅｏ加分应该加在第１７楼
１６楼的除了只限制在２ｄ和不能设阈值外，（from cad help: inters projects the lines onto the current construction plane and checks only for 2D intersection.）　还应该对p1,p2点是否重合做判断，如果重合，要选下一点为ｐ２点（循环自到不重合或点表结束)

2. 
   
3. (setq p1 '(0 0 0) p2 '(1 0 0) p3 '(-1 0 0))
   
4. (inters p1 p2 p1 p3)
   
5. ->nil
   
6. ;;注意以下两个:
   
7. (setq p1 '(0 0 0) p2 '(0 0 0) p3 '(-1 1 0))
   
8. (inters p1 p2 p1 p3)
   
9. ->nil
   
10. (setq p1 '(0 0 0) p2 '(0 0 0) p3 '(-1 3 0))
    
11. (inters p1 p2 p1 p3)
    
12. ->nil
    
13. p1 p2重合，ｉｎｔｅｒｓ返回结果均为ｎｉｌ.无法进行有效判断
    

<br /> (setq p1 '(0 0 0) p2 '(1 0 0) p3 '(-1 0 0))<br /> (inters p1 p2 p1 p3)<br /> ->nil<br /> ;;注意以下两个:<br /> (setq p1 '(0 0 0) p2 '(0 0 0) p3 '(-1 1 0))<br /> (inters p1 p2 p1 p3)<br /> ->nil<br /> (setq p1 '(0 0 0) p2 '(0 0 0) p3 '(-1 3 0))<br /> (inters p1 p2 p1 p3)<br /> ->nil<br /> p1 p2重合，ｉｎｔｅｒｓ返回结果均为ｎｉｌ.无法进行有效判断<br />

17楼的帖子也应该做重合判断

2. 
   
3. (setq ptl '((1 1 1)(1 1 1)(-1 -1 -1)(2 2 2)) )
   
4. (pts-aline ptl 1e-4)
   
5. ->T
   
6. (setq ptl '((1 1 1)(1 1 1)(-1 -1 -1)(2 2 1)) )
   
7. (pts-aline ptl 1e-4)
   
8. ->T  ;;错误判断，因为０长度的线没有方向性？．
   

<br /> (setq ptl '((1 1 1)(1 1 1)(-1 -1 -1)(2 2 2)) )<br /> (pts-aline ptl 1e-4)<br /> ->T<br /> (setq ptl '((1 1 1)(1 1 1)(-1 -1 -1)(2 2 1)) )<br /> (pts-aline ptl 1e-4)<br /> ->T  ;;错误判断，因为０长度的线没有方向性？．<br />

eachy

程序我都没有测试过，加分的原因在于不同的方法和思路，代码可以完善

aeo

最初由 狂刀 发布
[B]eachy给ａｅｏ加分应该加在第１７楼
１６楼的除了只限制在２ｄ和不能设阈值外，（from cad help: inters projects the lines onto the current construction plane and checks only for 2D intersection.）　还应该... [/B]

重合点应该先判断一下。
前面的方法有重合点也是会出错的:角度和距离方法都不行。

角度：比如 '(0 0 0) '(0 -0.0001 0) '(1 0 0) 判断不在一直线上，可是实际应该算一直线的.

我的第17楼，只要是那个直线不重合就行.

狂刀

距离方法理论上不存在重合点判断问题，除非提供的点不在误差范围内。