[LISP函数]判断点pt2相对于点pt1的位置

张和平

2. ;判断点pt2相对于点pt1的位置  by PEACE 2013/05/28
   
3. ;以pt1为中心，画横竖坐标系，pt2在第一象限时返回1，以此类推分别返回2,3,4
   
4. (defun PEACE:Position2Point(pt1 pt2 / symbol)
   
5.   (if (and (>= (car pt2) (car pt1)) (>= (cadr pt2) (cadr pt1)))
   
6.     (setq symbol 1)
   
7.     (if (and (< (car pt2) (car pt1)) (>= (cadr pt2) (cadr pt1)))
   
8.       (setq symbol 2)
   
9.       (if (and (< (car pt2) (car pt1)) (< (cadr pt2) (cadr pt1)))
   
10.         (setq symbol 3)
    
11.         (setq symbol 4)
    
12.       )
    
13.     )
    
14.   )
    
15.   symbol
    
16. )

;判断点pt2相对于点pt1的位置  by PEACE 2013/05/28<br /> ;以pt1为中心，画横竖坐标系，pt2在第一象限时返回1，以此类推分别返回2,3,4<br /> (defun PEACE:Position2Point(pt1 pt2 / symbol)<br />   (if (and (>= (car pt2) (car pt1)) (>= (cadr pt2) (cadr pt1)))<br />     (setq symbol 1)<br />     (if (and (< (car pt2) (car pt1)) (>= (cadr pt2) (cadr pt1)))<br />       (setq symbol 2)<br />       (if (and (< (car pt2) (car pt1)) (< (cadr pt2) (cadr pt1)))<br />         (setq symbol 3)<br />         (setq symbol 4)<br />       )<br />     )<br />   )<br />   symbol<br /> )

zhangq_cai1

有个还有两个点重合这种情况~~~~~~~~~~~~~~~~~~~~~~~~~~

张和平

zhangq_cai1 发表于 2013-8-16 09:08
有个还有两个点重合这种情况~~~~~~~~~~~~~~~~~~~~~~~~~~

额。。。精密。。。

pengfei2010

呵呵 这个确实点肯能重合:lol

Free-Lancer

用 Angle 判断不是更好?

1. (defun P2p (p1 p2 / an)
   
2.   (if (not (equal p1 p2 1e-9))
   
3.     (progn
   
4.       (setq an (angle p1 p2))
   
5.       (cond
   
6. ((and (<= 0. an)
   
7.        (< an (/ pi 2))
   
8.   )
   
9.   1
   
10. )
    
11. ((and (> an (/ pi 2))
    
12.        (<= an pi)
    
13.   )
    
14.   2
    
15. )
    
16. ((and (> an pi)
    
17.        (<= an (* 1.5 pi))
    
18.   )
    
19.   3
    
20. )
    
21. (t 4)
    
22.       )
    
23.     )
    
24.     nil
    
25.   )  
    
26. )

(defun P2p (p1 p2 / an)<br />   (if (not (equal p1 p2 1e-9))<br />     (progn<br />       (setq an (angle p1 p2))<br />       (cond<br /> ((and (<= 0. an)<br />        (< an (/ pi 2))<br />   )<br />   1<br /> )<br /> ((and (> an (/ pi 2))<br />        (<= an pi)<br />   )<br />   2<br /> )<br /> ((and (> an pi)<br />        (<= an (* 1.5 pi))<br />   )<br />   3<br /> )<br /> (t 4)<br />       )<br />     )<br />     nil<br />   )  <br /> )