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

张和平

2. ;判断点相对于线的位置  by PEACE 2013/05/27
   
3. ;点在线上返回0，点在线上方返回1，点在线下方返回-1
   
4. (defun PEACE:Position2Line(TheLine ThePoint / CPt symbol)
   
5.   (setq CPt (vlax-curve-getClosestPointTo (vlax-ename->vla-object TheLine) ThePoint T))
   
6.   (if (= (distance CPt ThePoint) 0)
   
7.     (setq symbol 0) ;点在线上返回0
   
8.     (if (and (> (angle CPt ThePoint) 0) (<= (angle CPt ThePoint) pi))
   
9.       (setq symbol 1) ;点在线上方返回1
   
10.       (setq symbol -1) ;点在线下方返回-1
    
11.     )
    
12.   )
    
13.   symbol
    
14. )

;判断点相对于线的位置  by PEACE 2013/05/27<br /> ;点在线上返回0，点在线上方返回1，点在线下方返回-1<br /> (defun PEACE:Position2Line(TheLine ThePoint / CPt symbol)<br />   (setq CPt (vlax-curve-getClosestPointTo (vlax-ename->vla-object TheLine) ThePoint T))<br />   (if (= (distance CPt ThePoint) 0) <br />     (setq symbol 0) ;点在线上返回0<br />     (if (and (> (angle CPt ThePoint) 0) (<= (angle CPt ThePoint) pi))<br />       (setq symbol 1) ;点在线上方返回1<br />       (setq symbol -1) ;点在线下方返回-1<br />     )<br />   )<br />   symbol<br /> )

123523058

很好不错很好不错很好不错很好不错很好不错

zy412452785

謝謝大師學習...學習了

taoyi0727

好东西学习了