请教 把断开的矩形 自动连接上

开心无惧

edata 发表于 2025-11-1 10:55
先分解为直线，
join合并直线
pe链接为多段线。

谢谢
不连续的线 用JOIN合并不了

开心无惧

hhh454 发表于 2025-11-1 14:13
DeepSeek-R1-满血版（0528）辅助

复制上面的代码就行，一样的

非常谢谢 又补充了一些说明

开心无惧

qifeifei 发表于 2025-10-31 17:32
ex延申就行了 你这个都是方正的

谢谢 又补充了一些说明

yanshengjiang

我觉得用外包围函数比较好搞，取得外包围了，内框也能算出来。

xyp1964

开心无惧

xyp1964 发表于 2025-11-2 23:11

示意图是可以点选可以框选吗？

xyp1964

开心无惧 发表于 2025-11-3 11:05
示意图是可以点选可以框选吗？

仅表示实体都是4点多段线，点选和框选都可以

llsheng_73

取每条线的(起点 第二点)和(终点、倒数第二点)组成表,对每四个点进行共线检查，如果起点与终点都在（第二点、倒数第二点）所在直线段内，则连接(起点  终点)，则达到楼主需求

1. (defun PToLn(p p1 p2);;;点p到p1,p2所在直线分量
   
2.   (trans(mapcar'- p1 p) 0 (mapcar'- p1 p2)))
   
3. (defun s2e(s)
   
4.   (vl-remove'nil(mapcar'(lambda(x)(if(=(type(cadr x))'ename)(cadr x)))(ssnamex s))))
   
5. (defun c:tt(/ s p p1)
   
6.   (setq s(apply'append(mapcar(function(lambda(x / n)(setq n(vlax-curve-getendparam x))
   
7.        (list(list(vlax-curve-getpointatparam x 0)(vlax-curve-getpointatparam x 1))
   
8.       (list(vlax-curve-getpointatparam x n)(vlax-curve-getpointatparam x(1- n))))))
   
9.     (s2e(ssget'((0 . "lwpolyline")(-4 . "<not")(-4 . "&")(70 . 1)(-4 . "not>")))))))
   
10.   (while(setq p(car s)s(cdr s))
    
11.     (if(vl-some(function(lambda(x / d a b)
    
12.         (and(not(equal p(reverse x)1e-5))
    
13.             (setq d(distance(cadr p)(cadr x))
    
14.             a(PToLn(car p)(cadr p)(cadr x))
    
15.             b(PToLn(car x)(cadr x)(cadr p)))
    
16.             (equal(car a)0 1e-5)
    
17.             (equal(car b)0 1e-5)
    
18.             (< 0(caddr a)d)
    
19.             (< 0(caddr b)d)
    
20.             (setq p1 x))))s)
    
21.       (entmakex(mapcar'cons'(0 100 100 62 90 10 10)(list"LWPOLYLINE""AcDbEntity""AcDbPolyline"1 2(car p)(car p1)))))))

(defun PToLn(p p1 p2);;;点p到p1,p2所在直线分量<br />   (trans(mapcar'- p1 p) 0 (mapcar'- p1 p2)))<br /> (defun s2e(s)<br />   (vl-remove'nil(mapcar'(lambda(x)(if(=(type(cadr x))'ename)(cadr x)))(ssnamex s))))<br /> (defun c:tt(/ s p p1)<br />   (setq s(apply'append(mapcar(function(lambda(x / n)(setq n(vlax-curve-getendparam x))<br />        (list(list(vlax-curve-getpointatparam x 0)(vlax-curve-getpointatparam x 1))<br />       (list(vlax-curve-getpointatparam x n)(vlax-curve-getpointatparam x(1- n))))))<br />     (s2e(ssget'((0 . "lwpolyline")(-4 . "<not")(-4 . "&")(70 . 1)(-4 . "not>")))))))<br />   (while(setq p(car s)s(cdr s))<br />     (if(vl-some(function(lambda(x / d a b)<br />         (and(not(equal p(reverse x)1e-5))<br />             (setq d(distance(cadr p)(cadr x))<br />             a(PToLn(car p)(cadr p)(cadr x))<br />             b(PToLn(car x)(cadr x)(cadr p)))<br />             (equal(car a)0 1e-5)<br />             (equal(car b)0 1e-5)<br />             (< 0(caddr a)d)<br />             (< 0(caddr b)d)<br />             (setq p1 x))))s)<br />       (entmakex(mapcar'cons'(0 100 100 62 90 10 10)(list"LWPOLYLINE""AcDbEntity""AcDbPolyline"1 2(car p)(car p1)))))))

开心无惧

llsheng_73 发表于 2025-11-3 13:32
取每条线的(起点 第二点)和(终点、倒数第二点)组成表,对每四个点进行共线检查，如果起点与终点都在（第二点 ...

是这样的效果 非常感谢

依然小小鸟

不错的帖子 顶一下