判断一个点是否在两点构成的矩形内

自贡黄明儒

1. ;; 判断一个点是否在两点构成的矩形内
   
2. (defun P-in-box-P (p p1 p2)
   
3.   (and
   
4.     (<= (min (car p1) (car p2)) (car p) (max (car p1) (car p2)))
   
5.     (<=        (min (cadr p1) (cadr p2))
   
6.         (cadr p)
   
7.         (max (cadr p1) (cadr p2))
   
8.     )
   
9.   )
   
10. )

;; 判断一个点是否在两点构成的矩形内<br /> (defun P-in-box-P (p p1 p2)<br />   (and<br />     (<= (min (car p1) (car p2)) (car p) (max (car p1) (car p2)))<br />     (<=        (min (cadr p1) (cadr p2))<br />         (cadr p)<br />         (max (cadr p1) (cadr p2))<br />     )<br />   )<br /> )

易云网络

我好像也写过这个

1.         (defun lg-isPtinPM  (a a1x a1y a2x a2y / ax ay)
   
2.                 (setq ax (car a) ay (cadr a))
   
3.                 (and
   
4.                         (or (<= a1x ax a2x) (<= a2x ax a1x))
   
5.                         (or (<= a1y ay a2y) (<= a2y ay a1y)))
   
6.         )

        (defun lg-isPtinPM  (a a1x a1y a2x a2y / ax ay)<br />                 (setq ax (car a) ay (cadr a))<br />                 (and<br />                         (or (<= a1x ax a2x) (<= a2x ax a1x))<br />                         (or (<= a1y ay a2y) (<= a2y ay a1y)))<br />         )

菜卷鱼

;;;;;菜卷鱼 点是否在 boundingbox里
(defun iboxp (p p1 p2)
  (or
    (and
      (<= 0 (angle p1 p) (* 0.5 pi))
      (<= pi (angle p2 p) (* 1.5 pi))
    )
    (and
      (<=  0 (angle p2 p) (* 0.5 pi))
      (<=  pi (angle p1 p) (* 1.5 pi))
    )
  )
)

caoyin

;;理论上可以这样写，实际运用要加一些判断
(defun TEST (P1 P2 P)
  (setq P1 (list (car P1) (cadr P1)))
  (apply 'and (mapcar '(lambda (A B) (< 0 (/ A B) 1)) (mapcar '- P P1) (mapcar '- P2 P1)))
)

易云网络

黄总描述有问题，两点怎么构成矩形

自贡黄明儒

先由两角点构成矩形，然后再判断点是否在矩形内

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

BaoWSE

感谢大神分享经验！

duotu007

严格说是正矩形，否则任意矩形要三点，黄总写个任意矩形的吧

自贡黄明儒

duotu007 发表于 2017-10-7 14:03
严格说是正矩形，否则任意矩形要三点，黄总写个任意矩形的吧

任意的没有必要。我们击一个按钮，其实就是判断一个点是否在矩形内，据说是最基本的了，也最有实用价值。

自贡黄明儒

菜卷鱼 发表于 2021-2-6 23:37
;;;;;菜卷鱼 点是否在 boundingbox里
(defun iboxp (p p1 p2)
  (or

也可以用点积判断，似乎看起来更省事
http://bbs.xdcad.net/forum.php?m ... 8%BA%CE%D2%E2%D2%E5