Объединение таблиц

Объединение таблиц · 11.08.2016, 11:45

В dwg файле есть много однотипных автокадовских таблиц кабельного журнала. Т.е. скажем 20 таблиц, состоящих из 5 колонок, количество строк и их содержимое различаются.

Есть ли в природе скрипт, позволяющий объединить их вертикально в одну? Т.е. чтобы получилась одна большая таблица из этих 5 колонок.

Конечно, можно попробовать руками или возиться с объединением через экспорт в Excel, но хочется автоматизировать этот процесс.

Кулик Алексей aka kpblc · 11.08.2016, 12:06

И в чем собственно трудность? Читаешь таблицы, получаешь оттуда данные, фильтруешь как надо, объединяешь - и выводишь в результирующую таблицу. В каком конкретно месте проблема? И где код?

ElectricSib · 11.08.2016, 12:22

Цитата:

Сообщение от Кулик Алексей aka kpblc

И в чем собственно трудность? Читаешь таблицы, получаешь оттуда данные, фильтруешь как надо, объединяешь - и выводишь в результирующую таблицу. В каком конкретно месте проблема? И где код?

Проблема в том, что я не программист и лиспом не владею. Возможно такой скрипт уже существует и известен кому-либо из пользователей.

Кулик Алексей aka kpblc · 11.08.2016, 13:43

Тогда тема точно не в том разделе - либо в "Поиск исполнителей", либо в "Поиск литературы"

skkkk · 11.08.2016, 22:33

А действительно ли надо их объединять? Для какой цели, интересно? Может, достаточно просто совместить обычным переносом верх второй с низом первой (и так далее), удалив шапки у всех, кроме первой?

Кулик Алексей aka kpblc · 11.08.2016, 22:46

Или выгнать в Excel, там обработать, и обратно в чертеж.

ElectricSib · 12.08.2016, 04:29

Цитата:

Сообщение от Кулик Алексей aka kpblc

Или выгнать в Excel, там обработать, и обратно в чертеж.

Этот вариант я уже упоминал в шапке темы. Слишком долго экспортировать каждую из десятков таблиц в Excel, затем вручную копировать их там в один файл, чтобы посчитать некоторые суммарные показатели. Я предполагал, что есть скрипты наподобие тех, что объединяют несколько text в MText, затем итоговую таблицу уже можно было бы экспортировать в Excel для подсчетов. Похоже, такой скрипт есть в ToolPack от Dotsoft.com, но он оказался небесплатным.

ElectricSib · 12.08.2016, 07:35

В общем, я нашел на англоязычном форуме нужный скрипт, хоть и с тормозами, но работает:

Код:

[Выделить все]

(defun C:MTB  (/ col cols1 cols2 lastrow response rows1
	       rows2 ss start tblobj1 tblobj2 x)
  (or (vl-load-com))
  (princ "\n*** Select both tables ***")
  (if (and (setq ss (ssget (list (cons 0 "ACAD_TABLE"))))
	   (equal 2 (sslength ss)))
      (progn

  (setq tblobj1 (vlax-ename->vla-object (ssname ss 0))
	rows1 (vla-get-rows tblobj1)
	tblobj2 (vlax-ename->vla-object (ssname ss 1))
	rows2	(vla-get-rows tblobj2)
	lastrow	rows2
	cols1 (vla-get-columns tblobj1)
	cols2 (vla-get-columns tblobj2)
	)
  (if (not (equal cols1 cols2))
    (progn
      (alert
	"There is not equivalent number of rows found. Error...")
      (exit)
      (princ)
      )
    )
  (if (eq :vlax-false (vla-get-titlesuppressed tblobj2))
      (progn
      (setq lastrow (1- lastrow))
      (setq start 1))
    (setq start 0))
  (if (eq :vlax-false (vla-get-headersuppressed tblobj2))
    (progn
      (setq lastrow (1- lastrow))
      (setq start 2))
    (setq start 0))
  (vla-put-RegenerateTableSuppressed tblobj1 :vlax-false)
  (vla-insertrows
    tblobj1
    rows1
    (vla-getrowheight tblobj1 (1- rows1))
    lastrow)

  (repeat lastrow
    (setq col 0)
    (repeat cols1
      (vla-settext
	tblobj1
	rows1
	col
	(vla-gettext tblobj2 start col))
      (setq col (1+ col)))
    (setq start (1+ start))
    (setq rows1 (1+ rows1)))
  (vla-put-RegenerateTableSuppressed tblobj1 :vlax-true)
  (initget 1 "Yes No")
  (setq	response (getkword
		   "\nAre you want to delete the second table [Y]es or [N]o <Y>: "))
  (if (eq "Yes" response)
    (vla-delete tblobj2)
    )
  (mapcar (function (lambda (x)
		      (vl-catch-all-apply
			(function (lambda ()
				    (vlax-release-object x))))))
	  (list tblobj2 tblobj1)
	  )
)
  (alert
	"Or nothing selected or selected more than 2 tables. Error...")
  )
  (princ)
  )
