[andery]

Есть таблица с кабелями: сечение и длина, как в примере.
Надо получить сводную таблицу сколько какого сечения кабеля есть.
Чем это можно реализовать? В каком направлении смотреть?

Заранее благодарен.

[Кулик Алексей aka kpblc]

Excel, сводные таблицы

[Do$]

VisualLISPом можно с этим справиться. Вкратце, как-то так: прочитать значения из таблицы, составить из них список, обрабоать этот список и создать новую таблицу.

Сообщение от Do$ VisualLISPом можно с этим справиться. Вкратце, как-то так: прочитать значения из таблицы, составить из них список, обрабоать этот список и создать новую таблицу.

Это же просто гениально!!! А может быть есть какой то другой способ?

[AlexV]

Сообщение от SergeyAB Цитата: Сообщение от Do$ Посмотреть сообщение VisualLISPом можно с этим справиться. Вкратце, как-то так: прочитать значения из таблицы, составить из них список, обрабоать этот список и создать новую таблицу. Это же просто гениально!!! А может быть есть какой то другой способ?

Да, есть.. К примеру, через VBA выбрать объект таблица, считать значения из ячеек в массив, обработать массив, создать новую таблицу, вставить в нее полученные значения...

[Vildar]

Еще можно objectarx использовать. Алгоритм тот-же.

[Дима_]

Сообщение от SergeyAB Это же просто гениально!!! А может быть есть какой то другой способ?

Ему люди дело говорят - а он еще прикалывается:

Код:

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

(vl-load-com)
(defun c:test ( / data sr tbl tmp)
(setq	data (gettabledata (setq sr (car (entsel "\nИсходная таблица ")))))
(if (= (length data) 2)
	(setq 	data (mapcar '(lambda (x) (cons (car x) (rtos (cdr x))))
				 (sub-test (mapcar 'cons (car data) (cadr data))))
			tbl	  (vla-copy (vlax-ename->vla-object sr))
			tmp (vla-move tbl	(vla-get-insertionpoint tbl)
								(vlax-3d-point (getpoint "\nРезультат ")))
			tmp (vla-deletecolumns tbl (length data) (- (vla-get-columns tbl) (length data)))
			tmp 0
			data (mapcar '(lambda (x)	(vla-settext tbl 0 tmp (car x))
										(vla-settext tbl 1 tmp (cdr x))
										(setq tmp (1+ tmp)))
				data))
	"Таблица несовместимого формата"))

(defun gettabledata (tbl / lst lst1 rows col); возращает список списков по стокам таблицы
(setq row 0 col 0 tbl (vlax-ename->vla-object tbl))
(repeat (vla-get-rows tbl)
(repeat (vla-get-columns tbl)
(setq lst (append lst (list (vla-gettext tbl row col))))
(setq col (1+ col))
);end of repeat
(if lst1
(setq lst1 (append lst1 (list lst)))
(setq lst1 (list lst))
);end of if
(setq row (1+ row) col 0 lst nil)
);end of repeat
lst1);end gettabledata
	
(defun sub-test (lst / x)
(setq x (car (car lst)))
(if lst
(cons	(cons	x
				(apply '+ (mapcar 'atof (mapcar 'cdr (vl-remove-if-not '(lambda (y) (= (car y) x)) lst)))))
		(sub-test (vl-remove-if '(lambda (y) (= x (car y))) (cdr lst))))))

p.s. запускать командой test ошибки не обрабатывает

[andery]

Дима_ спасибо, работает.
Буду изучать, разбираться.

Разве этот скрипт делает не то же самое?
Принципиально другое решение возможно*?

[Lesha]

Лучше всего сделать это в Excel.
Как уже было сказано, с помощью сводной таблицы или, например, вот так.