【源码】【免币】判断点是否在两点连线内或两点连线的延长线上

kele99kele

;判断点是否在两点连线的延长线上

2. (defun N::IsOnExLine (p1 p2 px)
   
3.   (and
   
4.   (< (abs (- (abs (- (distance px p1) (distance px p2))) (distance p1 p2))) 0.001)
   
5.   (< (abs (- (angle p1 px) (angle p2 px))) 0.0001)  
   
6.   )
   
7. )

(defun N::IsOnExLine (p1 p2 px)<br />   (and<br />   (< (abs (- (abs (- (distance px p1) (distance px p2))) (distance p1 p2))) 0.001)<br />   (< (abs (- (angle p1 px) (angle p2 px))) 0.0001)  <br />   )<br /> )

;判断点是否在两点连线上

2. (defun N::IsOnLine (p1 p2 px)
   
3.   (and
   
4.     (< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)
   
5.     (or
   
6.       (< (abs (- (angle p1 px) (angle px p2))) 0.0001)
   
7.       (< (abs (- (angle p2 px) (angle px p1))) 0.0001)
   
8.     )
   
9.   )
   
10. )

(defun N::IsOnLine (p1 p2 px)<br />   (and<br />     (< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)<br />     (or<br />       (< (abs (- (angle p1 px) (angle px p2))) 0.0001)<br />       (< (abs (- (angle p2 px) (angle px p1))) 0.0001)<br />     )<br />   )<br /> )

;判断点是否在两点连线上或连线的延长线上

2. (defun N::IsInLine (p1 p2 px)
   
3.   (or
   
4.     (N::IsOnLine p1 p2 px)
   
5.     (N::IsOnExLine p1 p2 px)
   
6.   )
   
7. )

(defun N::IsInLine (p1 p2 px)<br />   (or<br />     (N::IsOnLine p1 p2 px)<br />     (N::IsOnExLine p1 p2 px)<br />   )<br /> )

给标注选择函数用的子函数，详http://bbs.mjtd.com/thread-169495-1-1.html，欢迎指着拍砖，不胜感激。

kele99kele

;判断点是否在两点连线的延长线上
(defun N::IsOnExLine (p1 p2 px)
  (< (abs (- (abs (- (distance px p1) (distance px p2))) (distance p1 p2))) 0.001)
)
;判断点是否在两点连线上
(defun N::IsOnLine (p1 p2 px)
     (< (abs (- (+ (distance p1 px) (distance p2 px)) (distance p1 p2))) 0.001)
)
;判断点是否在两点连线上或连线的延长线上
(defun N::IsInLine (p1 p2 px)
  (or
    (N::IsOnLine p1 p2 px)
    (N::IsOnExLine p1 p2 px)
  )
)
角度判定好像可以不需要，实测没有角度判定也可以正确选择，从画法几何上来说距离判定就已经囊括了角度判定。欢迎拍砖。

xinxirong

曲线上？还是用acExtended吧。

guankuiwu

如果不在，怎么移至两点连线之上呢？

Klein

guankuiwu 发表于 2023-3-23 11:28
如果不在，怎么移至两点连线之上呢？

你这个问法不严谨，你是需要把点移动到两点连线的最近点，也就是点对直线的垂足处吗？还是只要移动到直线任意一点？

guankuiwu

Klein 发表于 2023-3-23 12:51
你这个问法不严谨，你是需要把点移动到两点连线的最近点，也就是点对直线的垂足处吗？还是只要移动到直线 ...

就是把点移动到两点连线的最近点

Klein

guankuiwu 发表于 2023-3-23 14:02
就是把点移动到两点连线的最近点

对算法研究的不多，但是提供一个比较直接的办法：
已知pt1、pt2以及需要判断的点ptx，先按楼上的办法判断ptx是不是在pt1和pt2连线的直线上，如果不在，求pt1和pt2两点的角度ang，然后用polar函数，起点ptx，角度按照ang+PI/2，长度任意给个值求得一个点pt3，再用inters函数就得到了你要的点了

Klein

guankuiwu 发表于 2023-3-23 14:02
就是把点移动到两点连线的最近点

想了一下，用这个方法甚至不需要判断点是不是在直线上，求得的点pt3如果和ptx完全相等或者两点距离近到一定程度可以认为ptx就在直线上了

guankuiwu

学习了！我试试。多谢！