检查折线间有无裂缝，请各高手提供个算法[已解决]

hejiazhao

G版说的好像是这个意思，能不能麻烦你说一下算法的思路

梦醒才知原是梦

Gu_xl 发表于 2012-5-2 15:31

请问G，这个检查的物体是需要块还是。。。。我自己弄一个图为什么没法选定对象

soly2006

哈哈，谢谢GU版，就是这个效果。
自己水平太次了，我搞了几天的烂尾楼可以推倒了。

soly2006

Gu_xl 发表于 2012-5-2 15:31

GU版请看一下，这种情况下不能处理，就是少结点的情况下，可能会出现。是否可以以结点为中心，对一定范围的线进行点对线距离求算，然后标出有小距离的位置，只是标有重复情况。

Gu_xl

soly2006 发表于 2012-5-3 17:23
GU版请看一下，这种情况下不能处理，就是少结点的情况下，可能会出现。是否可以以结点为中心，对一定范围 ...

这也是比较不错的思路！

xyp1964

边界检查：

soly2006

xyp1964 发表于 2012-5-3 19:10
边界检查：

院长把交叉、裂缝、冗余点检查集成，超强！

Gu_xl

soly2006 发表于 2012-5-4 11:17
院长把交叉、裂缝、冗余点检查集成，超强！

命令:zxjxjc

1. ;;仅供思路参考
   
