如和判定某一个点是否在由多段线组成的闭合框内？

katamoto

背景：用模型空间获取唯一的一个元素，就是多段线（不是直线）组合成的闭合框，现在要判断某一个指定点是否是在这个闭合框内，如何实现，谢谢大侠
(defun c: ()  
  (vl-load-com)
  (setq myacad (vlax-get-acad-object))
  (setq mydoc (vla-get-activedocument myacad))
  (setq myms (vla-get-modelspace mydoc)
  (setq myen (vla-item myms 0))

(setq pt (list x0 y0 ))
......
......
)

请帮我补充省略号的内容吧，谢谢。可以用GetBoundingBox方法吗，如果多边形外框不规则有凹进去的可以么

katamoto

自己给自己钉一下，以防止被沉下去。。。。

lyqiezi

，曲线救国，在要确认的点上画个point，特殊图层，用多线段端点作为ssget的的框选点，如果选得到，就在里面，否则就不在

katamoto

这个倒是一个有意思的思路啊，我还真没想到，搜索了一下也没看到有人用过这个方法。。。

ssget框选用2个点表示矩形范围的常见，用多个点框选也可以么，

学的不够，提出问题如果有些小白，莫介意哈。

ZZXXQQ

2. (defun ptinpl (pt)
   
3. (if (and (setq s1 (entsel "\n选择多义线: "))
   
4.          (setq ent (entget(car s1)))
   
5.          (= (cdr(assoc 0 ent)) "LWPOLYLINE")) (progn
   
6.   (setq ptlst (list))
   
7.   (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   
8.   (setq anglst (mapcar '(lambda (x) (angle pt x)) ptlst))
   
9.   (setq ang (apply '+ (mapcar '- anglst (cdr anglst))))
   
10.   (equal ang (+ pi pi) 1e-5)
    
11. ))
    
12. )
    

(defun ptinpl (pt)<br /> (if (and (setq s1 (entsel "\n选择多义线: "))<br />          (setq ent (entget(car s1)))<br />          (= (cdr(assoc 0 ent)) "LWPOLYLINE")) (progn<br />   (setq ptlst (list))<br />   (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))<br />   (setq anglst (mapcar '(lambda (x) (angle pt x)) ptlst))<br />   (setq ang (apply '+ (mapcar '- anglst (cdr anglst))))<br />   (equal ang (+ pi pi) 1e-5)<br /> ))<br /> )<br />

自贡黄明儒

用offset，可能是不错的选择

2. 
   
3. ;;164.43 [功能] 点在封闭多段线内返回T;线上0;外nil
   
4. ;;(PtInorOut (car(entsel))(getpoint))
   
5. (defun PtInorOut (en p / AREA AREA1 EN1 PP)
   
6.   (setq pp (vlax-curve-getclosestpointto en (trans p 1 0)))
   
7.   (if (equal pp p 1e-8)
   
8.     0
   
9.     (progn
   
10.       (setq area (vlax-get (vlax-ename->vla-object en) 'area))
    
11.       (command "_.offset" "" en p "")(setq en1(entlast))
    
12.       (setq area1 (vlax-get (vlax-ename->vla-object en1) 'area))
    
13.       (entdel en1)
    
14.       (> area1 area)
    
15.     )
    
16.   )
    
17. )
    

<br /> ;;164.43 [功能] 点在封闭多段线内返回T;线上0;外nil<br /> ;;(PtInorOut (car(entsel))(getpoint))<br /> (defun PtInorOut (en p / AREA AREA1 EN1 PP)<br />   (setq pp (vlax-curve-getclosestpointto en (trans p 1 0)))<br />   (if (equal pp p 1e-8)<br />     0<br />     (progn<br />       (setq area (vlax-get (vlax-ename->vla-object en) 'area))<br />       (command "_.offset" "" en p "")(setq en1(entlast))<br />       (setq area1 (vlax-get (vlax-ename->vla-object en1) 'area))<br />       (entdel en1)<br />       (> area1 area)<br />     )<br />   )<br /> )<br />

katamoto

ZZXXQQ 发表于 2014-10-22 21:28

能否把最后两行简单解释一下，看了一下，关于这2行其内的算法和语句不是很懂，谢谢。

lsjj

轉一圈360度

zzyong00

射线法，是常用的方法

lyqiezi

(ssget "wp" ptlist)可以选择
还有一个思路，找出距离目标点最近的一个端点，将目标点插在最近端点的前后各一次，计算n+1点多线段围成的面积（原先为n点多线段），只要有一次面积比原面积小，判断为框框内，两次都大，判断为框框外。
当然，这个只是一个猜想，也不懂怎么证明