如何合并表格

烟盒迷唇

如何通过框选，将部分分开的表格连在一起，代码该怎么写？表格由直线或者多段线绘制，如下图所示

烟盒迷唇

mikewolf2k 发表于 2021-6-3 09:23
选一次就可以了，取包围盒，包围盒有重叠的就合并。

非常感谢，已经搞定了。
(defun c:tt (/ cmde lst p1 ss ss1)
        (setq cmde (getvar "CMDECHO"))
        (setvar "CMDECHO" 0)
        (prompt "\n框选需要合并的表格：")
        (while (setq ss (ssget))
                (setq lst (reverse (get-mBox ss)))
                (setq p1 (caar lst) lst (cdr lst))
                (if (/= lst nil)
                        (foreach x lst
                                (setq ss1 (ssget "w" (car x) (cadr x)))
                                (vl-cmdf "_.move" ss1 "" "non" (list (caar x) (cadadr x)) "non" p1)
                                (setq p1 (polar p1 (* 1.5 pi) (distance (car x) (list (caar x) (cadadr x)))))
                        )
                        (prompt "\n没有需要合并的表格。")
                )
                (prompt "\n框选需要合并的表格：")
        )
        (setvar "CMDECHO" cmde)
        (prompt "\n表格合并完成！")
        (princ)
)

lee50310

664571221 发表于 2021-6-6 08:53
兄弟你可以贴一下吗，我按网站去找找到了这个  
wyb-get-mBox v1.1.1.lsp  怎么粘贴了不行啊

把11樓版主所貼程式中找到這行

(setq lst (reverse (get-mBox ss)))

改為

(setq lst (reverse (wyb-get-mBox ss)))

重新載入程式即可

烟盒迷唇

没人帮忙呀

vitalgg

像你上传的那个图一个单元格一条多段线的简单一些，
直线的话，就需要具体分析了。

烟盒迷唇

vitalgg 发表于 2021-6-2 10:04
像你上传的那个图一个单元格一条多段线的简单一些，
直线的话，就需要具体分析了。

直线做不了多段线的也得啊

Bao_lai

取得包围盒子，移动。

vitalgg

只考虑文字位置，没有考虑和分析直线和多段线。

烟盒迷唇

这是提取文字重新生成表格的啊

mikewolf2k

这个应该很简单，取包围盒获得每套表格，然后按顺序移动即可

烟盒迷唇

mikewolf2k 发表于 2021-6-2 14:55
这个应该很简单，取包围盒获得每套表格，然后按顺序移动即可

取包围盒这个需要多次框选呢，一次框选中间的间隔怎么处理？

mikewolf2k

选一次就可以了，取包围盒，包围盒有重叠的就合并。