表格合并

Lispboy · 发表于 2016-12-7 21:22:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[sell]

(defun c:xdtb_tablemerge (/ cols1 cols2 e1 e2 i numdata1s numdata2s row1s
                            row2s styl tf txt txth txtl x
                         )
  (xdrx_begin)
  (xdrx_sysvar_push '("osmode" 0))
  (if (and
        (setq e1 (car (xdrx_entsel "\n拾取第一个表格<退出>:" '((0 . "ACAD_TABLE")))))
        (xdrx_pickset_redraw e1)
        (setq cols1 (xdrx_table_numColumns e1))
        (setq tf t)
      )
    (while (and
             tf
             (setq e2 (car (xdrx_entsel "\n拾取要合并表格<退出>:" '
                                        ((0 . "ACAD_TABLE"))
                           )
                      )
             )
             (setq cols2 (xdrx_table_numColumns e2))
           )
      (if e2
        (progn
          (if (= cols1 cols2)
            (progn
              (setq row2s (xdrx_table_numrows e2)
                    row1s (xdrx_table_numrows e1)
              )
              (setq numdata2s (xdrx_table_numdatarows e2)
                    numdata1s (xdrx_table_numdatarows e1)
                    styl (car (xdrx_table_textstyle e1 (cadr numdata1s) 0))
                    txth (xdrx_table_textheight e1 (cadr numdata1s) 0)
              )
              (setq txtl (xdrx_table_textstring e2 t)
                    txt (xdrx_table_textstring e2 (cadr numdata2s) 0 t)
                    txtl (member txt txtl)
                    i -1
                    txtl (mapcar
                           '(lambda (x)
                              (cons (+ row1s (- (car x) (cadr numdata2s)))
                                    (cdr x)
                              )
                            )
                           txtl
                         )
              )
              (xdrx_table_insertRows e1 row1s (xdrx_table_rowheight e1
                                                                    (cadr numdata1s)
                                              ) (car numdata2s)
              )
              (xdrx_setpropertyvalue e1 "textstyle" styl "textstring" txtl
                                     "textheight" txth "autosize"
              )
              (xdrx_entity_delete e2)
              (prompt "\n成功合并了两个表格.")
            )
            (prompt "\n没有选到表格或两个表格列数不等，合并失败.")
          )
        )
        (setq tf nil)
      )
    )
  )
  (xdrx_sysvar_pop)
  (xdrx_end)
  (princ)
)

[/sell]

kqqt6236 · 发表于 2016-12-7 22:08:10

谢谢分享。

13993359550 · 发表于 2016-12-8 08:01:36

厉害呀，

yjch · 发表于 2016-12-8 08:13:05

好好学习天天向上，确实是难得好帖啊，顶先

aifengshenai · 发表于 2017-9-14 17:12:00

*** 没有点取到符合条件的实体, 重试!请问什么原因呢？

l982414 · 发表于 2017-9-20 15:45:23

好东西，我先看看

sjj · 发表于 2017-9-23 05:28:17

这个可以有

abenmao168 · 发表于 2017-9-23 13:52:54

好资源，感谢分享

sjj · 发表于 2017-9-24 06:29:30

合拼与拆分都是不错的

yangjian001 · 发表于 2017-9-24 08:27:49

解决了问题

lzy1979 · 发表于 2017-9-24 14:36:41

很好用的东谢谢发布

renyonghua2014 · 发表于 2018-10-11 10:35:36

学习一下，谢谢分享。

oasis714 · 发表于 2018-10-11 11:10:08

感谢发布分享

yankewei · 发表于 2018-10-18 15:36:21

谢谢楼主的无私奉献、好好学习下

WZY5357 · 发表于 2018-12-1 18:02:45

好东西，谢谢楼主

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

[表格] 表格合并

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。