(princ "\n	>> Start command with MTB to merge tables")
(princ)
;;=====================================================;;

Из минусов - он не сохраняет объединение ячеек добавляемой таблицы, но это не критично.
Кроме того, скрипт позволяет объединять только 2 таблицы, насколько сильно нужно изменить его код, чтобы можно было объединять несколько таблиц, выбрав их мышкой?

VVA · 12.08.2016, 12:43

Цитата:

Сообщение от ElectricSib

насколько сильно нужно изменить его код, чтобы можно было объединять несколько таблиц, выбрав их мышкой?

Не сильно

Код:

[Выделить все]

(defun C:MTB3  (/ col cols1 cols2 lastrow response rows1
	       rows2 ss start tblobj1 tblobj2 x)
  (vl-load-com)
  (princ "\n*** Select First table ***")
  (if (setq ss (ssget "_:S:E:L" '((0 . "ACAD_TABLE"))))
      (setq tblobj1 (vlax-ename->vla-object (ssname ss 0)))
    )
 (if (and
          tblobj1
          (princ "\n*** Select other tables ***")
          (setq ss nil ss (ssget "_:L" '((0 . "ACAD_TABLE"))))
          (or (ssdel (vlax-vla-object->ename tblobj1) ss) t)
          (> (sslength ss) 0)
	   )
      (progn
       (foreach tblobj2  (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
         (setq
           rows1 (vla-get-rows tblobj1)
           tblobj2 (vlax-ename->vla-object tblobj2)
           rows2	(vla-get-rows tblobj2)
           lastrow	rows2
           cols1 (vla-get-columns tblobj1)
           cols2 (vla-get-columns tblobj2)
           )
         (if (not (equal cols1 cols2))
           (progn
             (alert "There is not equivalent number of rows found. Error...")
             (exit)
             (princ)
             )
           )
  (if (eq :vlax-false (vla-get-titlesuppressed tblobj2))
      (progn
      (setq lastrow (1- lastrow))
      (setq start 1))
    (setq start 0))
  (if (eq :vlax-false (vla-get-headersuppressed tblobj2))
    (progn
      (setq lastrow (1- lastrow))
      (setq start 2))
    (setq start 0))
  (vla-put-RegenerateTableSuppressed tblobj1 :vlax-false)
  (vla-insertrows
    tblobj1
    rows1
    (vla-getrowheight tblobj1 (1- rows1))
    lastrow)

  (repeat lastrow
    (setq col 0)
    (repeat cols1
      (cond
	((eq (vla-GetCellType tblobj2 start col) acBlockCell)
	 (vla-SetCellType tblobj1 rows1 col acBlockCell)
 	 (vla-setcellalignment tblobj1 rows1 col (vla-getcellalignment tblobj2 start col))
	 (vla-setblockscale tblobj1 rows1 col (vla-getblockscale tblobj2 start col))
	 (if
	   (and
	     (wcmatch (getenv "PROCESSOR_ARCHITECTURE") "*64*")
	     (vlax-method-applicable-p tblobj1 'getblocktablerecordid32)
	     )
	 (vla-setblocktablerecordid32
	   tblobj1
	   rows1
	   col
	   (vla-getblocktablerecordid32 tblobj2 start col)
	   :vlax-false
	   )
	   (vla-setblocktablerecordid
	   tblobj1
	   rows1
	   col
	   (vla-getblocktablerecordid tblobj2 start col)
	   :vlax-false
	   )
	   )
	 )
	((eq (vla-GetCellType tblobj2 start col) acTextCell)
	 (vla-setcellalignment tblobj1 rows1 col (vla-getcellalignment tblobj2 start col))
	 (vla-SetCellTextHeight tblobj1 rows1 col (vla-GetCellTextHeight tblobj2 start col))
	 (vla-SetCellTextStyle tblobj1 rows1 col (vla-GetCellTextStyle tblobj2 start col))
	 (vla-settext
	tblobj1
	rows1
	col
	(vla-gettext tblobj2 start col))
	 )
	(t nil)
	)
      (setq col (1+ col)))
    (setq start (1+ start))
    (setq rows1 (1+ rows1)))
  (vla-put-RegenerateTableSuppressed tblobj1 :vlax-true)
         )
  (initget 1 "Yes No")
  (setq	response (getkword
		   "\nAre you want to delete the tables [Yes/No] <Yes>: "))
  (if (eq "Yes" response)
    (mapcar 'vla-delete (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
    )
;;;  (mapcar (function (lambda (x)
;;;		      (vl-catch-all-apply
;;;			(function (lambda ()
;;;				    (vlax-release-object x))))))
;;;	  (list tblobj2 tblobj1)
;;;	  )
)
  (alert
	"nothing selected or selected less than 2 tables. Error...")
  )
  (princ)
  )
(princ "\n	>> Start command with MTB3 to merge tables")
(princ)

ElectricSib · 15.08.2016, 11:36

Цитата:

Сообщение от VVA

Не сильно

Спасибо, но все же модифицированный Вами скрипт не работает. При попытке выделить несколько таблиц возвращает ошибку "Or nothing selected or selected more than 2 tables. Error...".
P.S. теперь возвращает то же предупреждение при любой попытке объединить даже 2 таблицы (исходную и дополнительную).

VVA · 15.08.2016, 13:06

Цитата:

Сообщение от ElectricSib

При попытке выделить несколько таблиц возвращает ошибку "Or nothing selected or selected more than 2 tables. Error...".

Сообщение осталось от прежней версии. Изменил #9. Проверил в Автокаде 2009 - у меня все сработало
Там 2 выбора. Первый запрос - выбор 1-й таблицы, к ней будут добавляться строки. 2-й запрос -выбор добавляемых таблиц. Можно выбирать любым способом.
На всякий случай изменил имя команды

Profan · 15.08.2016, 14:58

Первую таблицу надо выбирать дважды. Однако, вставляются только пустые строки, без содержимого.

VVA · 15.08.2016, 18:22

Цитата:

Сообщение от Profan

Первую таблицу надо выбирать дважды.

Был косяк. Исправил см. #9

Цитата:

Сообщение от Profan

Однако, вставляются только пустые строки, без содержимого.

У меня вставляются. Проверял на Автокад 2009. Озвучь версию Автокада и приложи пример с таблицами для теста

Profan · 15.08.2016, 19:40

Порофиль AutoCAD из AutoCAD MEP 2013.

ElectricSib · 16.08.2016, 05:27

Цитата:

Сообщение от Profan

Порофиль AutoCAD из AutoCAD MEP 2013.

У меня в ACAD2013 новая версия скрипта корректно работает с обычными таблицами. Но у Вас блоки внутри таблицы, в Вашем файле у меня копируется все (мелким шрифтом из-за стиля), кроме блоков.

Profan · 16.08.2016, 09:00

Так в том-то и дело. У меня (у моих подопечных) может быть до 12 таблиц в зависимости от количества видов связи СС. Естественно, с блоками. Вот и хотелось эти таблицы объединить.

VVA · 16.08.2016, 10:55

Цитата:

Сообщение от Profan

Естественно, с блоками. Вот и хотелось эти таблицы объединить

Цитата:

Сообщение от ElectricSib

У меня в ACAD2013 новая версия скрипта корректно работает с обычными таблицами. Но у Вас блоки внутри таблицы, в Вашем файле у меня копируется все (мелким шрифтом из-за стиля), кроме блоков.

Обновил #9

Profan · 16.08.2016, 12:05

Теперь все работает. Спасибо.
............
Только почему-то в суммарной таблице невозможно редактировать текст в ячейках.

VVA · 16.08.2016, 13:04

Цитата:

Сообщение от Profan

Только почему-то в суммарной таблице невозможно редактировать текст в ячейках

И удалить строки. Я это заметил. Причину понять не смог. Не проверял, попробуй сохранить dwg и открыть снова.
Замечал, что если править с помощью activeX (например имена приаттаченных файлов), то они корректно отражаются после сохранения и повторного открытия файла

Profan · 16.08.2016, 17:18

Если сохранить файл и заново открыть, то таблица редактируется.

11.08.2016, 11:45		#1
Объединение таблиц ElectricSib Регистрация: 03.11.2015 Сообщений: 28 В dwg файле есть много однотипных автокадовских таблиц кабельного журнала. Т.е. скажем 20 таблиц, состоящих из 5 колонок, количество строк и их содержимое различаются. Есть ли в природе скрипт, позволяющий объединить их вертикально в одну? Т.е. чтобы получилась одна большая таблица из этих 5 колонок. Конечно, можно попробовать руками или возиться с объединением через экспорт в Excel, но хочется автоматизировать этот процесс. Последний раз редактировалось ElectricSib, 12.08.2016 в 07:22.
Просмотров: 16393

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос VBA Excel для извлечения таблиц из линий, полилиний, текста из DWG файлов в Excel с помощью NanoCAD/AutoCAD	JZY	Готовые программы	8	14.07.2016 06:31
VBA. Очень медленная обработка таблиц автокада.	art_rrc	Программирование	8	02.10.2014 19:57
Объединение ячеек таблиц	игорёк	Программирование	3	20.08.2008 13:47

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск