(XD::Geom:PntonWhere)判断点位于包围盒矩形的哪个方位

XDSoft · 发表于 2016-5-9 01:52:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::Geom:PntonWhere (pt box / area1 area2 area3 area4 p1 p1x p2 p2x p3 p3x p4 p4x x y)
(mapcar
'set
'(p1 p2 p3 p4)
box
)
(mapcar
'set
'(p1x p2x p3x p4x)
(mapcar
'(lambda (x y)
(polar x y (* (getvar "viewsize") 5))
)
(list p1 p2 p3 p4)
(list (* (/ pi 4) 5) (- (/ pi 4)) (/ pi 4) (* (/ pi 4) 3))
)
)
(setq area1 (xd::pnts:ucs2wcs (list p1 p4 p4x p1x))
area2 (xd::pnts:ucs2wcs (list p1 p1x p2x p2))
area3 (xd::pnts:ucs2wcs (list p2 p2x p3x p3))
area4 (xd::pnts:ucs2wcs (list p3 p3x p4x p4))
)
(setq pt (trans pt 1 0))
(cond
((xdrx_point_isinside pt area1)
1
)
((xdrx_point_isinside pt area2)
2
)
((xdrx_point_isinside pt area3)
3
)
((xdrx_point_isinside pt area4)
4
)
(t
0
)
)
)

(defun XD::Geom:PntonWhere (pt box / area1 area2 area3 area4 p1 p1x p2 p2x p3 p3x p4 p4x x y) 
  (mapcar 
    'set 
    '(p1 p2 p3 p4) 
    box 
  ) 
  (mapcar 
    'set 
    '(p1x p2x p3x p4x) 
    (mapcar 
      '(lambda (x y) 
         (polar x y (* (getvar "viewsize") 5)) 
       ) 
      (list p1 p2 p3 p4) 
      (list (* (/ pi 4) 5) (- (/ pi 4)) (/ pi 4) (* (/ pi 4) 3)) 
    ) 
  ) 
  (setq area1 (xd::pnts:ucs2wcs (list p1 p4 p4x p1x)) 
        area2 (xd::pnts:ucs2wcs (list p1 p1x p2x p2)) 
        area3 (xd::pnts:ucs2wcs (list p2 p2x p3x p3)) 
        area4 (xd::pnts:ucs2wcs (list p3 p3x p4x p4)) 
  ) 
  (setq pt (trans pt 1 0)) 
  (cond 
    ((xdrx_point_isinside pt area1) 
      1 
    ) 
    ((xdrx_point_isinside pt area2) 
      2 
    ) 
    ((xdrx_point_isinside pt area3) 
      3 
    ) 
    ((xdrx_point_isinside pt area4) 
      4 
    ) 
    (t 
      0 
    ) 
  ) 
)

XDSoft · 发表于 2016-5-9 02:00:00

测试工具

(defun c:tt ()
(defun _callback (dynpt)
(strcat "鼠标点位于区域：" (itoa (xd::geom:Pntonwhere dynpt box)))
)
(if (setq e (ssget))
(progn
(setq box (xdrx_entity_box e))
(setq box1 (XD::PnTs:Close (xdrx_entity_box e)))
(mapcar
'set
'(p1 p2 p3 p4)
box
)
(mapcar
'set
'(p1x p2x p3x p4x)
(mapcar
'(lambda (x y)
(polar (trans x 0 1) y 1000)
)
(list p1 p2 p3 p4)
(list (* (/ pi 4) 5) (- (/ pi 4)) (/ pi 4) (* (/ pi 4) 3))
)
)
(apply
'xdrx_grdraw
(cons 6 (cons 1 box1))
)
(xdrx_grdraw 6 1 p1 (trans p1x 1 0))
(xdrx_grdraw 6 1 p2 (trans p2x 1 0))
(xdrx_grdraw 6 1 p3 (trans p3x 1 0))
(xdrx_grdraw 6 1 p4 (trans p4x 1 0))
(xdrx_pointmonitor "_callback")
(getpoint)
(xdrx_pointmonitor)
)
)
(princ)
)

(defun c:tt () 
  (defun _callback (dynpt) 
    (strcat "鼠标点位于区域：" (itoa (xd::geom:Pntonwhere dynpt box))) 
  ) 
  (if (setq e (ssget)) 
    (progn 
      (setq box (xdrx_entity_box e)) 
      (setq box1 (XD::PnTs:Close (xdrx_entity_box e))) 
      (mapcar 
        'set 
        '(p1 p2 p3 p4) 
        box 
      ) 
      (mapcar 
        'set 
        '(p1x p2x p3x p4x) 
        (mapcar 
          '(lambda (x y) 
             (polar (trans x 0 1) y  1000) 
           ) 
          (list p1 p2 p3 p4) 
          (list (* (/ pi 4) 5) (- (/ pi 4)) (/ pi 4) (* (/ pi 4) 3)) 
        ) 
      ) 
      (apply 
        'xdrx_grdraw 
        (cons 6 (cons 1 box1)) 
      ) 
      (xdrx_grdraw 6 1 p1 (trans p1x 1 0)) 
      (xdrx_grdraw 6 1 p2 (trans p2x 1 0)) 
      (xdrx_grdraw 6 1 p3 (trans p3x 1 0)) 
      (xdrx_grdraw 6 1 p4 (trans p4x 1 0)) 
      (xdrx_pointmonitor "_callback") 
      (getpoint) 
      (xdrx_pointmonitor) 
    ) 
  ) 
  (princ) 
)

csharp · 发表于 2016-5-10 16:11:42

本帖最后由 csharp 于 2016-5-10 16:12 编辑

这个可以只用 BOX 的中心点，位置用 angle 判断即可

wzjck01 · 发表于 2021-6-19 16:38:24

学习，学习。

wzjck01 · 发表于 2021-6-20 12:42:35

学习，学习。

账号		自动登录	找回密码
密码			立即注册

[几何] (XD::Geom:PntonWhere)判断点位于包围盒矩形的哪个方位

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。