[azetown]

Добрый день хочу поделится своими наработками по работе с "пользовательскими свойствами документа" в AutoCAD, а также теперь и DocProperty в Word

В самом AutoCAD есть что то подобное, но маленькое не неудобное окошечко, с подвигло меня для написания собственной программы.
Данная программа предназначена для работы в среде Windows. При работе используется позднее связывание, так что по идее должно работать со всеми версиями AutoCAD и Word.

Надеюсь Вам пригодится, и это не велосипед

Работоспособность - данная программа тестировалось с версиями AutoCAD 2010г,2011г,2012г,2016г а также Microsoft Office Word 2010/2016.

При работе используется позднее связывание, так что по идее должно работать со всеми версиями AutoCAD и Word.

(если одновременно установлено на одной машине компас и AutoCAD то есть вероятность того что работать не будет,
Также скорее всего не совместимо с AutoCAD LT/Lite и прочими урезанными версиями)

Главное окно программы - таблица состоящая с листами, для удобства работы с несколькими чертежами одновременно.
При работе с AutoCAD используется данные с активного листа
При работе с Word используется данные с активного документа


Меню: Файл
Загрузить из файла - загружает собственно сохраненный файл.
Сохранить как - сохраняет данные таблицы в файл по выбору пользователя

Меню: Инструменты
очистить - очистить всю данные в таблице
-
Запись в DWG - записывает в активный открытый документ AutoCAD "пользовательские свойства документа" из активной таблицы.
Получить из DWG - считывает из активного открытого документа AutoCAD данные из "пользовательских свойств документа", и заполнение этими данными активную таблицу в программе.
-
Запись в DOC - записывает в активный открытый документ WORD "DocProperty" из активной таблицы.
Получить из DOC - считывает из активного открытого документа WORD "DocProperty", и заполняет этими данными активную таблицу в программе.
-
Записать во все файлы в директории.. - записывает "пользовательские свойства документа" и "DocProperty" из активной таблицы в выбираемом каталоге с подкаталогами во ВСЕ найденные файлы с типом расширения *.dwg,*.doc,*.docx.


Кнопки:
Запись в DWG - записывает в активный открытый документ AutoCAD "пользовательские свойства документа" из активной таблицы.
Получить из DWG - считывает из активного открытого документа AutoCAD данные из "пользовательских свойств документа", и заполнение этими данными активную таблицу в программе.
Запись в DOC - записывает в активный открытый документ WORD "DocProperty" из активной таблицы.
Получить из DOC - считывает из активного открытого документа WORD "DocProperty", и заполняет этими данными активную таблицу в программе.

Всплывающее меню:
Добавить строку - Добавляет строчку
Удалить строку - Удаляет строчку
-
Вверх - Перемещает строку вверх
Вниз - перемещает строку вниз
-
Очистить таблицу - Удаляет все записи в таблице
-
Отменить изменения - Отменяет последнее изменение

Работа с листами:
- Настройки листов сохраняются при закрытии программы
- Можно добавить новый лист
- Удалить активный лист
- Переименовать активный лист


Принцип работы:
- при записи в автокад или в ворд програма вначале удаляет все ключи потом добавляет новые.
- Обновление в Word должно произойти автоматически после нажатия кнопки "запись в DOC".
- Обновление в Autocad должно произойти автоматически после нажатия кнопки "запись в DWG".

Дополнительно:
- Возможность сохранить в некоторые форматы файла (*.txt, *.bin, *.csv, *.xls, .html, *.doc)
- Возможность загрузки из файлов некоторых форматов файла (*.txt, *.bin, *.csv, *.xls)
- Возможность выбрать стиль оформления внешнего вида программы. Настройки окна сохраняются в текстовом файле в каталоге с программой.

[MFor]

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

[azetown]

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

Добрый день!

вроде все ок должно быть, по крайней мере у меня работает как часы и в ворде и в автокаде

В чем проявляется глюки?

[MFor]

Не ожидал такого оперативного ответа
После записи в документ, происходит вот такая шляпа при прокрутке. Рабочая область перестает отображаться. Это в 2010 офисе.
На другом файле, пишет, что отказано в доступе. Файл не шаблон, не защищен от записи.

[MFor]

Собственно проблема была уже описана ранее. В 76 сообщении

[themask89]

Сообщение от MFor Не ожидал такого оперативного ответа После записи в документ, происходит вот такая шляпа при прокрутке. Рабочая область перестает отображаться. Это в 2010 офисе. На другом файле, пишет, что отказано в доступе. Файл не шаблон, не защищен от записи.

У меня такая же херня творится, не обращай внимания, закрывай и сохраняй документ и открывай наново, все ссылки обновятся, если не обновились, ctrl+A и F9, можно "обновить только номера страниц", не важно. Одно но в колонтитулах прием с контрлАФ9 нужно повторить.

