[LISP程序]：请教问题

hnjzwql

请教用visual lisp语言如何判断一个点在某一封闭的图形（如多边形）内？

eachy

最初由 hnjzwql 发布
[B]请教用visual lisp语言如何判断一个点在某一封闭的图形（如多边
形）内？ [/B]

在以前的资料中翻出来一个。

2. 
   
3. ;;点 P 是否在多边形 PM 内
   
4. ;;If 'p' is in 'pm', return T.
   
5. ;;'mx' is a very long distance.
   
6. (defun ptinm (p pm / px p1 p2 tf tf1 tf2 mx)
   
7.   (setq mx 1e100)
   
8.   (setq        px (list (+ mx (car p)) (cadr p))
   
9.         p1 (last pm)
   
10.   )
    
11.   (foreach p2 pm
    
12.     (if        (inters p px p1 p2)
    
13.       (setq tf2        (if (> (cadr p1) (cadr p2))
    
14.                   1
    
15.                   0
    
16.                 )
    
17.             tf        (if (= tf1 tf2)
    
18.                   tf
    
19.                   (not tf)
    
20.                 )
    
21.             tf1        tf2
    
22.       )
    
23.       (setq tf1 nil)
    
24.     )
    
25.     (setq p1 p2)
    
26.   )
    
27.   tf
    
28. )

<br /> ;;点 P 是否在多边形 PM 内 <br /> ;;If 'p' is in 'pm', return T. <br /> ;;'mx' is a very long distance. <br /> (defun ptinm (p pm / px p1 p2 tf tf1 tf2 mx)<br />   (setq mx 1e100)<br />   (setq        px (list (+ mx (car p)) (cadr p))<br />         p1 (last pm)<br />   )<br />   (foreach p2 pm<br />     (if        (inters p px p1 p2)<br />       (setq tf2        (if (> (cadr p1) (cadr p2))<br />                   1<br />                   0<br />                 )<br />             tf        (if (= tf1 tf2)<br />                   tf<br />                   (not tf)<br />                 )<br />             tf1        tf2<br />       )<br />       (setq tf1 nil)<br />     )<br />     (setq p1 p2)<br />   )<br />   tf<br /> )