[shartal]

В большом проекте листы входят в разные группы, заполнение штампа у них при этом тоже разное. Но пользовательские свойства можно добавить или подшивке или листу. Есть ли какое-либо решение? На данные момент половину штампа приходится перебивать руками.

[asys]

группе листов только имя подпаки можно присвоить. Либо пользовательские свойства можно добавить или подшивке или листу Больше без вариантов. Тоже порой страдаю при наличии в подшивке разных коплектов или объектов.

[Сергей Богатов]

1 комплект документации = 1 подшивка

[asys]

Сергей Богатов, иногда проект включает в себя ряд различных строений на одном участке. С различием в штампе только по двум-трем цмфрам в шифре и названию объекта. В одной подшивке удобно держать все объекты, но неудобно работать с группами

[kp+]

Сообщение от asys С различием в штампе только по двум-трем цмфрам в шифре и названию объекта

Может, выход в автозаполнении полей подшивок по данным "надподшивки" (внешнего файла с такой себе БД реквизитов проектов)? Когда-то сделал кое-что в этом духе по образцам уважаемого Сергея Богатова. Надо?

[Сергей Богатов]

Сообщение от asys Сергей Богатов, иногда проект включает в себя ряд различных строений на одном участке. С различием в штампе только по двум-трем цмфрам в шифре и названию объекта. В одной подшивке удобно держать все объекты, но неудобно работать с группами

Сообщение от kp+ Может, выход в автозаполнении полей подшивок по данным "надподшивки" (внешнего файла с такой себе БД реквизитов проектов)? Когда-то сделал кое-что в этом духе по образцам уважаемого Сергея Богатова. Надо?

+ Пришёл к тому-же. Надумал в Экселе создать перечень комплектов (Уже создаю, но надо доделать механизм передачи). Параметры комплектов забираются из этого экселевского файла-перечня

P.S.
Было бы интересно посмотреть на ваше решение
P.P.S.
Добавил вышеупомянутый перечень. Это недоделка - всё ещё в процессе

[kp+]

Сообщение от Сергей Богатов Уже создаю, но надо доделать механизм передачи

Ввиду скудных познаний в программировании и недостатка времени сделал через буфер обмена - скопировал строку из файла EXCEL (составленного по определенным правилам, один объект - одна строка), запустил макрос (в Акаде), он строку разбирает и передает в подшивку. Вечером выложу код.

[Сергей Богатов]

Сообщение от kp+ скопировал строку из файла EXCEL (составленного по определенным правилам, один объект - одна строка), запустил макрос (в Акаде), он строку разбирает и передает в подшивку

У меня идея чуть пошире. Как я это вижу:

Файл-перечень является реестром всего проекта. Мы задаём комплекты по определённому правилу, автоматически создаём папки с подшивками внутри. Различные параметры комплектов переносим в эти подшивки. Меняем в перечне - меняется в подшивках. Можно ещё прикручивать различные обработчики. Мини-PDM система

[asys]

хм.... надо посмотреть

[kp+]

Извиняюсь за опоздание с ответом...выкладываю свои наработки (в основном, сделанные на основе наработок Сергея Богатова).
Прошу не ругать за низкий штиль программирования.
В архиве - файлы с кодом, пример базы проектов и пример подшивки.

4 представляющих практическую ценность макроса:
1. Файл Module1.bas
- svd2sheetset() - заполнение свойств подшивки по данным внешнего файла. Пример файла прилагается. Перед запуском макроса соответствующая строка должна быть скопирована в буфер обмена. Не удивляйтесь обилию пустых столбцов, просто удалена информация, не относящаяся к этой теме, а макрос привязан именно к такой структуре таблицы
- SetSheetCount() - подсчет числа листов с добавлением соответствующего пользовательского свойства.
2. файл Нумерация_листов_kp.bas
- changeNumber() - слегка доработанная версия автонумерации листов Сергея Богатова;
- changeDESCR() - автозаполнение поля "пояснение к листу" по данным внешней таблицы. Наименования должны быть записаны построчно в один столбец в любой таблице Excel и перед запуском макроса скопированы в буфер обмена.

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

[allar8]

Сообщение от kp+ 2. файл Нумерация_листов_kp.bas

Как использовать и запустить это? Или это архив, тогда как его распаковать?

[kp+]

Как распаковать архив rar? По-моему, это все знают... даже гугль.
Затем надо создать проект dvb, импортировать туда эти два файла с расширением *.bas (Module1.bas и Нумерация_листов_kp.bas), не забыть подключить библиотеку AcSmComponents из Вашего Акада.
Затем запускать соответствующие макросы из редактора VBA (кнопок для них не делал).
Извините, пошаговой инструкции с указанием, куда щелкнуть мышкой, не будет. Все это можно почитать у Полещука:
1)Autocad 2004. Разработка приложений и адаптация.
или
2) AutoCAD: разработка приложений, настройка и адаптация (этот вариант лучше)
Где скачать, знает гугль

PS
Если у Вас Акад 2010, могу выложить файл dvb, куда все модули уже добавлены.

[allar8]

Сообщение от kp+ Извините, пошаговой инструкции с указанием, куда щелкнуть мышкой, не будет.

Но все равно спасибо за направление, сейчас разберемся.
А каким образом подключить библиотеку AcSmComponent, в двух словах можно

[kp+]

В VBA Tools - References, поставить галочку напротив AcSmComponents соответствующей версии.

[allar8]

Сообщение от kp+ В VBA Tools - References, поставить галочку напротив AcSmComponents соответствующей версии

Все вроде сделал, как надо, и как я понимаю запускать нужно Нумерация_листов_kp1.start. Однако вылезает ошибка. Skrin прилагаю. Не подскажете в чем причина?

[kp+]

запускать только те макросы, которые указаны в #10, а не то, на чем курсор в приведенном скрине. Какую-то оболочку сделать так и не сподобился, а в файлах много мусора, не удивляйтесь.

[allar8]

Сообщение от kp+ запускать только те макросы, которые указаны в #10

Да я уж все перепробовал. Видимо в Асаде 10 x64 не судьба, эх как жаль (((