如何判断多段线的包含关系

qiuhai1991

黄线被红线完全包含，这个有什么办法可以判断出来，主要用于去重叠的应用

tryhi

2. 
   
3. (defun c:tt ()
   
4.   (setq s1(car(entsel "选择大线"))
   
5.         s2(car(entsel "选择小线")))
   
6.   (setq lst (Vertexs s2))
   
7.   (if (pt-in lst s1)(princ "\n包含关系")(princ "\n非包含关系"))
   
8.   (prin1)
   
9. )
   
10. (defun pt-in(lst ename)
    
11.   (setq i 0)
    
12.   (setq n (length lst))
    
13.   (while (and(< (setq i (1+ i)) n)(= (distance (vlax-curve-getClosestPointTo ename (setq pt (nth i lst))) pt)0)))
    
14.   (setq ret(if (< i n) nil T))
    
15.   )
    
16. (defun Vertexs (s1 / lst);取得多段线顶点表
    
17.   (setq  lst (entget s1)
    
18.     lst (vl-remove-if-not '(lambda (x) (= (car x) 10)) lst)
    
19.     lst (mapcar 'cdr lst)
    
20.   )
    
21. )
    

<br /> (defun c:tt ()<br />   (setq s1(car(entsel "选择大线"))<br />         s2(car(entsel "选择小线")))<br />   (setq lst (Vertexs s2))<br />   (if (pt-in lst s1)(princ "\n包含关系")(princ "\n非包含关系"))<br />   (prin1)<br /> )<br /> (defun pt-in(lst ename)<br />   (setq i 0)<br />   (setq n (length lst))<br />   (while (and(< (setq i (1+ i)) n)(= (distance (vlax-curve-getClosestPointTo ename (setq pt (nth i lst))) pt)0)))<br />   (setq ret(if (< i n) nil T))<br />   )<br /> (defun Vertexs (s1 / lst);取得多段线顶点表<br />   (setq  lst (entget s1)<br />     lst (vl-remove-if-not '(lambda (x) (= (car x) 10)) lst)<br />     lst (mapcar 'cdr lst)<br />   )<br /> )<br />

q3_2006

(equal 0 (distance p (vlax-curve-getClosestPointTo e p)) 1e-6)

qiuhai1991

楼上的看不懂，点到线距离，然后？

llsheng_73

tryhi 发表于 2015-9-29 23:41

1. (defun c:tt (/ s1 s2)
   
2.   (setq s1(car(entsel "选择大线\n"))
   
3.         s2(car(entsel "选择小线\n")))
   
4.   (if(pt-in(Vertexs s2)s1)"非包含关系""包含关系")
   
5. )
   
6. (defun pt-in(lst ename)
   
7.   (apply'and(mapcar'(lambda(x)(equal(vlax-curve-getClosestPointTo ename x)x 1e-6))lst))
   
8. )
   
9. (defun Vertexs (e);取得多段线顶点表
   
10.   (mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(entget e)))
    
11. )

(defun c:tt (/ s1 s2)<br />   (setq s1(car(entsel "选择大线\n"))<br />         s2(car(entsel "选择小线\n")))<br />   (if(pt-in(Vertexs s2)s1)"非包含关系""包含关系")<br /> )<br /> (defun pt-in(lst ename)<br />   (apply'and(mapcar'(lambda(x)(equal(vlax-curve-getClosestPointTo ename x)x 1e-6))lst))<br /> )<br /> (defun Vertexs (e);取得多段线顶点表<br />   (mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)10))(entget e)))<br /> )

没有实际用处，因为正常使用情况下，很多时候那个小线可能被大线完全压住，这个时候要想选到小线很麻烦，另外，实际使用的时候也不可能这样去选。。。

q3_2006

llsheng_73 发表于 2015-9-30 01:25
没有实际用处，因为正常使用情况下，很多时候那个小线可能被大线完全压住，这个时候要想选到小线很麻 ...

真厉害..晚上全不用睡觉的..

cyq405

我也纠结于此问题。试过扩展工具overkill，但它把多段线变成了直线。