;;[功能] 判断多段线自交

自贡黄明儒

1. ;;[功能] 判断多段线自交
   
2. ;;自贡黄明儒 2014.11.24(HH_LWPOLYLINEInters (car(entsel)))
   
3. (defun HH_LWPOLYLINEInters (e / E0 I P PTS)
   
4.   (setq pts (Entity:Box e))
   
5.   (setq p (mapcar '- (car pts) '(2 2)))
   
6.   (setq pts (list p (cadr pts)))
   
7.   (setq p (mapcar '+ (car pts) '(1 1)))
   
8.   (setvar "nomutt" 1)
   
9.   (setq e0 (entlast))
   
10.   (APPLY 'Make-Rectange pts)
    
11.   (APPLY 'command (list "BOUNDARY" p))
    
12.   (while (not (equal (getvar "cmdnames") "")) (apply 'command (list "")))
    
13.   (setvar "nomutt" 0)
    
14.   (cond        ((entnext e0)
    
15.          (setq i 0)
    
16.          (while (setq e (entnext e0)) (setq i (1+ i)) (entdel e))
    
17.          (> i 1)
    
18.         )
    
19.   )
    
20. )
    
21. ;;[功能] 实体包围盒2角点
    
22. (defun Entity:Box (obj / bp up)
    
23.   (cond ((equal (type obj) 'ENAME) (setq obj (vlax-ename->vla-object obj))))
    
24.   (vla-getboundingbox obj 'bp 'up)
    
25.   (list (safearray-value bp) (safearray-value up))
    
26. )
    
27. 
    
28. ;;164.30 [功能] 构造矩形 by highflybird
    
29. (defun Make-Rectange (pt1 pt2)
    
30.   (entmake
    
31.     (list
    
32.       '(0 . "LWPOLYLINE")                                    ;轻多段线
    
33.       '(100 . "AcDbEntity")
    
34.       '(100 . "AcDbPolyline")
    
35.       '(90 . 4)                                                    ;四个顶点
    
36.       '(70 . 1)                                                    ;闭合
    
37.       ;;(cons 38 (caddr pt1))                                    ;高程
    
38.       (cons 10 (list (car pt1) (cadr pt1)))                    ;左下角
    
39.       (cons 10 (list (car pt2) (cadr pt1)))                    ;右下角
    
40.       (cons 10 (list (car pt2) (cadr pt2)))                    ;右上角
    
41.       (cons 10 (list (car pt1) (cadr pt2)))                    ;左上角
    
42.       (cons 210 '(0 0 1))                                    ;法线方向
    
43.     )
    
44.   )
    
45. )
    

;;[功能] 判断多段线自交<br /> ;;自贡黄明儒 2014.11.24(HH_LWPOLYLINEInters (car(entsel)))<br /> (defun HH_LWPOLYLINEInters (e / E0 I P PTS)<br />   (setq pts (Entity:Box e))<br />   (setq p (mapcar '- (car pts) '(2 2)))<br />   (setq pts (list p (cadr pts)))<br />   (setq p (mapcar '+ (car pts) '(1 1)))<br />   (setvar "nomutt" 1)<br />   (setq e0 (entlast))<br />   (APPLY 'Make-Rectange pts)<br />   (APPLY 'command (list "BOUNDARY" p))<br />   (while (not (equal (getvar "cmdnames") "")) (apply 'command (list "")))<br />   (setvar "nomutt" 0)<br />   (cond        ((entnext e0)<br />          (setq i 0)<br />          (while (setq e (entnext e0)) (setq i (1+ i)) (entdel e))<br />          (> i 1)<br />         )<br />   )<br /> )<br /> ;;[功能] 实体包围盒2角点<br /> (defun Entity:Box (obj / bp up)<br />   (cond ((equal (type obj) 'ENAME) (setq obj (vlax-ename->vla-object obj))))<br />   (vla-getboundingbox obj 'bp 'up)<br />   (list (safearray-value bp) (safearray-value up))<br /> )<br /> <br /> ;;164.30 [功能] 构造矩形 by highflybird<br /> (defun Make-Rectange (pt1 pt2)<br />   (entmake<br />     (list<br />       '(0 . "LWPOLYLINE")                                    ;轻多段线<br />       '(100 . "AcDbEntity")<br />       '(100 . "AcDbPolyline")<br />       '(90 . 4)                                                    ;四个顶点<br />       '(70 . 1)                                                    ;闭合<br />       ;;(cons 38 (caddr pt1))                                    ;高程<br />       (cons 10 (list (car pt1) (cadr pt1)))                    ;左下角<br />       (cons 10 (list (car pt2) (cadr pt1)))                    ;右下角<br />       (cons 10 (list (car pt2) (cadr pt2)))                    ;右上角<br />       (cons 10 (list (car pt1) (cadr pt2)))                    ;左上角<br />       (cons 210 '(0 0 1))                                    ;法线方向<br />     )<br />   )<br /> )<br />

caogis

这个理论应用得也很独特

鱼与熊掌

shafa/~~~~~~~~~~~~~~~~~

fan_zh

黄工高产啊，收藏了

Gu_xl

提供一种方法：
将多段线offset一个很小的数值d,然后再将偏移后的多段线偏移 -d,偏移回去后的多段线的长度若和原多段线长度一致，则多段线是非自交的，否则为自交多段线！

机械工程师

g板的方法要测试才清楚。
自相交以为着有封闭区域，偏移时会自动分为几块偏移。
因此只要偏移回来的长度不一致，则可肯定自相交。
一致则很大几率不相交。

伪书虫86

这个偏移有点高深