(XD::Pnt:OnWhichSide)判断点在一个平面的哪个方向

newer

1. (defun XD::Pnt:OnWhichSide (pt p1 direc / dot p2 v1 vy)
   
2.   (setq v1 (mapcar
   
3.              '-
   
4.              pt
   
5.              p1
   
6.            )
   
7.         vy (xdrx_vector_normalize direc)
   
8.         p2 (mapcar
   
9.              '+
   
10.              pt
    
11.              vy
    
12.            )
    
13.         dot (xdrx_vector_dotproduct v1 vy)
    
14.   )
    
15.   (cond
    
16.     ((equal dot 0.0 1e-5)
    
17.       0
    
18.     )
    
19.     ((< dot 0.0)
    
20.       1
    
21.     )
    
22.     (t
    
23.       2
    
24.     )
    
25.   )
    
26. )
    
27. 
    

(defun XD::Pnt:OnWhichSide (pt p1 direc / dot p2 v1 vy)<br />   (setq v1 (mapcar<br />              '-<br />              pt<br />              p1<br />            )<br />         vy (xdrx_vector_normalize direc)<br />         p2 (mapcar<br />              '+<br />              pt<br />              vy<br />            )<br />         dot (xdrx_vector_dotproduct v1 vy)<br />   )<br />   (cond<br />     ((equal dot 0.0 1e-5)<br />       0<br />     )<br />     ((< dot 0.0)<br />       1<br />     )<br />     (t<br />       2<br />     )<br />   )<br /> )<br /> <br />