社区 › Auto Lisp › 检查点天气

pBe 发表于 2022-7-6 00:30:04

 
它确实有效，但在OP的条件下不起作用，。。。。。
 
 
因此，对于您的代码，即使不是共线的点也将计算为T。但仍然有效

MSasu 发表于 2022-7-6 00:35:11

Tharwat，虽然构造很好，但您的代码只考虑X坐标，如果点位于与Y轴平行的线上，则返回错误。

Tharwat 发表于 2022-7-6 00:36:31

我明白了，你的方法是对的。

Lee Mac 发表于 2022-7-6 00:41:35

共线测试
 
为了测试p1是否位于p2和p3之间的线上，可以简单地使用三角形不等式：
(defun on-line ( p1 p2 p3 )
   (equal (+ (distance p1 p2) (distance p1 p3)) (distance p2 p3) 1e-
)

pBe 发表于 2022-7-6 00:43:29

 
当然，d1+d2=d总

wimal 发表于 2022-7-6 00:45:24

 
以上代码如何满足我的要求。
谢谢李先生

Lee Mac 发表于 2022-7-6 00:48:56

不客气，维马尔

GP_ 发表于 2022-7-6 00:54:18

 
 
pBe，还不够？
(defun ptbetween (1p mp 3p)
    (equal (angle 1p mp) (angle mp 3p))
)

Lee Mac 发表于 2022-7-6 00:55:04

 
仅适用于二维点
 
_$ (ptbetween '(1 1 0) '(2 2 1) '(3 3 0))
T

GP_ 发表于 2022-7-6 00:59:59

 
哎呀。。。

查看完整版本: 检查点天气