（XD::Pnt:IsBetween）判断点是否在两点之间

newer

借用图片 http://bbs.xdcad.net/thread-704109-1-1.html

1. (defun XD::Pnt:IsBetween (pnt p1 p2 / v1 v2 vx)
   
2.    (setq vx (mapcar '- p2 p1)
   
3.          v1 (mapcar '- pnt p1)
   
4.          v2 (mapcar '- pnt p2)
   
5.    )
   
6.    (< (* (xdrx_vector_dotproduct v1 vx)
   
7.          (xdrx_vector_dotproduct v2 vx)
   
8.       ) 0
   
9.    )
   
10. )
    
11. 
    

(defun XD::Pnt:IsBetween (pnt p1 p2 / v1 v2 vx)<br />    (setq vx (mapcar '- p2 p1)<br />          v1 (mapcar '- pnt p1)<br />          v2 (mapcar '- pnt p2)<br />    )<br />    (< (* (xdrx_vector_dotproduct v1 vx)<br />          (xdrx_vector_dotproduct v2 vx)<br />       ) 0<br />    )<br /> )<br /> <br />