[sensat_vdk]

Все круто, но пакетное обновление не работает...
"Invalid Variant Operation"
а ведь надо....

[Kins]

azetown, спасибо огромное!.
Теперь экономится куча времени.

[petro_f]

Обновил ссылку на плагин в посте #112

[MFor]

а для Нанокада нет такой штуки?

[Lma82]

Мужик, не знаю, прочтешь или нет, но куча плюсов тебе в карму! Спасибо, огромное!!!

[бек]

"Запись во все файлы директории" для файлов автокада не работает, приходится обновлять поля для каждого файла отдельно (автокад 2021), для папок с эксель файлами- все нормально

[lxndr]

Это просто офигенная прога!! Актуальна на 24 год и упрощает работу по оформлению чертежей. Теперь можно проектировать в экселе). ворд и автокад, это только оболочка. Огромное спасибо!!!

[Дмитрий Юпатов]

Сообщение от themask89 У меня такая же херня творится, не обращай внимания, закрывай и сохраняй документ и открывай наново

Можно просто вызвать предварительный просмотр перед печатью, и потом его закрыть. Все поля обновятся в документе. Это такая фича баг Ворда. Или же другой вариант - программно обновлять поля.
Я у себя в своей программке в свое время сделал через вызов (PrintPreview) и закрытие его (ClosePrintPreview).

[shartal]

К сожалению не нашел возможности записи свойств чертежа из файла акада в свойства файла excel. Или что- то просмотрел?

[petro_f]

Сообщение от shartal К сожалению не нашел возможности записи свойств чертежа из файла акада в свойства файла excel. Или что- то просмотрел?

Попробуйте этот лисп

[shartal]

Однако ничего не получилось. Программа не работает со свойствами экселя. Они читает данные из таблицы экселя и в нее же и добавляет параметры из свойств файла акад. А требуется запись именно в свойства файла экселя.

[petro_f]

Сообщение от shartal Однако ничего не получилось. Программа не работает со свойствами экселя. Они читает данные из таблицы экселя и в нее же и добавляет параметры из свойств файла акад. А требуется запись именно в свойства файла экселя.

А какие свойства экселя мы из чертежа автокада можем записать? Приведите пример..

[Сергей812]

Ну можно попробовать прямо из экселя постучаться в акад (если совпадет разрядность акада и экселя, и защитная программа не решит - что эксель пытается совершить подозрительную операцию)

Public Sub CopyProperties()
' Коллекция имен и значений пользовательских свойств
Dim lColKeys As New Collection
Dim lColValues As New Collection
' Получаем данные из акада через позднее связывание
Dim lAcadApp As Object
Dim lAcadDoc As Object
Dim lSumInfo As Object
On Error GoTo ErrorAcad
Set lAcadApp = GetObject(, "AutoCAD.Application")
Set lAcadDoc = lAcadApp.ActiveDocument
Set lSumInfo = lAcadDoc.SummaryInfo
If (lSumInfo.NumCustomInfo > 0) Then
Dim I1 As Integer, lKey As String, lValue As String
For I1 = 0 To lSumInfo.NumCustomInfo - 1
lSumInfo.GetCustomByIndex I1, lKey, lValue
lColKeys.Add lKey
lColValues.Add lValue
Next I1
End If
Set lSumInfo = Nothing
Set lAcadApp = Nothing
Set lAcadDoc = Nothing
' Сохраняем данные в эксель (в словарях lColKeys и lColValues находятся имена и значения
' пользовательских свойств активного чертежа акада, совпадающие по индексу в коллекциях.
' А дальше дело техники - по подробнейшему учебному материалу
' https://vremya-ne-zhdet.ru/vba-excel...entproperties/ занести значения коллекций
' в пользователькие свойства экселя. И при необходимости преобразовать в надстройку экселя.
' Ну и не лишним будет напомнить, что эксель и акад должны быть одной разрядности (x86 илми x64),
' чтобы сработало подключение к акаду)
ErrorAcad:
Set lSumInfo = Nothing
Set lAcadApp = Nothing
Set lAcadDoc = Nothing
End Sub

[shartal]

В проекте кроме чертежей есть спецификации в экселе, которые также оформляются с рамкой и штампом. Штамп в акаде заполняется из подшивки, далее все что есть в штампе (название объекта, стадия, название города, организации и т.д.) переносим в свойства чертежа, а оттуда с помощью по из этой темы в текстовую часть проекта в ворде. Так же хочется заполнить и штамп в экселе.

[petro_f]

Понял. Не интересная тема, так как проще в экселе собрать спеку и закинуть её в акад в виде таблицы.
А поля уже и так понятно, что они есть в акаде.
Собирать штамп в экселе это занятие настолько не логично, что даже говорить не хочется.
Так для проекта остаётся спека в акаде, а для работы (логистам или смете) просто отдаю эксель.