2. (defun c:ZXJXJC  (/ MKCIRCLE GETBOX N NN PICKBOX SS
   
3.   BOXSIZE S I L PL OLDPT PTBOX
   
4.   PLS PLSS FLAG
   
5.         ) ;_ /
   
6. 
   
7.   (defun mkcircle  (pt r)
   
8.     (entmake (list '(0 . "circle")
   
9.                    (cons 10 pt)
   
10.                    (cons 40 r)
    
11.                    (cons 62 1)
    
12.                    (cons 8 "检查标记")))
    
13.     )
    
14.   (defun getbox (pt size)
    
15.     (list (polar pt (* pi 1.25) (sqrt (* 0.5 size size)))
    
16.    (polar pt (* pi 0.25) (sqrt (* 0.5 size size)))
    
17.    )
    
18.     )
    
19.   (setierr)
    
20.   (setq n 0 nn 0 pickbox (getvar 'pickbox))
    
21.   (setvar 'pickbox 5)
    
22.   (while (progn
    
23.            (princ "\n选择要检查的物体:")
    
24.            (setq ss (ssget '((0 . "lwpolyline"))))
    
25.            )
    
26.     (gxl-SYS-STORESVIEWSIZE)
    
27.     (gxl-SYS-ZOOM_WINDOW (gxl-GETSSBOX ss))
    
28.     (setq boxsize (gxl-SYS-GETPICKBOX))
    
29.     (setq s nil n 0)
    
30.   (repeat (setq i (sslength ss))
    
31.     (setq s (cons (ssname ss (setq i (1- i))) s))
    
32.     )
    
33.     (foreach en         s
    
34.       (setq l (vl-remove en s))
    
35.       (setq pl (mapcar 'cdr
    
36.                        (vl-remove-if-not
    
37.                          '(lambda (x) (= 10 (car x)))
    
38.                          (entget en)))
    
39.      oldpt nil)
    
40.       (foreach pt  pl
    
41. (if (equal pt oldpt 1e-6)
    
42.    (progn
    
43.   (mkcircle pt (* boxsize 2))
    
44.   (setq n (1+ n))
    
45.        )
    
46.    )
    
47. (setq oldpt pt)
    
48. (setq ptbox (getbox pt boxsize))
    
49. (setq pls (ssget "c" (car ptbox) (cadr ptbox) '((0 . "lwpolyline"))))
    
50. (if pls
    
51.    (progn
    
52.      (setq plss nil)
    
53.      (repeat (setq i (sslength pls))
    
54.        (setq plss (cons (ssname pls (setq i (1- i))) plss))
    
55.      ) ;_ repeat
    
56.      (setq Flag
    
57.      (vl-some
    
58.        '(lambda (x)
    
59.    (not
    
60.    (equal (vlax-curve-getclosestpointto en pt)
    
61.           (vlax-curve-getclosestpointto x pt)
    
62.           1e-6
    
63.    ) ;_ equal
    
64.    )
    
65.         ) ;_ lambda
    
66.        plss
    
67.      ) ;_ vl-some
    
68.      ) ;_ setq
    
69.      (if Flag
    
70.        (progn
    
71.   (mkcircle pt (* boxsize 2))
    
72.   (setq n (1+ n))
    
73.        ) ;_ progn
    
74.      ) ;_ if
    
75.    ) ;_ progn
    
76. ) ;_ if
    
77.         )
    
78.       )
    
79.     (gxl-SYS-RESTORESVIEWSIZE)
    
80.     (princ (strcat "\n发现 " (itoa n) "处问题:"))
    
81.     (setq nn (+ n nn))
    
82.     )
    
83.   (princ (strcat "\n总共发现 " (itoa nn) "处问题:"))
    
84.   (setvar 'pickbox pickbox)
    
85.   (reerr)
    
86.   (princ)
    
87.   )
    
88. 
    
89. (princ "\n折线间隙检查 By 明经通道 Gu_xl 命令:ZXJXJC")
    

;;仅供思路参考<br /> (defun c:ZXJXJC  (/ MKCIRCLE GETBOX N NN PICKBOX SS<br />   BOXSIZE S I L PL OLDPT PTBOX<br />   PLS PLSS FLAG<br />         ) ;_ /<br /> <br />   (defun mkcircle  (pt r)<br />     (entmake (list '(0 . "circle")<br />                    (cons 10 pt)<br />                    (cons 40 r)<br />                    (cons 62 1)<br />                    (cons 8 "检查标记")))<br />     )<br />   (defun getbox (pt size)<br />     (list (polar pt (* pi 1.25) (sqrt (* 0.5 size size)))<br />    (polar pt (* pi 0.25) (sqrt (* 0.5 size size)))<br />    )<br />     )<br />   (setierr)<br />   (setq n 0 nn 0 pickbox (getvar 'pickbox))<br />   (setvar 'pickbox 5)<br />   (while (progn<br />            (princ "\n选择要检查的物体:")<br />            (setq ss (ssget '((0 . "lwpolyline"))))<br />            )<br />     (gxl-SYS-STORESVIEWSIZE)<br />     (gxl-SYS-ZOOM_WINDOW (gxl-GETSSBOX ss))<br />     (setq boxsize (gxl-SYS-GETPICKBOX))<br />     (setq s nil n 0)<br />   (repeat (setq i (sslength ss))<br />     (setq s (cons (ssname ss (setq i (1- i))) s))<br />     )<br />     (foreach en         s<br />       (setq l (vl-remove en s))<br />       (setq pl (mapcar 'cdr<br />                        (vl-remove-if-not<br />                          '(lambda (x) (= 10 (car x)))<br />                          (entget en)))<br />      oldpt nil)<br />       (foreach pt  pl<br /> (if (equal pt oldpt 1e-6)<br />    (progn<br />   (mkcircle pt (* boxsize 2))<br />   (setq n (1+ n))<br />        )<br />    )<br /> (setq oldpt pt)<br /> (setq ptbox (getbox pt boxsize))<br /> (setq pls (ssget "c" (car ptbox) (cadr ptbox) '((0 . "lwpolyline"))))<br /> (if pls<br />    (progn<br />      (setq plss nil)<br />      (repeat (setq i (sslength pls))<br />        (setq plss (cons (ssname pls (setq i (1- i))) plss))<br />      ) ;_ repeat<br />      (setq Flag<br />      (vl-some<br />        '(lambda (x)<br />    (not<br />    (equal (vlax-curve-getclosestpointto en pt)<br />           (vlax-curve-getclosestpointto x pt)<br />           1e-6<br />    ) ;_ equal<br />    )<br />         ) ;_ lambda<br />        plss<br />      ) ;_ vl-some<br />      ) ;_ setq<br />      (if Flag<br />        (progn<br />   (mkcircle pt (* boxsize 2))<br />   (setq n (1+ n))<br />        ) ;_ progn<br />      ) ;_ if<br />    ) ;_ progn<br /> ) ;_ if<br />         )<br />       )<br />     (gxl-SYS-RESTORESVIEWSIZE)<br />     (princ (strcat "\n发现 " (itoa n) "处问题:"))<br />     (setq nn (+ n nn))<br />     )<br />   (princ (strcat "\n总共发现 " (itoa nn) "处问题:"))<br />   (setvar 'pickbox pickbox)<br />   (reerr)<br />   (princ)<br />   )<br /> <br /> (princ "\n折线间隙检查 By 明经通道 Gu_xl 命令:ZXJXJC")<br />

梦醒才知原是梦

请问楼主，这个检查的对象必须两个块嘛。。还是一般的线就行了？

jxjaxa

看看 主要是为了学悍将