[求助]：请高手帮我查看一下这个lisp

丹佛

我写了一个小lisp，想检验3点是否在一条直线上，如下：
;;;本程序的目的是检验三点是否在一条直线上
(defun c:3p()
   (prompt"\n请输入第一个点:")
  (setq p1 (getpoint))
  (prompt"\n请输入第二个点:")
  (setq p2 (getpoint))
  (prompt"\n请输入第三个点:")
  (setq p3 (getpoint))
  (setq ang1 (angle p1 p2))
  (setq ang2 (angle p2 p3))
  ;(print ang1)
  ;(print ang2)
  (cond ((= ang1 ang2) (print"三点在一条直线上") (prin1))
        ((/= ang1 ang2) (print"三点不在一条直线上") (prin1))
        )
  
  )
(prin1)
不知怎么不行，盼

xcajcj

将判断语句：(= ang1 ang2)
改为：(<= (abs (- ang1 ang2)) 0.0000001) 试一试
主要原因是：同一直线上捕捉的三点所产生的角度值ang1和ang2应该相等，但你看看它们的值就会知道，它们之间存在差值。

丹佛

对，你说得很有道理，我试试看

f5612140

最初由 丹佛 发布
[B]对，你说得很有道理，我试试看 [/B]

您該先試過後再說有沒有道理，期待您的答覆

丹佛

我将程序改进后，好象还是不行，无论是否3点在一条直线上，结果都是“三点不在一条直线上”，不知何故？

陌生人

除了角度还可以用距离啊,不止是这个,方法很多的
dist12 ,dist23, dist13
(if (= (+ dist12 dist23 dist13)
       (* 2 (max dist12 dist23 dist13))
)
(princ "\n三点共线")
)

ll_j

cond一句这样改：

1. 
   
2. (cond
   
3.   ((= 0.0 (rem (- ang1 ang2) pi))
   
4.    (print"三点在一条直线上")
   
5.    (prin1)
   
6.   )
   
7.   (t
   
8.    (print"三点不在一条直线上")
   
9.    (prin1)
   
10.   )
    
11. )
    

复制代码

lsjjm

(= ang1 ang2) 换成 (equal ang1 ang2 0.0001) 试试.
或利用: (inters pt1 pt2 pt1 pt3)

丹佛

首先谢谢各位的热心帮助，我依次按照各位楼主的办法试验，结果如下：
6楼通过距离的办法是可行的，调试通过；
7楼通过求余数的方法测试不行；
8楼的方法可行；
通过以上的测试，我在想2楼的方法为什么不行？于是我将2楼的精度调为0.001，程序变通过了，看来这两个角度算出来相差还是挺大的。
无论怎样我又学会了新的知识。

对了，我还想补充一下，就是用取精度的办法会出现bug，就是在细小的差别时，程序会认为3个不在一条直线上的点是在一条直线上，所以从合理性来讲应该是用长度的办法最可靠。

playboy

对呀这是一个投机的办法不过却特别的好用，不错呀又学到了一招。

cqnj023

八楼的方法其实是可以的，只是需先定义系统变量AUPREC后在确定比较精度即可。