点是否在线上
如何判断一个点是否在一条线或其延长线上。请给个简单可靠的方法,用斜率不太可靠。其实都有误差,只是在某个很小的误差下可以认为在线上。
明经这里就有,和abd里面的函数left完全一样。应该在实用函数栏内。
用斜率是最可靠的方法
只是,在计算过程中,计算机取点时都有一个精度问题,一般是小数点后3位或4位,由此产生了以后的计算误差,但这不是计算方法的问题,所以只要在程序中给出一个你所要求的精度范围就可以了,例如yy为计算的y坐标,y为实际获得的点的y坐标,那么就可以用下面的方法判断
(if (< (abs (- yy y)) 0.0000001)
(princ "\n 你选择的点在直线上")
(princ "\n 你选择的点不在直线上")
)
(princ)
)
0.0000001的精度足够了吧。
If you are lazy to write the codes...
try to use the function (Inters p1 p2 p3 p4).for example, if you want to determine if p3 on line p1 to p2. You can test (Inters p1 p2 p1 p3), if it returns nil, p3 is on the line.
I am not sure if it works well...
最终目标是什么?
return T if ture, or NIL
页:
[1]