遇到个问题望大神指教,怎么判断一点在角内还是在角外?

`中微子

怎么判断P4点在角P1,P2,P3内还是在角外?

`中微子

这是我的思路,测试成功了,很庞大.有大佬简化一下吗?

(defun c:tt  (/ p1 p2 p4 pt a b mid pa pb)
    ;;三点夹角(来自大佬xyp1964)
    (defun included_angle  (p1 pt p3 / ang)
        (setq ang (- (angle pt p3) (angle pt p1)))
        (if (< ang 0)
            (setq ang (+ (* 2.0 pi) ang)))
        (if (> ang pi)
            (setq ang (- (* 2.0 pi) ang)))
        ang
        )
;;;取二点的中点
    (defun lt:midpoint (p1 p2) (mapcar '(lambda (x y) (/ (+ x y) 2.0)) p1 p2))
;;;主程序
    (setq p1  (getpoint "\n指定线上点1:")
          pt (getpoint p1 "\n指定角点:")
          p2  (getpoint pt "\n指定线上点2:")
          p4  (getpoint "\n指定活动点:")

          pa (polar pt (angle pt p1) 100)
          pb (polar pt (angle pt p2) 100)


          a   (/ (included_angle p1 pt p2) 2)
          mid  (lt:midpoint pa pb)
          b   (included_angle mid pt p4))
    (cond
        ((equal b a 0.001) (princ "\n活动点在线上!"))
        ((> b a) (princ "\n活动点在角外!"))
        ((< b a) (princ "\n活动点在角内!"))
        )
    (princ)
    )

自贡黄明儒

1. ;;135.8 [功能] pt是否在点集包围范围内(见164.40)
   
2. (defun PtInPts (pts pt / P1 P2)
   
3.   (setq
   
4.     pts        (MAPCAR
   
5.           '(LAMBDA (p1 p2) (REM (- (ANGLE pt p1) (ANGLE pt p2)) PI))
   
6.           (CONS (LAST pts) pts)
   
7.           pts
   
8.         )
   
9.   )
   
10.   (equal (ABS (APPLY '+ pts)) PI 1e-8)
    
11. )
    

;;135.8 [功能] pt是否在点集包围范围内(见164.40)<br /> (defun PtInPts (pts pt / P1 P2)<br />   (setq<br />     pts        (MAPCAR<br />           '(LAMBDA (p1 p2) (REM (- (ANGLE pt p1) (ANGLE pt p2)) PI))<br />           (CONS (LAST pts) pts)<br />           pts<br />         )<br />   )<br />   (equal (ABS (APPLY '+ pts)) PI 1e-8)<br /> )<br />

你有种再说一遍

总算看懂你在问什么了.你这里不是Point,而是Vector.
判断v4是否在两个向量中间夹着的范围.
应该是点积啊,怎么会是叉积呢.
https://www.cnblogs.com/JJBox/p/14300098.html#_label1
求得v2->v4落在向量a,向量b,同时大于0,就是夹角范围内了.
如果同时小于0,就是蝴蝶状.

寒潮大冬瓜

把P1+P2+P3→形成一个闭合的三角形→再参照方框内外删除的方式→判断在框内或框外

你有种再说一遍

https://www.cnblogs.com/JJBox/p/14062009.html
就是多段线内就好了

`中微子

不是包围范围内,p1 p2和P2 P3是可以无限延长的,我有个大概的思路了
就是画一根角P1 P2 P3的平分线P2 PT,原后算平分线PT P2 P4的角,大于二分这一P1 P2 P3角就在外面.
不知道还有更好的方法没有?

`中微子

自贡黄明儒 发表于 2024-6-24 07:11

谢谢!大佬的函数,收藏了!!

自贡黄明儒

`中微子 发表于 2024-6-24 08:58
不是包围范围内,p1 p2和P2 P3是可以无限延长的,我有个大概的思路了
就是画一根角P1 P2 P3的平分线P2 PT,原 ...

早就有了，用不着自己动脑筋

`中微子

自贡黄明儒 发表于 2024-6-24 09:32
早就有了，用不着自己动脑筋

感谢!!我先研究一下!

fangmin723

自贡黄明儒 发表于 2024-6-24 09:32
早就有了，用不着自己动脑筋

用单纯的面积不能判断点是否在三角形的范围内，

fangmin723

参考这个贴子中的函数比较夹角大小

3点(两个角度方位)获取角度差(夹角)
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7316343
(出处: 明经CAD社区)