本帖最后由 开心无惧 于 2025-11-4 09:43 编辑

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


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



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











网友答: 本帖最后由 llsheng_73 于 2025-11-3 13:53 编辑

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



网友答: 本帖最后由 hhh454 于 2025-11-1 14:14 编辑



  1. (defun c:tt ( / *error* oldCmdEcho oldOSMode ss allPoints ptCount)

  3.   ;;; 错误处理函数 ;;;
  4.   (defun *error* (msg)
  5.     (if oldOSMode (setvar "OSMODE" oldOSMode))
  6.     (if oldCmdEcho (setvar "CMDECHO" oldCmdEcho))
  7.     (princ (strcat "\n错误: " msg))
  8.   )

  10.   ;;; 保存系统变量状态 ;;;
  11.   (setq oldCmdEcho (getvar "CMDECHO"))
  12.   (setq oldOSMode (getvar "OSMODE"))
  13.   (setvar "CMDECHO" 0)  ; 关闭命令回显
  14.   (setvar "OSMODE" 0)   ; 关闭对象捕捉

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

  86. (princ "\n输入 tt 启动插件")


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

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





网友答: ex延申就行了 你这个都是方正的

网友答: 用 J 命令不行吗

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

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

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

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

网友答: 本帖最后由 guosheyang 于 2025-11-1 09:04 编辑

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

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

网友答: 本帖最后由 开心无惧 于 2025-11-3 13:45 编辑
你有种再说一遍 发表于 2025-10-31 20:29
方案一:
筛选向量夹角一致的,每个角度为一组,组a.
按照组把逆角度旋转,此时全部都是x轴平行,按照y排序,得 ...

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

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

谢谢 按共线检查的方法
  • 上一篇：非等距偏移
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025