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

开心无惧

功能：一次性把断开的矩形 ，对应的端点各自连接上；
          支持矩形可任意角度布置
          有大小两个矩形被打断，有8个外部端点需要两两相连接；


图上的打断虚线是示意的，实际没有这个线；
原图形：只有绿色的线；
新图形：新增红色的线；



请教大家，有好的思路可以推荐一下吗？

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)))))))

hhh454

1. (defun c:tt ( / *error* oldCmdEcho oldOSMode ss allPoints ptCount)
   
2. 
   
3.   ;;; 错误处理函数 ;;;
   
4.   (defun *error* (msg)
   
5.     (if oldOSMode (setvar "OSMODE" oldOSMode))
   
6.     (if oldCmdEcho (setvar "CMDECHO" oldCmdEcho))
   
7.     (princ (strcat "\n错误: " msg))
   
8.   )
   
9. 
   
10.   ;;; 保存系统变量状态 ;;;
    
11.   (setq oldCmdEcho (getvar "CMDECHO"))
    
12.   (setq oldOSMode (getvar "OSMODE"))
    
13.   (setvar "CMDECHO" 0)  ; 关闭命令回显
    
14.   (setvar "OSMODE" 0)   ; 关闭对象捕捉
    
15. 
    
16.   ;;; 主程序逻辑 ;;;
    
17.   (princ "\n请框选多段线(PLINE)和直线(LINE)对象: ")
    
18.   (if (setq ss (ssget '((0 . "LINE,LWPOLYLINE,POLYLINE"))))  ; 过滤选择类型
    
19.     (progn
    
20.       ; 遍历选择集中的所有对象
    
21.       (setq allPoints nil)
    
22.       (repeat (setq i (sslength ss))
    
23.         (setq ent (ssname ss (setq i (1- i))))
    
24.         (setq entData (entget ent))
    
25.         (setq objType (cdr (assoc 0 entData)))
    
26.         
    
27.         ; 根据不同对象类型提取顶点
    
28.         (cond
    
29.           ; 处理直线(LINE)
    
30.           ((= objType "LINE")
    
31.             (setq allPoints (cons (cdr (assoc 10 entData)) allPoints)) ; 起点
    
32.             (setq allPoints (cons (cdr (assoc 11 entData)) allPoints)) ; 终点
    
33.           )
    
34.          
    
35.           ; 处理轻量多段线(LWPOLYLINE)
    
36.           ((= objType "LWPOLYLINE")
    
37.             (foreach x entData
    
38.               (if (= (car x) 10)
    
39.                 (setq allPoints (cons (cdr x) allPoints))
    
40.               )
    
41.             )
    
42.           )
    
43.          
    
44.           ; 处理旧式多段线(POLYLINE)
    
45.           ((= objType "POLYLINE")
    
46.             (setq nextEnt (entnext ent))
    
47.             (while (and nextEnt
    
48.                        (not (eq (cdr (assoc 0 (entget nextEnt))) "SEQEND")))
    
49.               (setq vertexData (entget nextEnt))
    
50.               (if (assoc 10 vertexData)
    
51.                 (setq allPoints (cons (cdr (assoc 10 vertexData)) allPoints))
    
52.               )
    
53.               (setq nextEnt (entnext nextEnt))
    
54.             )
    
55.           )
    
56.         )
    
57.       )
    
58.       
    
59.       ; 反转点列表以保持原始顺序
    
60.       (setq allPoints (reverse allPoints))
    
61.       
    
62.       ; 提取点数量统计
    
63.       (setq ptCount (length allPoints))
    
64.       (princ (strcat "\n共提取 " (itoa ptCount) " 个顶点，自动创建闭合多边形"))
    
65.       
    
66.       ; 创建闭合连接线
    
67.       (command "_.PLINE")  ; 使用多段线命令
    
68.       (foreach pt allPoints
    
69.         (command pt)  ; 逐个添加点
    
70.       )
    
71.       (command "_close")  ; 自动闭合多边形
    
72.     )
    
73.     (princ "\n未选择到有效对象!")
    
74.    
    
75.      ; 删除原始对象
    
76.       (command "_.ERASE" ss "")
    
77.       (princ (strcat "\n已删除 " (itoa (sslength ss)) " 个原始对象"))
    
78.   )
    
79.   
    
80.   ;;; 恢复系统设置 ;;;
    
81.   (setvar "CMDECHO" oldCmdEcho)
    
82.   (setvar "OSMODE" oldOSMode)
    
83.   (princ)
    
84. )
    
85. 
    
86. (princ "\n输入 tt 启动插件")

(defun c:tt ( / *error* oldCmdEcho oldOSMode ss allPoints ptCount)<br /> <br />   ;;; 错误处理函数 ;;;<br />   (defun *error* (msg)<br />     (if oldOSMode (setvar "OSMODE" oldOSMode))<br />     (if oldCmdEcho (setvar "CMDECHO" oldCmdEcho))<br />     (princ (strcat "\n错误: " msg))<br />   )<br /> <br />   ;;; 保存系统变量状态 ;;;<br />   (setq oldCmdEcho (getvar "CMDECHO"))<br />   (setq oldOSMode (getvar "OSMODE"))<br />   (setvar "CMDECHO" 0)  ; 关闭命令回显 <br />   (setvar "OSMODE" 0)   ; 关闭对象捕捉 <br /> <br />   ;;; 主程序逻辑 ;;;<br />   (princ "\n请框选多段线(PLINE)和直线(LINE)对象: ")<br />   (if (setq ss (ssget '((0 . "LINE,LWPOLYLINE,POLYLINE"))))  ; 过滤选择类型 <br />     (progn <br />       ; 遍历选择集中的所有对象 <br />       (setq allPoints nil)<br />       (repeat (setq i (sslength ss))<br />         (setq ent (ssname ss (setq i (1- i))))<br />         (setq entData (entget ent))<br />         (setq objType (cdr (assoc 0 entData)))<br />         <br />         ; 根据不同对象类型提取顶点 <br />         (cond <br />           ; 处理直线(LINE)<br />           ((= objType "LINE")<br />             (setq allPoints (cons (cdr (assoc 10 entData)) allPoints)) ; 起点 <br />             (setq allPoints (cons (cdr (assoc 11 entData)) allPoints)) ; 终点 <br />           )<br />           <br />           ; 处理轻量多段线(LWPOLYLINE)<br />           ((= objType "LWPOLYLINE")<br />             (foreach x entData <br />               (if (= (car x) 10)<br />                 (setq allPoints (cons (cdr x) allPoints))<br />               )<br />             )<br />           )<br />           <br />           ; 处理旧式多段线(POLYLINE)<br />           ((= objType "POLYLINE")<br />             (setq nextEnt (entnext ent))<br />             (while (and nextEnt <br />                        (not (eq (cdr (assoc 0 (entget nextEnt))) "SEQEND")))<br />               (setq vertexData (entget nextEnt))<br />               (if (assoc 10 vertexData)<br />                 (setq allPoints (cons (cdr (assoc 10 vertexData)) allPoints))<br />               )<br />               (setq nextEnt (entnext nextEnt))<br />             )<br />           )<br />         )<br />       )<br />       <br />       ; 反转点列表以保持原始顺序 <br />       (setq allPoints (reverse allPoints))<br />       <br />       ; 提取点数量统计 <br />       (setq ptCount (length allPoints))<br />       (princ (strcat "\n共提取 " (itoa ptCount) " 个顶点，自动创建闭合多边形"))<br />       <br />       ; 创建闭合连接线 <br />       (command "_.PLINE")  ; 使用多段线命令 <br />       (foreach pt allPoints <br />         (command pt)  ; 逐个添加点 <br />       )<br />       (command "_close")  ; 自动闭合多边形 <br />     )<br />     (princ "\n未选择到有效对象!")<br />     <br />      ; 删除原始对象<br />       (command "_.ERASE" ss "")<br />       (princ (strcat "\n已删除 " (itoa (sslength ss)) " 个原始对象"))<br />   )<br />   <br />   ;;; 恢复系统设置 ;;;<br />   (setvar "CMDECHO" oldCmdEcho)<br />   (setvar "OSMODE" oldOSMode)<br />   (princ)<br /> )<br /> <br /> (princ "\n输入 tt 启动插件")

DeepSeek-R1-满血版（0528）辅助

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

qifeifei

ex延申就行了 你这个都是方正的

mokson

用 J 命令不行吗

开心无惧

mokson 发表于 2025-10-31 18:39
用 J 命令不行吗

图上的打断虚线是示意的，实际没有；

你有种再说一遍

方案一:
筛选向量夹角一致的,每个角度为一组,组a.
按照组把逆角度旋转,此时全部都是x轴平行,按照y排序,得到组b.
每个y行,min和max就是新line了.
(效率不高,多次旋转)

方案二:
延伸点是拐点,拐点在拐点集中.

guosheyang

线的起点  第二点 与另一条线的终点 或起点 共线 来判断连接点

edata

先分解为直线，
join合并直线
pe链接为多段线。

开心无惧

你有种再说一遍 发表于 2025-10-31 20:29
方案一:
筛选向量夹角一致的,每个角度为一组,组a.
按照组把逆角度旋转,此时全部都是x轴平行,按照y排序,得 ...

谢谢 方案一没有完全懂  方案二没太懂，拐点是什么意思？

开心无惧

guosheyang 发表于 2025-11-1 09:01
线的起点  第二点 与另一条线的终点 或起点 共线 来判断连接点

谢谢 按共线检查的方法