(XD::Pnt:Quadrant)测试点在笛卡尔坐标系的位置

newer · 发表于 2013-11-4 13:41:22

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

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

×

本帖最后由 newer 于 2013-11-4 17:34 编辑

;|
判断点在哪个象限
参数
PT ---测试点
BASEPT-基点
返回值：
1 -- 第一象限
2 -- 第二象限
3 -- 第三象限
4 -- 第五象限
5 -- +X轴
6 -- +Y轴
7 -- -X轴
8 -- -Y轴
|;
(defun XD::Pnt:Quadrant (pt basept / 2pi an pi2)
(setq pt (mapcar '- pt basept))
(setq an (angle '(0 0 0) pt)
pi2 (/ pi 2.0)
2pi (* pi 2)
)
(cond
((and
(> an 0)
(< an pi2)
)
1
)
((and
(> an pi2)
(< an pi)
)
2
)
((and
(> an pi)
(< an (* 3 pi2))
)
3
)
((and
(> an (* 3 pi2))
(< an 2pi)
)
4
)
((= an 0)
5
)
((equal an pi 1e-5)
6
)
((equal an (* 3 pi2) 1e-5)
7
)
((equal an 2pi 1e-5)
8
)
)
)

;| 
判断点在哪个象限 
参数 
  PT ---测试点 
  BASEPT-基点 
返回值： 
  1 -- 第一象限 
  2 -- 第二象限 
  3 -- 第三象限 
  4 -- 第五象限 
  5 -- +X轴 
  6 -- +Y轴 
  7 -- -X轴 
  8 -- -Y轴 
|; 
(defun XD::Pnt:Quadrant (pt basept / 2pi an pi2) 
  (setq pt (mapcar '- pt basept)) 
  (setq an (angle '(0 0 0) pt) 
        pi2 (/ pi 2.0) 
        2pi (* pi 2) 
  ) 
  (cond 
    ((and 
       (> an 0) 
       (< an pi2) 
     ) 
      1 
    ) 
    ((and 
       (> an pi2) 
       (< an pi) 
     ) 
      2 
    ) 
    ((and 
       (> an pi) 
       (< an (* 3 pi2)) 
     ) 
      3 
    ) 
    ((and 
       (> an (* 3 pi2)) 
       (< an 2pi) 
     ) 
      4 
    ) 
    ((= an 0) 
      5 
    ) 
    ((equal an pi 1e-5) 
      6 
    ) 
    ((equal an (* 3 pi2) 1e-5) 
      7 
    ) 
    ((equal an 2pi 1e-5) 
      8 
    ) 
  ) 
)

st788796 · 发表于 2013-11-4 13:50:59

本帖最后由 st788796 于 2013-11-4 14:03 编辑

既然是坐标那就用坐标（x y )判断，不用转angle的

newer · 发表于 2013-11-4 14:14:13

st788796 发表于 2013-11-4 13:50
既然是坐标那就用坐标（x y )判断，不用转angle的

角度线性的，直观判断，X,Y又正又负的绕的晃。{:soso_e100:}

st788796 · 发表于 2013-11-4 14:19:27

newer 发表于 2013-11-4 14:14
角度线性的，直观判断，X,Y又正又负的绕的晃。

坐标（x y）本身就代表了位置:)

st788796 · 发表于 2013-11-4 17:26:10

(defun XD::Pnt:Quadrant (pt / x y)
(setq x (car pt)
y (cadr pt)
)
(cond
((and (> x 0) (> y 0))
1
)
((and (minusp x) (> y 0))
2
)
((and (minusp x) (minusp y))
3
)
((and (> x 0) (minusp y))
4
)
((and (> x 0) (zerop y))
5
)
((and (zerop x) (> y 0))
6
)
((and (minusp x) (zerop y))
7
)
((and (minusp y) (zerop x))
8
)
)
)

newer · 发表于 2013-11-4 17:38:10

st788796 发表于 2013-11-4 14:19
坐标（x y）本身就代表了位置

修改了代码，加入了基点

st788796 · 发表于 2013-11-4 17:42:24

newer 发表于 2013-11-4 17:38
修改了代码，加入了基点

加了基点就是用(mapcar '- pt pj)

aeo · 发表于 2013-11-8 00:44:17

;;四个象限 1~4象限分别为 1 2 4 8
(defun 4pos(p / ang a b)
(setq ang(angle '(0 0 0) p)
a(if(>=(sin ang)0)3 12)
b(if(>=(cos ang)0)9 6)
)
(logand a b)
)

这样写有好处，很多判断可以用boole运算来做
比如判断鼠标从一个象限离开又回到这个象限，要用1234来表示是很复杂的，用boole就很方便。

Free-Lancer · 发表于 2013-11-8 07:29:06

aeo 发表于 2013-11-8 00:44
这样写有好处，很多判断可以用boole运算来做
比如判断鼠标从一个象限离开又回到这个象限，要用1234来表示 ...

够专业，轴上一般少用

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

[点表] (XD::Pnt:Quadrant)测试点在笛卡尔坐标系的位置

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

评分

相关帖子

点评

点评

点评

点评

点评