[Dim Ka]

Доброго времени суток, составляю спецификации вручную и хотелось бы существенно ускорить процесс.
Есть следущие объекты: MTEXT(или TEXT) - как число, MTEXT(или TEXT)- как имя, размер и лист EXCEL уже открыт.
Необходимо осуществить следующий алгоритм на LISP или VBA.

1. Укажите номер строки: указываем мышкой числовое значение MTEXT(или TEXT);
2. Номер строки = выбранное выше (целое) число +1;
3. Укажите имя : указываем мышкой MTEXT(или TEXT) - имя;
4. Помещаем ИМЯ в открытый лист с адресом ячейки - столбец B,
а строка берётся из значения 2 позиции (Номер строки = выбранное (целое) число +1);
5. Укажите размер(ы): если размер один (определяется после ENTER), то его значение заносим в адрес ячейки столбец C,
а строка берётся из значения 2 позиции (Номер строки = выбранное (целое) число +1),
если размеры указываются друг за другом, то их значения суммируются и заносятся в в ячейку с адресом столбца C,
а строка берётся из значения 2 позиции (Номер строки = выбранное (целое) число +1)
И самое интересное:
6. После нажатия ENTER цикл повторяется, НО уже с 3 позиции алгоритма и имя уже в столбец D той же строки, а размер(сумма размеров) в стобец E.и.т.д.
7. Выход по ESC.
В итоге: получится строка - например: Брус (в столбец B) 5000 (в столбец С) Брусок (в столбец D) 500 (в столбец E),
проще говоря заполняем строку: имя-размер-имя-рамер.


Если это сложновато, то нужен простой макросик - щелчёк по MTEXT и его значение увеличивается на 1 (MTEXT- целое число),
нашёл на форуме много похожего, но там всё более сложно.

Заранее благодарен, с Уважением Дмитрий.

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

Пытаюсь понять, и никак не получается... Может, это поможет?

[Дима_]

Сообщение от Dim Ka Если это сложновато, то нужен простой макросик - щелчёк по MTEXT и его значение увеличивается на 1 (MTEXT- целое число), нашёл на форуме много похожего, но там всё более сложно. Заранее благодарен, с Уважением Дмитрий.

Код:

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

(defun c:inctext ( / obj)
(setq obj T)
(while obj
(setq obj (car (entsel)))
(if obj (progn
(vla-startundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
(setq obj (vlax-ename->vla-object obj))
(if (vlax-property-available-p obj 'textstring)
(vla-put-textstring obj (rtos (1+ (atoi (vla-get-textstring obj)))))
);end of if
(vla-endundomark (vlax-get-property (vlax-get-acad-object) 'ActiveDocument))
));end of progn & if
);end of while
);inctext

С объектвми экселя не возился - да и желания особого нет, а по сути программка не сложная.

[Boxa]

Как вариант.
Попробуйте сделать свои "Бруски" динамическим блоками с необходимым набором атрибутов и тогда для составления спецификации можно будет использовать _dataextraction

"Вопрос №2. Как сделать спецификацию с помощью _dataextraction?"
http://forum.dwg.ru/showthread.php?t=35047

[Dim Ka]

Спасибо Диме_, всё работает отлично, с остальным буду разбираться