如何合并表格

烟盒迷唇 · 发表于 2021-6-5 09:39:46

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

yoyoho · 发表于 2021-6-5 11:18:00

烟盒迷唇发表于 2021-6-5 09:39
非常感谢，已经搞定了。
(defun c:tt (/ cmde lst p1 ss ss1)
(setq cmde (getvar "CMDECHO")) ...

no function definition: GET-MBOX

烟盒迷唇 · 发表于 2021-6-5 14:46:09

yoyoho 发表于 2021-6-5 11:18
no function definition: GET-MBOX

自定义函数的，论坛里就有

664571221 · 发表于 2021-6-5 16:10:39

烟盒迷唇发表于 2021-6-5 14:46
自定义函数的，论坛里就有

你好兄弟可以吧这个函数加进去吗

烟盒迷唇 · 发表于 2021-6-5 16:37:07

664571221 发表于 2021-6-5 16:10
你好兄弟可以吧这个函数加进去吗

这个程序只对我有用的，对你们来说未必有用吧

lee50310 · 发表于 2021-6-5 17:37:00

本帖最后由 lee50310 于 2021-6-6 02:23 编辑

烟盒迷唇发表于 2021-6-5 14:46
自定义函数的，论坛里就有

找到了在下面網址:
http://bbs.mjtd.com/thread-178146-1-1.html

yoyoho · 发表于 2021-6-5 18:00:10

谢谢! lee50310 程序测试真的可行!!!!!

664571221 · 发表于 2021-6-6 08:46:58

烟盒迷唇发表于 2021-6-5 16:37
这个程序只对我有用的，对你们来说未必有用吧

有用谢谢大佬....

664571221 · 发表于 2021-6-6 08:47:22

lee50310 发表于 2021-6-5 17:37
找到了在下面網址:
http://bbs.mjtd.com/thread-178146-1-1.html

谢谢兄弟你是哪里人怎么用繁体

lee50310 · 发表于 2021-6-6 08:52:02

本帖最后由 lee50310 于 2021-6-6 08:53 编辑

664571221 发表于 2021-6-6 08:47
谢谢兄弟你是哪里人怎么用繁体

在台灣,所以用繁體字

账号		自动登录	找回密码
密码			注册

[提问] 如何合并表格

本帖子中包含更多资源

评分