多边形多重包含关系的分析

重慶崽兒

Gu_xl 发表于 2013-4-1 13:06
判断两个多边形之间的关系，可利用面域来判断！
假设将两个多边形转成面域1和面域2，分别计算出面域1和面域 ...

针对此例，感觉不妥
因为这样没办法判断内部其他颜色的多边形到底是哪个白色多边形里面的，况且还得分清楚第一层第二层第三层乃至第四层
小子妄语，G版勿怪

xiabin68

我直接用坐标选择，有就把面积删了，没有就不删。

树櫴希德

$
; 错误: ssget 列表值错误
_$

树櫴希德

llsheng_73 发表于 2013-10-18 12:51
这就是程序的一部分，你可以把它当成一个函数用到你程序中，先测试下返回的表是什么样子自己决定怎么用它 ...

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
3. 
   
4. (defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)
   
5.    (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)
   
6.    (cond((="LWPOLYLINE"et)
   
7.          (repeat(length a)(setq b (nth n a) n (+ n 1))
   
8.            (if (= 10 (car b))(progn
   
9.                                (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))
   
10.                                (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
    
11.                                  (setq p (list q))))
    
12.              )))
    
13.         ((="POLYLINE"et)
    
14.          (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
    
15.          (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")
    
16.            (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))
    
17.            (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
    
18.              (setq p (list q)))
    
19.            (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))
    
20.          (setq p(reverse p))
    
21.          ))
    
22.    P)
    
23. ;;;;
    
24. 
    
25. (defun SStoES(s / m n e)
    
26.   (if s(progn
    
27.   (setq n(sslength s)m 0)
    
28.   (while(< m n)
    
29.     (setq e(if e(append e(list(ssname s m)))(list(ssname s m)))m(1+ m))))
    
30.     )e)
    
31. (defun dzfx(s / e s1 a b c d l)
    
32.   (setq ss(SStoES s))
    
33.   (if ss(progn
    
34.   (foreach e ss(setq ss(subst(list e "" nil)e ss)))
    
35.   (foreach e ss
    
36.     (setq f(car e)p(plinexy f)f1(assoc(nth 1 e) ss)
    
37.    s1(SStoES(ssget"WP" p(list(cons 0 "LWPOLYLINE,POLYLINE")(cons 8 LDK)
    
38.         (CONS -4 "<OR")(CONS 70 129)(CONS 70 1)(CONS -4 "OR>")))))
    
39.     (if f1(progn
    
40.      (setq d(nth 2 f1))
    
41.      (foreach a s1(if(member a d)(setq b(assoc a ss)c(nth 1 b)
    
42.            ss(subst(subst f c b)b ss)l 0)))
    
43.      (setq d(vl-remove-if(FUNCTION(LAMBDA(a)(member a s1)))d))
    
44.   (setq ss(subst(subst d(nth 2 f1)f1)f1 ss)l 0)
    
45.      ))
    
46.     (setq d nil)
    
47.     (foreach a s1
    
48.       (setq b(assoc a ss)c(nth 1 b)d nil)
    
49.       (if(null(member c s1))(setq ss(subst(subst f c b)b ss)l 0)
    
50.         (progn(if c(setq b(assoc c ss)
    
51.     c(nth 2 b)
    
52.     ss(subst(subst(vl-remove a c)c b)b ss)l 0))
    
53.    (setq d(if d(append d(list a))(list a))))))
    
54.     (setq s1(vl-remove-if(FUNCTION(LAMBDA(a)(member a d)))s1)
    
55.    ss(subst(subst s1(nth 2 e)e)e ss)l 0)
    
56.     )
    
57.   ))
    
58.   (princ)
    
59.   )
    
60. 
    
61. (setq ddd (ssget '((0 . "lwpolyline")   )))
    
62. (setq opo (dzfx ddd))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br /> (defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)<br />    (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)<br />    (cond((="LWPOLYLINE"et)<br />          (repeat(length a)(setq b (nth n a) n (+ n 1))<br />            (if (= 10 (car b))(progn<br />                                (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))<br />                                (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))<br />                                  (setq p (list q))))<br />              )))<br />         ((="POLYLINE"et)<br />          (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))<br />          (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")<br />            (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))<br />            (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))<br />              (setq p (list q)))<br />            (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))<br />          (setq p(reverse p))<br />          ))<br />    P)<br /> ;;;;<br /> <br /> (defun SStoES(s / m n e)<br />   (if s(progn<br />   (setq n(sslength s)m 0)<br />   (while(< m n)<br />     (setq e(if e(append e(list(ssname s m)))(list(ssname s m)))m(1+ m))))<br />     )e)<br /> (defun dzfx(s / e s1 a b c d l)<br />   (setq ss(SStoES s))<br />   (if ss(progn<br />   (foreach e ss(setq ss(subst(list e "" nil)e ss)))<br />   (foreach e ss<br />     (setq f(car e)p(plinexy f)f1(assoc(nth 1 e) ss)<br />    s1(SStoES(ssget"WP" p(list(cons 0 "LWPOLYLINE,POLYLINE")(cons 8 LDK)<br />         (CONS -4 "<OR")(CONS 70 129)(CONS 70 1)(CONS -4 "OR>")))))<br />     (if f1(progn<br />      (setq d(nth 2 f1))<br />      (foreach a s1(if(member a d)(setq b(assoc a ss)c(nth 1 b)<br />            ss(subst(subst f c b)b ss)l 0)))<br />      (setq d(vl-remove-if(FUNCTION(LAMBDA(a)(member a s1)))d))<br />   (setq ss(subst(subst d(nth 2 f1)f1)f1 ss)l 0)<br />      ))<br />     (setq d nil)<br />     (foreach a s1<br />       (setq b(assoc a ss)c(nth 1 b)d nil)<br />       (if(null(member c s1))(setq ss(subst(subst f c b)b ss)l 0)<br />         (progn(if c(setq b(assoc c ss)<br />     c(nth 2 b)<br />     ss(subst(subst(vl-remove a c)c b)b ss)l 0))<br />    (setq d(if d(append d(list a))(list a))))))<br />     (setq s1(vl-remove-if(FUNCTION(LAMBDA(a)(member a d)))s1)<br />    ss(subst(subst s1(nth 2 e)e)e ss)l 0)<br />     )<br />   ))<br />   (princ)<br />   )<br /> <br /> (setq ddd (ssget '((0 . "lwpolyline")   )))<br /> (setq opo (dzfx ddd))

tryhi

源码里面的dzfx函数是不带参数的，为何楼主说(dzfx s)？

flowerson

嵌套比较多的会有错误。

yjtdkj

Gu_xl 发表于 2013-4-1 13:06
判断两个多边形之间的关系，可利用面域来判断！
假设将两个多边形转成面域1和面域2，分别计算出面域1和面 ...

学习了，mark