`中微子 发表于 2024-6-24 00:00:58

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

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

http://bbs.mjtd.com/forum.php?mod=image&aid=135229&size=300x300&key=f758fea0114f3856&nocache=yes&type=fixnone

`中微子 发表于 2024-6-25 01:20:07

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

(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)
    )

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

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

你有种再说一遍 发表于 2024-6-24 16:54:06

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

寒潮大冬瓜 发表于 2024-6-24 00:08:29

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

你有种再说一遍 发表于 2024-6-24 00:27:58

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

`中微子 发表于 2024-6-24 08:58:19

本帖最后由 `中微子 于 2024-6-24 08:59 编辑

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

`中微子 发表于 2024-6-24 09:01:05

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


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

自贡黄明儒 发表于 2024-6-24 09:32:13

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

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

`中微子 发表于 2024-6-24 10:30:40

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

感谢!!我先研究一下!

fangmin723 发表于 2024-6-24 15:05:44

本帖最后由 fangmin723 于 2024-6-24 15:08 编辑

自贡黄明儒 发表于 2024-6-24 09:32
早就有了，用不着自己动脑筋
用单纯的面积不能判断点是否在三角形的范围内，

fangmin723 发表于 2024-6-24 15:10:28

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

3点(两个角度方位)获取角度差(夹角)
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=190476&fromuid=7316343
(出处: 明经CAD社区)
页: [1] 2
查看完整版本: 遇到个问题望大神指教,怎么判断一点在角内还是在角外?