[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)
- Возможность выбрать стиль оформления внешнего вида программы. Настройки окна сохраняются в текстовом файле в каталоге с программой.

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

Что за ключи имеются в виду?

[azetown]

Скорее всего не ключами а полями

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

Окошко маленькое??

[azetown]

вот эти поля на скрине

по моему родное автокадовское неудобное

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

Блин! Это не поля и не ключи, а пользовательские свойства документа. Это раз. Второе - твоя программа не удобнее и не лучше (но это ИМХО).

[trir]

И при чём тут AutoCAD?

[azetown]

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

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

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

[maratovich]

Сообщение от trir И при чём тут AutoCAD?

Как я понимаю, у автора, рамки сделаны блоками у которых в штампе все данные берутся из свойств документа.
При таком раскладе становится понятно зачем это всё и чем удобнее.
Я прав ?

[Дима_]

Сообщение от maratovich Как я понимаю, у автора, рамки сделаны блоками у которых в штампе все данные берутся из свойств документа.

Это правильный подход - только данные лучше "запихивать" в подшивку т.к. на каждый объект как правило все-же больше 1-го альбома (хотя конечно все можно и в 1 dwg записать - но это ИХМО перебор).

[skalanin]

Я-то думал, что просто не в курсе, что такое "ключи" в Автокаде.
Может тему стоит переименовать? И дать более подробную справку с разъяснениями?

[gomer]

акад 13 чего-то ничего не работает... да и где описание работы? тут нет, в архиве нет... скриншоты программы лучше добавить во вложение здесь, а не на файлопомойку где-то там...

[azetown]

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

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

(если одновременно установлено на одной машине компас и AutoCAD то есть вероятность того что работать не будет)

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

кнопки:
очистить - очистить всю данные в таблице
сохранить - сохраняет данные таблицы в файл с "data.bin" (в той же директории где расположена программа)
загрузить - загружает собственно сохраненный файл "data.bin", если файла нет то ничего не происходит.
получить - считывает из активного открытого документа AutoCAD данные из "пользовательских свойств документа", и заполнение этими данными таблицы в программе.
запись - записывает в активный открытый документ AutoCAD "пользовательские свойства документа" из таблицы.
закрыть - закрывает программу.
добавление строки - в последней строчке таблицы начать что то писать
удаление строки - в последней строчке таблицы очистить столбцы "имя ключа" и "текстовый параметр" (немного неудобно конечно.. но если будут такие пожелания могу доработать)

после записи данных в AutoCAD в самом AutoCAD необходимо выполнить команду "регенерировать" или "_regenall", также можно сохранить документ,
после чего увидим обновленные данные в чертеже.

Сообщение от maratovich Как я понимаю, у автора, рамки сделаны блоками у которых в штампе все данные берутся из свойств документа. При таком раскладе становится понятно зачем это всё и чем удобнее. Я прав ?

Да примерно так.. некоторые тома проекта у нас довольно типизированны (типовые проекты) и местами меняется только адрес и название проекта ну и так по мелочи.

[Марк_Филипыч]

'vba
' через форму vba очень удобно визуально настроить отображение пользовательских свойств
' предварительно создать два поля в свойства чертежа -- >прочие "город_Москва" и "адрес"
' создать форму с двумя тексбоксами
Public bosf As String

Sub ggg() ' запуск из формы
With ThisDrawing.SummaryInfo
.GetCustomByKey "город_Москва", bosf: Me.городМосква.Value = bosf ' получить значение свойства чертежа прочие и присвоить значение текстбоксу Me.городМосква
.SetCustomByKey "адрес", Me.адрес.Value ' записывает
End With
End Sub

[adu]

Очень нужная программа!
Спасибо автору!
Жаль только не работает с автокад 2015. Судя по комментам выше, не работает начиная с версии 2013. Можно ли что-нибудь с этим сделать?
Очень давно искал подобную программу. Удобно и быстро вносить поправки в существующие чертежи, имея структуру оформления. Правда было бы лучше подхватывать и записывать результаты в файл txt, либо xml или ещё какой-нить простой текстовый файл без форматирования, с возможностью выбора данного файла. И добавление страниц не помешало бы, ато 3 как-то маловато, хотя это всё не первостепенно. Работало бы с акадами выше 2013 цены бы ей не было )))

[Alan]

Сообщение от adu Удобно и быстро вносить поправки в существующие чертежи, имея структуру оформления.

А программу BFindV2-0.lsp видели?

[adu]

Сообщение от Alan А программу BFindV2-0.lsp видели?

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

[azetown]

Сообщение от adu Очень нужная программа! Спасибо автору! Жаль только не работает с автокад 2015. Судя по комментам выше, не работает начиная с версии 2013. Можно ли что-нибудь с этим сделать? Очень давно искал подобную программу. Удобно и быстро вносить поправки в существующие чертежи, имея структуру оформления. Правда было бы лучше подхватывать и записывать результаты в файл txt, либо xml или ещё какой-нить простой текстовый файл без форматирования, с возможностью выбора данного файла. И добавление страниц не помешало бы, ато 3 как-то маловато, хотя это всё не первостепенно. Работало бы с акадами выше 2013 цены бы ей не было )))

Добрый день!
так как в наличии имеется AUTOCad 2010 то проверить совместимость не представляется возможным.
если есть желание в этом разобраться, то возможно что то с сделать.

для моей версии автокада привязка происходит следующим образом

AutoCAD := GetActiveOleObject('AutoCAD.Application');// Проверяем запущен ли автокад

вероятно
'AutoCAD.Application' для других версий автокада эта строчка может отличатся
например методом проб и ошибок было выявлено:
{Автокадов может быть несколько
'AutoCAD.Application' - текущая версия автокад (не факт что везде одинакова)
'AutoCAD.Application.15'
'AutoCAD.Application.16' 2004
'AutoCAD.Application.17' 2007
'AutoCAD.Application.18' 2008&2010
надо заранее выяснять, с каким работать}

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

[azetown]

обновил немного функционал программы

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

[Boxa]

еще бы потерянные скриншоты, приаттачил бы. Было бы совсем хорошо.

[alehtom]

На мой взгляд, программа - просто находка для пользователей, использующих блоки с категорией полей "Документ".

В AutoCAD2015 работает. Проверил команды сохранить, запись и получить. Есть возможность добавить, удалить, переименовать листы.

Из пожеланий - только косметические - вставить возможность изменения размера рабочего окна и сделать светлее кнопки (как на скрине).

[kakt00z]

(пока не пробовал)
а как обстоят дела с многострочностью "Текстовых параметров", с кавычками?

[azetown]

Сообщение от kakt00z (пока не пробовал) а как обстоят дела с многострочностью "Текстовых параметров", с кавычками?

С кавычками вроде все нормально а что не так с многострочностью?

[kakt00z]

ссылаюсь полем в многострочном тексте на свойство документа (в котором написано к примеру "Первая строка\PВторая строка")
в таблице приложения отображается только первая строчка, хотя при даблклике для редактирования - появляется и вторая строчка, причем символа новой строки не видно, при завершении редактирования - вторая строчка опять исчезает, хотя и сохраняется для импорта/экспорта (хотя это наверное больше проблема поля или кода каретки)

ввожу в значение параметра строку "<>" - при повторном редактировании значение исчезает

из "хотелок"
1 чтобы при нажатии на del удалялось значение (не входя в редактирование)
2 выделять несколько строчек
3 имелась возможность настройки ширины

[azetown]

Сообщение от kakt00z ввожу в значение параметра строку "<>" - при повторном редактировании значение исчезает

Это победить не смог,
немного поменял внешний вид и по мелочи добавил функционал

[Gmk17]

А как можно настроить запуск этой программы с кнопки или из палитры AutoCAD?

Ну вот сам себе и отвечаю: ^C^C_START;AutoCADKey_manager.exe;
При условии, что путь к этому файлу указан в Параметрах -> Путь доступа к вспомогательным файлам

[Mallka]

Хочется выразить огромную благодарность автору и всем кто помог доработать программу!
Спасибо Вам большое, товарищи!

[WilliamClassic]

Проверте, кнопки "Записать в DWG" и "Получить из DWG" выполняют не свои действия. Жму "получить" - удаляется все уже внесенные пункты свойств из чертежа, а если жму "записать", то загружается уже существующий в фацле список

[azetown]

Исправил, кнопки просто местами перепутаны были

[WilliamClassic]

Спасибо. Еще заметил, что ваша программа не понимает спецсимволов (², ×, ³). Вместо их ставит вопросительный знак. Может дело в шрифте программы?

[azetown]

Добрый день.
какие еще бывают спецсимволы?

Скорее всего это проблема кроется в VBA.
так как я извлекаю данные из автокада AcadDocument1.SummaryInfo.GetCustomByIndex(i, pKey, pValue)
// procedure GetCustomByIndex(Index: SYSINT; out pKey: WideString; out pValue: WideString); safecall;
данные выдает уже с вопросиками,
за хранящееся значение отвечает как раз переменная - out pValue: WideString

[doctorraz]

Сообщение от azetown Скорее всего это проблема кроется в VBA.

ничего подобного, в свойства чертежа отлично вставляются ²
и VBA отлично их извлекает и правильно вставляет.
А вот у VB6 с этим действительно проблема. подтверждаю

[azetown]

Есть предложения как сделать чтобы это работало?

[doctorraz]

использовать Microsoft forms 2.0
но тут возможны другие грабли, .. не будет работать совсем у кого нет офиса и пр.
и еще проблемы с кодировками кириллицы.

[quazi]

Да, досадно что юникод символы не проходят.
Может подскажет кто-то автору как поправить малой кровью...

[doctorraz]

можно сделать форму в VBA и экспортировать ее в проект VB6.
все будет работать номально...
но тут опять нюансы, у кого не стоят эти библиотеки (VBAenabler, или Офис) работать не будет.
Можно сделать инсталятор, но тут опять нюансы...

[OrionN29]

Сообщение от Gmk17 Ну вот сам себе и отвечаю: ^C^C_START;AutoCADKey_manager.exe; При условии, что путь к этому файлу указан в Параметрах -> Путь доступа к вспомогательным файлам

А где на панели кнопка должна появиться? В ленте её нет, и в командной строке нет подсказок.

[vladimirr_b]

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

[serdgius]

Прямо то что доХтор прописал, давно искал нечто подобное, усе работает. АВТОРУ большое человеческое спасибо.

[TechNick]

Что-то у меня не работает. Нажимаю "Получить" и ничего не происходит. Пробовал в Civil 2016, Acad 2012 и Acad 2017

[Doctor_Che]

Давно искал что-то подобное.
Жаль не работает на Windows 8.1 x64, ACAD 2015

[azetown]

Обновил программу. Теперь тоже самое и с DocProperty из Word

[kheylan]

azetown, а можно надеяться на перспективу работы с несколькими файлами сразу.
Типа задать свойства чертежа, сразу нескольким файлам, не открывая их или выбрать папку.
Здесь нашел http://forum.dwg.ru/showpost.php?p=1483877&postcount=12, как решить выше сказанное.
Express menu: File tools >> Update Drawing Property Data
Command line: PROPULATE
Enter an option [Active template/Edit template/List/Remove/Update] <Update>:
Update Drawing Properties information from template
Enter an option [Current drawing/Other drawings] <Current>: O
Enter search directory and drawing name. <d:\ACAD_USER\Blocks\*.dwg>:
Search subdirectories? [Yes/No] <Yes>:
И все чертежи в папке, приобретают свойства шаблона, который можно настраивать.

[azetown]

Сообщение от kheylan azetown, а можно надеяться на перспективу работы с несколькими файлами сразу. Типа задать свойства чертежа, сразу нескольким файлам, не открывая их или выбрать папку. Здесь нашел http://forum.dwg.ru/showpost.php?p=1483877&postcount=12, как решить выше сказанное. Express menu: File tools >> Update Drawing Property Data Command line: PROPULATE Enter an option [Active template/Edit template/List/Remove/Update] <Update>: Update Drawing Properties information from template Enter an option [Current drawing/Other drawings] <Current>: O Enter search directory and drawing name. <d:\ACAD_USER\Blocks\*.dwg>: Search subdirectories? [Yes/No] <Yes>: И все чертежи в папке, приобретают свойства шаблона, который можно настраивать.

Отработано и реализовано в программе/ обновление от 28.11.2017

меню->Записать во все файлы в директории.. - записывает "пользовательские свойства документа" и "DocProperty" из активной таблицы, в выбираемом каталоге с подкаталогами, во ВСЕ найденные файлы с типом расширения *.dwg,*.doc,*.docx.

[allar8]

AutoCADKey_manager - так то конечно хорошая программа, и решает очень важную проблему, но как обычно пытливому уму рано или поздно еще чего-нибудь охота)
Я так понимаю AutoCADKey_manager работает только с текущим файлом. Интересен вопрос пакетного переноса свойств чертежа сразу в несколько файлов - например у меня 100 файлов там нужно во всех обновить эти свойства - как быстро это сделать?. Или еще интересный вопрос как обновить только выбранные свойства? - ведь AutoCADKey_manager, как я понял обновляет все
Блин, чет выше сразу не прочитал - вроде там чего то написано - щас погляжу)

----- добавлено через ~6 мин. -----

Сообщение от kheylan Express menu: File tools >> Update Drawing Property Data Command line: PROPULATE Enter an option [Active template/Edit template/List/Remove/Update] <Update>: Update Drawing Properties information from template Enter an option [Current drawing/Other drawings] <Current>: O Enter search directory and drawing name. <d:\ACAD_USER\Blocks\*.dwg>: Search subdirectories? [Yes/No] <Yes>: И все чертежи в папке, приобретают свойства шаблона, который можно настраивать.

Дык вот жи оно, Спасибо!

----- добавлено через ~7 мин. -----

Сообщение от azetown Отработано и реализовано в программе/ обновление от 28.11.2017 меню->Записать во все файлы в директории.. - записывает "пользовательские свойства документа" и "DocProperty" из активной таблицы, в выбираемом каталоге с подкаталогами, во ВСЕ найденные файлы с типом расширения *.dwg,*.doc,*.docx.

И даже тут)

Сообщение от azetown от 28.11.2017

Сегодня чтоль?) - я прям как чувствовал)

----- добавлено через ~11 мин. -----

Сообщение от azetown от 28.11.2017

Вот ишо бы выборочно можно было свойства обновлять - ваще было б огонь). Хотя и так огонь. Респект разработчику

[Сергей812]

Сообщение от azetown в выбираемом каталоге с подкаталогами

имхо, должен быть выбор - с подкаталогами или без. У кого-то могут храниться вспомогательные файлы в подпапке внутри проекта.

[allar8]

Сообщение от Сергей812 имхо, должен быть выбор - с подкаталогами или без. У кого-то могут храниться вспомогательные файлы в подпапке внутри проекта.

И я тоже об этом подумал)

[S_V_A_L_K_E_R]

Давно искал что то подобное. Спасибо огромное!!!

[azetown]

Сообщение от allar8 Вот ишо бы выборочно можно было свойства обновлять - ваще было б огонь). Хотя и так огонь. Респект разработчику

Добрый день!
как вы это себе представляете?
Предлагайте идеи по функционалу. Если будет возможно то сделаю.

[Сергей812]

Ну если в том языке, на котором пишете - есть список с чекбоксами, то на нем.

[allar8]

Сообщение от azetown Добрый день! как вы это себе представляете?

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

[allar8]

Сообщение от azetown обновил немного функционал программы

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

----- добавлено через ~22 мин. -----

Сообщение от allar8 Почему то не работает функция "Записать во все файлы в директории.

Да и вообще мистика какая то происходит, даже при записывании свойств в текущий файл DOCХ. Вроде записывает, файл сохраняешь, открываешь заново - старые значения. Как так то?

[Сергей812]

Элементарно, по непонятной логике Майкрософта эти операции почему то не считаются изменением документа. Принудительно взводите ActiveDocument.Saved = False

[azetown]

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

опишите проблему более детально, скиньте пример того что записываете и куда записываете - проверю как работает

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

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

на данный момент прорабатываю изменение дизайна программы и добавление новых хотелок..
в скором времени будет обновлено и выложено

[allar8]

Сообщение от azetown вроде что то подобное с вордом было как то по началу но теперь само собой прошло все (может быть потому что свойства есть а ссылки в самом документе нет, попробуйте проверить чтобы в файле с вордом была какая то ссылка)

Странно на других новых файлах заработало вроде. Однако непонятно, зачем программа после записи полей открывает автокад - можно это убрать?

[azetown]

Сообщение от allar8 Пытался перезаписать свойства - результата не получил - в файлах остались стары значения свойств. Или эта функция только записывает новые свойства, а перезаписать существующие не может? Тогда и смысл всего действа теряется. Или мож че не так делаю

возможно открыто несколько документов ворд, программа по идее пишет в активный документ.

----- добавлено через ~1 мин. -----

Сообщение от allar8 Странно на других новых файлах заработало вроде. Однако непонятно, зачем программа после записи полей открывает автокад - можно это убрать?

ждите этот вопрос как раз в разработке

[allar8]

Сообщение от allar8 Странно на других новых файлах заработало вроде

Оказывается если в моем файле нет ссылок на DосProperty вне колонтитулов, то вышеуказанный косяк повторяется - не обновляет поля, но как только стоит добавить ссылку в вне колонтитула все начинает работать - можно как нить устранить этот баг. На других файлах вроде не повторяется этот косяк - в чем может быть проблема с моими фалами. Во вложении мои файлы в которых обновляю поля и файл источник свойств xls

----- добавлено через ~1 мин. -----

Сообщение от azetown ждите этот вопрос как раз в разработке

Ок спасибо

----- добавлено через ~2 мин. -----

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

Все закрыто было

----- добавлено через ~3 мин. -----

Сообщение от allar8 Во вложении мои файлы в которых обновляю поля и файл источник свойств xls

Менял дату разработки

[Сергей812]

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

а еще может быть открыто несколько самих вордов, а подключаетесь только к одному процессу по COM-интерфейсу. И при пакетной обработке файлов лучше не писать просто в активный документ, имхо.

[azetown]

данные записываются и сохраняются.. но почему то в колонтитуле в вашей таблице не хотят обновятся.
Если принудительно обновить - зайти в колонтитул выбрать записи с полями и нажать "F9" произойдет обновление.

[Сергей812]

так поля сами не обновятся при изменения пользовательских свойств.

[allar8]

[quote=azetown;1696617]данные записываются и сохраняются.. но почему то в колонтитуле в вашей таблице не хотят обновятся.
Вот вот тоже замети - походу именно если поле вставлено в колонтитуле в таблицу - то возникает этот касяк, проверил и на новом файле - с новой таблицей в колонтитуле - результат тот же

Сообщение от azetown Если принудительно обновить - зайти в колонтитул выбрать записи с полями и нажать "F9" произойдет обновление.

Тогда и смысл теряется всего этого пакетного обновления свойств.

----- добавлено через ~2 мин. -----

Сообщение от Сергей812 так поля сами не обновятся при изменения пользовательских свойств.

Если по мое теме, то не просто необновляются, а вообще не перезаписываются в файл

[azetown]

Сообщение от Сергей812 так поля сами не обновятся при изменения пользовательских свойств.

так они обновляются вот кусок кода из программы

Код:

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

 
     AutoWord.ActiveDocument.Fields.Update;                                                        // обновить поля в документе
     for i:=1 to AutoWord.ActiveDocument.Sections.count do                                  // обновить поля в колонтитулах сверху в документе
       for n:=1 to AutoWord.ActiveDocument.Sections.Item(i).Headers.count do
          AutoWord.ActiveDocument.Sections.Item(i).Headers.Item(n).Range.Fields.Update;
     for i:=1 to AutoWord.ActiveDocument.Sections.count do                                   // обновить поля в колонтитулах снизу в документе
       for n:=1 to AutoWord.ActiveDocument.Sections.Item(i).Footers.count do
          AutoWord.ActiveDocument.Sections.Item(i).Footers.Item(n).Range.Fields.Update;

но почему то в той табличке не хотят автоматически обновлятся

[allar8]

Сообщение от allar8 Вот вот тоже замети - походу именно если поле вставлено в колонтитуле в таблицу - то возникает этот касяк, проверил и на новом файле - с новой таблицей в колонтитуле - результат тот же

Это можно будет устранить?

----- добавлено через ~5 мин. -----

Сообщение от allar8 Вот вот тоже замети - походу именно если поле вставлено в колонтитуле в таблицу - то возникает этот касяк, проверил и на новом файле - с новой таблицей в колонтитуле - результат тот же

Так то решение есть - но топорное - продублировать все интересуемые свойства вне таблицы в колонтитуле с прозрачным шрифтом. Но это как то не удобно.

----- добавлено через ~7 мин. -----

Сообщение от azetown но почему то в той табличке не хотят автоматически обновлятся

Не просто говорю не обновляться - даже не перезаписываются - и не только в той табличке. Создайте новый файл, поместите в колонтитул надпись, в надпись вставьте таблицу в ячейке таблицы создайте ссылку и получите этот результат. То что не обновлялось бы просто это пол беды - все равно перед печатью на проссмотре бы обновилось - самое главно - то что не перезаписываются свойства в сам файл вообще

----- добавлено через ~3 мин. -----

Сообщение от allar8 то что не перезаписываются свойства в сам файл вообще

Если не верите, - проверьте вставкой новой ссылки из DocProperty

----- добавлено через ~4 мин. -----

Сообщение от allar8 Если не верите, - проверьте вставкой новой ссылки из DocProperty

Или просто загляните в свойства -> Прочие

[azetown]

[quote=allar8;1696619]

Сообщение от azetown данные записываются и сохраняются.. но почему то в колонтитуле в вашей таблице не хотят обновятся. Вот вот тоже замети - походу именно если поле вставлено в колонтитуле в таблицу - то возникает этот касяк, проверил и на новом файле - с новой таблицей в колонтитуле - результат тот же Тогда и смысл теряется всего этого пакетного обновления свойств. ----- добавлено через ~2 мин. ----- Если по мое теме, то не просто необновляются, а вообще не перезаписываются в файл

да есть такая проблема..

[allar8]

Сообщение от azetown да есть такая проблема..

Решить получится?

[azetown]

уже решился благодаря Сергей812

выставляю принудительно что документ изменился и не сохранен.

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

немного доработаю и выложу обновление

[allar8]

Сообщение от azetown можно ее оттуда извлечь и вставить просто таблицей без области и потом выровнять по мест

Не надо мне таблицу из колонтитула вытаскивать. это рамки и шаблон приняты в нашей организации. Или я не понял?

Сообщение от azetown выставляю принудительно что документ изменился и не сохранен.

Чет не понял - можно поподробней

----- добавлено через ~4 мин. -----

Сообщение от azetown можно ее оттуда извлечь и вставить просто таблицей без области и потом выровнять по месту.

А понял из надписи таблицу извлеч - но это еще тот гемор по выравниванию таблицы не вставленной в надпись. Так как часто приходится использовать (вставлять и удалять разделы) в WORD вертикальные и горизонтальные страницы - каждый раз подгоном этим заниматься?. Таблица в надписи очень сильно упрощает выравнивание этой таблицы при копировании ее в другой раздел

[azetown]

Сообщение от allar8 Цитата: Сообщение от azetown можно ее оттуда извлечь и вставить просто таблицей без области и потом выровнять по мест Не надо мне таблицу из колонтитула вытаскивать. это рамки и шаблон приняты в нашей организации. Или я не понял?

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

Сообщение от allar8 Цитата: Сообщение от azetown выставляю принудительно что документ изменился и не сохранен. Чет не понял - можно поподробней

как говорил Сергей "по непонятной логике Майкрософта эти операции почему то не считаются изменением документа. Принудительно взводите ActiveDocument.Saved = False"
добавил кусочек кода в мою программу изменения в свойствах документа стали сохраняться
прогу пока не обновил - в процессе доработки кода

[allar8]

Сообщение от azetown добавил кусочек кода в мою программу изменения в свойствах документа стали сохраняться

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

[azetown]

Сообщение от allar8 Спасибо. Ну самое главное решено - уже лучше, когда с этим хотя бы обновлением можно будет скачать?

обновил.. проверяйте

[allar8]

Сообщение от azetown обновил.. проверяйте

Спасибо - все работает и даже автоматом обновляет, но после пакетной перезаписи свойств word ведет странно после первого запуска после перезаписи свойств - Открываю word - один из документов в которых обновлялись свойства (Документ сам не загружается) и мограет кнопка закрыть документ. Закрываю документ и открываю заново - все гуд. Не замечали сами у себя такой особенности? У меня WORD2007 на Windows 7

----- добавлено через ~4 мин. -----

Сообщение от azetown обновил.. проверяйте

Порадовало и то что автокад перестал открываться - спасибо

[azetown]

Сообщение от allar8 Спасибо - все работает и даже автоматом обновляет, но после пакетной перезаписи свойств word ведет странно после первого запуска после перезаписи свойств - Открываю word - один из документов в которых обновлялись свойства (Документ сам не загружается) и мограет кнопка закрыть документ. Закрываю документ и открываю заново - все гуд. Не замечали сами у себя такой особенности? У меня WORD2007 на Windows 7

исправил, проверяйте

[allar8]

Сообщение от azetown исправил, проверяйте

Спасибо! И С наступающим Вас!

[sKeeper]

Сообщение от TechNick Что-то у меня не работает. Нажимаю "Получить" и ничего не происходит. Пробовал в Civil 2016, Acad 2012 и Acad 2017

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

[Barmaley Bubusikin]

Спасибо за программу. Заметил такой нюанс, при сохранении в файл не видно существующих файлов в папке, надо начинать набор имени.
P.S. А для какой цели вкладки листов в программе?
Хотелки: отображать имя открытого файла во вкладке, либо научиться читать многолистовые xls.

[allar8]

Почему то после перезаписи полей в WORD c файлом происходит вот это https://cloud.mail.ru/public/3n8F/DteWmdJ7J т.е. глючит. После перезапуска файла все ок. Может конечно это специально зделано чтоб пользователи были вынуждены перезагружать файл - чтоб поля обновились?
И еще заметил вроде как добавился столбец с галочками для выбора нужных свойств для перезаписи. Это очень полезная штука. Но есть еще один вопрос - можно ли сделать так чтоб свойства файлов не перезаписывались а добавлялись к уже существующим в файле - если так можно будет сделать то это ваще будет круто. Естественно хотелось бы эту возможность видеть настраиваемой, т.е. можно было бы например сделать чтоб свойства перезаписывались или дописывались к существующим

[Barmaley Bubusikin]

Сообщение от allar8 например сделать чтоб свойства перезаписывались или дописывались к существующим

Offtop: Там есть переключать дозапись или перезапись.
P.S. Кажется, я неправильно понял, прошу прощения.

[allar8]

Сообщение от Barmaley Bubusikin Offtop: Там есть переключать дозапись или перезапись.

Да вроде вкурил как эта штука работает - в принципе норм - то что надо. Спасибо за подсказку

[azetown]

Сообщение от Barmaley Bubusikin Спасибо за программу. Заметил такой нюанс, при сохранении в файл не видно существующих файлов в папке, надо начинать набор имени. P.S. А для какой цели вкладки листов в программе? Хотелки: отображать имя открытого файла во вкладке, либо научиться читать многолистовые xls.

вкладки сделаны для того чтобы можно было работать сразу с несколькими разными файлами (например: что то нужное быстро скопировать с одного в другой и потом применить это для нового файла DWG)


некоторые пока что неактивные элементы будут в будущем доработаны..

[allar8]

Сообщение от allar8 Сообщение от Barmaley Bubusikin Offtop: Там есть переключать дозапись или перезапись. Да вроде вкурил как эта штука работает - в принципе норм - то что надо. Спасибо за подсказку

Тока походу в ворд не обновляет при выставленной "Обновление". Только перезапись. С dwg все работает

[allar8]

Сообщение от allar8 Тока походу в ворд не обновляет при выставленной "Обновление". Только перезапись. С dwg все работает

Да вроде все работает. Сори
Тока вот щас тут как раз начал ей активно пользоваться и появились пожелания по улучшению еще.
Не очень удобное диалоговое окно для выбора нужной папки при пакетном обновлении/перезаписи свойств. Очень сильно в нем не хватает адресной строки (для вставки пути из буфера обмена) - очень неудобно лазить по дереву, а на серваке в нашей конторе например вообще невозможно выбрать папку через это диалоговое окно - приходится папку на свой комп копировать. В принципе жить с этим можно - но есть такой вот момент.
А так в принципе программа шикарная. И вообще большой респект разработчику еще раз

[Сергей812]

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

а копировать путь из свойства файла на сервере в диалог выбора не помогает?

[allar8]

С радостью бы, но не знаю где этот диалог выбора - скрин можете сделать.

[Сергей812]

Без понятия, где у этой программы диалог) Просто вспомнилось, что у той же бесплатной программы pdfsam (для работы с pdf) такая же проблема была - она не могла "пройти" дальше начальной папки на сервере. Лечилось тем, что задавался в настройках диалога выбора файлов начальный каталог - папка проектов на сервере. А связано это было, насколько помню, с использованием устаревших функций Win API в самой программе.

[allar8]

Сообщение от Сергей812 Без понятия, где у этой программы диалог) Просто вспомнилось, что у той же бесплатной программы pdfsam (для работы с pdf) такая же проблема была - она не могла "пройти" дальше начальной папки на сервере. Лечилось тем, что задавался в настройках диалога выбора файлов начальный каталог - папка проектов на сервере. А связано это было, насколько помню, с использованием устаревших функций Win API в самой программе.

Я правильно понял, что это подсказка разработчику?

[Сергей812]

Сообщение от allar8 Я правильно понял, что это подсказка разработчику?

заходите через тот же проводник на сервер в папку с проектом, на любом файле вызываете свойства и копируете путь к этому файлу. Диалог выбора папки программы работы со свойствами этот путь воспримет или нет, если вставить скопированное?

[allar8]

Сообщение от Сергей812 заходите через тот же проводник на сервер в папку с проектом, на любом файле вызываете свойства и копируете путь к этому файлу. Диалог выбора папки программы работы со свойствами этот путь воспримет или нет, если вставить скопированное?

Да путь то скопировать не проблема. Основной вопрос куда его вставлять в AutoCADKey_manage - нету адресной строки то - про что я и говорил изначально

[Сергей812]

Сообщение от allar8 Да путь то скопировать не проблема. Основной вопрос куда его вставлять в AutoCADKey_manage - нету адресной строки то - про что я и говорил изначально

ну это уже вопрос к разработчику.. На каком языке он вообще пишет)

[allar8]

Сообщение от Сергей812 ну это уже вопрос к разработчику.. На каком языке он вообще пишет)

Ну дык.)
Я не разбираюсь в языках - чисто user.
Но есть подозрение что не получится сделать адресную строку.
Похожее диалоговое окно видел в Реверсе. С аналогичной просьбой обращался к разработчику реверса - сказал что на том языке нельзя так сделать.
Но Там у него зато можно в другом месте прописать путь по умолчанию.
Если и тут не получится сделать адресную строку в самом диалоговом окне, то вариант подобный тому как сделано в реверсе по моему мнению был бы вполне достаточен.

[doctorraz]

Сообщение от allar8 сказал что на том языкке нельзя так сделать.

можно, есть готовые хаки броузера файлов с адресной строкой, просто они им не попались на глаза

[allar8]

Сообщение от doctorraz можно, есть готовые хаки броузера файлов с адресной строкой, просто они им не попались на глаза

Были бы Вам очень благодарны если бы вы смогли подсказать это разработчику

[Сергей812]

Сообщение от doctorraz можно, есть готовые хаки броузера файлов с адресной строкой, просто они им не попались на глаза

а зачем вообще адресная строка? Просто диалог выбора папки должен спокойно "проходить" через подключенный сетевой диск/папку к проектам на сервере. А не приделывать очередные костыли)

[allar8]

Сообщение от Сергей812 а зачем вообще адресная строка? Просто диалог выбора папки должен спокойно "проходить" через подключенный сетевой диск/папку к проектам на сервере. А не приделывать очередные костыли)

По дереву неудобно и долго лазить - путь скопировал вставил и в папке

[Сергей812]

Сообщение от allar8 По дереву неудобно и долго лазить - путь скопировал вставил и в папке

У любого приличного стандартного диалога выбора папки/файла есть возможность указать перед вызовом свойство типа RootFolder - путь, с которого начинается навигация. А далее уже вопросы интерфейса)

[allar8]

Стала появляться ошибка при пакетной записи свойств
Из-за чего может быть?
Раньше все было нормально, даже при установленном одновременно Компасе и автокаде
Ошибка стала появляться после восстановления системы акронисом

[allar8]

Сообщение от allar8 Стала появляться ошибка при пакетной записи свойств Из-за чего может быть? Раньше все было нормально, даже при установленном одновременно Компасе и автокаде Ошибка стала появляться после восстановления системы акронисом Миниатюры *

Вроде понял почему ошибка эта вылазит
Если сохранить свойства в файле с расширением txt, а потом попытаться подгрузить из этого txt и пакетно попытаться перезаписать свойства - то вылазит подобная Ошибка
Решение: При сохранении свойств и использовании файлов с расширением *.bin ошибка не появляется

И еще один может быть баг заметил - при пакетной перезаписи свойств в папках только с файлами dwg например, (т.е. файлов docx в папках нет) программа выдает след ошибку (см. вложение)
Суть ее как я понимаю в том что обязательно при пакетной перезаписи свойств в папках должны быть разные типы файлов (и dwg b docх)
В идеале было бы сделать возможность выбора типа файлов и при пакетной перезаписи еще, если это возможно

[Barmaley Bubusikin]

Как бы подружить прогу с символами Ø и √?

[allar8]

Сообщение от Barmaley Bubusikin Как бы подружить прогу с символами Ø и √?

Чет не замечал - надо глянуть

[azetown]

Добрый день.
попробуйте вместо ∅ - писать %%С
ну и тому подобное в мультитексте подглядеть можно
см картинку

ps
ну и еще можно отсюда коды символов подглядеть

----- добавлено через ~8 мин. -----

Сообщение от WilliamClassic Спасибо. Еще заметил, что ваша программа не понимает спецсимволов (², ×, ³). Вместо их ставит вопросительный знак. Может дело в шрифте программы?

кстати по этому вроде тоже помогает

[Barmaley Bubusikin]

Сообщение от azetown попробуйте вместо ∅ - писать %%С

Не понял где писать. Поля вставляю через Excel.
Искажение происходит на этапе загрузки из Экселя и получении из Акада. Интерес к знаку √
Скрины "было" и "стало" - загрузка из xls в менеджер

[azetown]

Сообщение от Barmaley Bubusikin Не понял где писать. Поля вставляю через Excel. Искажение происходит на этапе загрузки из Экселя и получении из Акада. Интерес к знаку √ Скрины "было" и "стало"

код знака √ - \U+221A

надо в программе заменить этот символ на код - \U+221A

[Barmaley Bubusikin]

Сообщение от azetown надо в программе заменить этот символ на код - \U+221A

Нормальный костыль

[azetown]

Сообщение от Barmaley Bubusikin Нормальный костыль

это спецсивлолы, разные программы не дружат между собой в этой сфере

[Barmaley Bubusikin]

В 2019 работает. Поначалу что-то мешало, и я очень, но потом

[kacugu]

Касперский начал ругаться

[brook]

azetown,
Добрый день.
а вы на чём писали программу, на с#? https://forum.dwg.ru/showthread.php?t=109960&page=4
не поделитесь исходниками? я хочу сделать нечто похожее по смыслу, но с другим интерфейсом и только начала ковыряться. с вордом у меня получилось, а с автокадом поиск привел в вашу тему

[Volodich]

Автору программы большое спасибо!
У меня сработало.
Морочиться вообще не надо, работает прямо с активным окном автокада. Круто!

[themask89]

Автор, спасибо за прогу, экономит кучу времени нервов. У меня вопрос, я работал под win8, работает с ошибками но все поля меняет без проблем. Пересел на win10 и прога признаков чтения/записи не подает, запускается, открывается, и на этом все. Пробовал режим совместимости итд ничего не помогает, может есть версия под win10 или самому что-то можно поковырять, кто сталкивался?

[allar8]

Сообщение от themask89 Автор, спасибо за прогу, экономит кучу времени нервов. У меня вопрос, я работал под win8, работает с ошибками но все поля меняет без проблем. Пересел на win10 и прога признаков чтения/записи не подает, запускается, открывается, и на этом все. Пробовал режим совместимости итд ничего не помогает, может есть версия под win10 или самому что-то можно поковырять, кто сталкивался?

у меня win10 (1909 сборка) - все работает. На 1809 и 1903 тоже все работало. Но замечал у меня не зависимо от операционки бывают ошибки при пакетной работе. Ошибок нет, если в папке есть и файлы docx и файлы двг. Если только двг в папке выскакивают ошибки. Так же рекомендую файлы программы сохранять под bin - тоже заметил проблемы с пакетной работой если файлы программы сохранены под другим форматом. А формат xls "портит" данные из чисел с точкой, превращая их в даты. Вот бы программа умела таким данным при сохранении в эксель присваивать формат Текст - тогда бы проблем не было.

[Сергей812]

Сообщение от allar8 А формат xls "портит" данные из чисел с точкой, превращая их в даты.

запятая стоит в excel/windows в качестве десятичного разделителя?

[allar8]

Сообщение от Сергей812 запятая стоит в excel/windows в качестве десятичного разделителя?

Не важно. Или не помню может и наоборот дату превращает в числа. Точнее вот как - ввожу данные в поля программы например дату в формате 02.20. Сохраняю в xls. Потом загружаю этот хls в место введенных 02.20 осталось 2.2. У тех у кого в настройках Windows разделитель разрядов стоит стандартно запятая - такой проблемы нет. Но я у себя специально настроил точку, для удобства совместимости эксель и маткад - пользуюсь иногда связями между этими программами. В общем понятно почему так, поэтому это не претензия, тем более претензии тут не уместны - программа то бесплатная. И без индивидуальных своих хотелок уж как нить переживу). А автору все равно еще раз огромное спасибо за программу.

[petro_f]

Сообщение от allar8 Не важно. Или не помню может и наоборот дату превращает в числа. Точнее вот как - ввожу данные в поля программы например дату в формате 02.20. Сохраняю в xls. Потом загружаю этот хls в место введенных 02.20 осталось 2.2. У тех у кого в настройках Windows разделитель разрядов стоит стандартно запятая - такой проблемы нет. Но я у себя специально настроил точку, для удобства совместимости эксель и маткад - пользуюсь иногда связями между этими программами. В общем понятно почему так, поэтому это не претензия, тем более претензии тут не уместны - программа то бесплатная. И без индивидуальных своих хотелок уж как нить переживу). А автору все равно еще раз огромное спасибо за программу.

Корректно было бы чтобы программа смотрела какой разделитель стоит в системных настройках и корректно бы вписывала в эксель цифры с использованием выбранного разделителя.
Смотри строки 2456 и 2521 приложенного ниже лиспа (он примерно тоже самое делает, что и эта прога).
А уж в проге корректно проверить используемый разделитель в системе - раз плюнуть.., тем более, что эксель потом сам может корректно конвертировать точку/запятую...

Тут более свежая версия плагина RWSPFDP от 10.03.2022 пост #22

[allar8]

Сообщение от petro_f Корректно было бы чтобы программа смотрела какой разделитель стоит в системных настройках и корректно бы вписывала в эксель цифры с использованием выбранного разделителя.

Как говорится совершенству нет предела. Но пока не понятно как этот лисп "пристегивается" к программе или вы просто в качестве идеи приложили лисп для автора?

[petro_f]

Сообщение от allar8 о пока не понятно как этот лисп "пристегивается" к программе

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

----- добавлено через 45 сек. -----

Сообщение от allar8 просто в качестве идеи приложили лисп для автора

Ну автор может по аналогии поправить свою прогу.

[allar8]

----- добавлено через 38 сек. -----

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

Спасибо! Интересно! Посмотрим.

----- добавлено через ~35 мин. -----

Сообщение от petro_f RWSPFPD.zip (38.8 Кб, 2 просмотров) Пример.zip (1.17 Мб, 1 просмотров)

Тоже хорошо, как альтернатива тоже вполне имеет право на жизнь. Мне лично понравилось на первый вгляд. Тут я так понимаю работа только с текущими файлами и только dwg, пакетного экспорта нет?. Но даже если и так, то даже если только для двг и для текущих файлов то тоже даже очень не плохо. По поводу экспорта таблиц в эксель это как бы и стандартными средствами можно, но как я понимаю наличие этой возможности на базе вашей программы, согласен, добавляет удобства.

----- добавлено через ~30 мин. -----

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

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

[petro_f]

Сообщение от allar8 Тут я так понимаю работа только с текущими файлами и только dwg, пакетного экспорта нет?

Мне на тот момент не требовался пакетный менеджер. Я вообще предпочитаю с каждым файлом "лично работать" Пакетную оболочку можно дописать при необходимости - функция есть, а уж пакетный вызов её всегда можно доделать.

Поле RWSPFPD_имя_вкладки_excel позволяет автоматически открывать нужную вкладку (см. пример в этом посте). Очень удобно когда есть типовые щиты - нарисовал один - заполнил по необходимости нужно кол-во вкладок в эксель и внёс далее в схемы щитов.

Сообщение от allar8 По поводу экспорта таблиц в эксель это как бы и стандартными средствами можно

Ну так стандартные средства экспортируют в CSV файл и без копирования ширин столбцов и прочих мелочей (необходимо корректно указать используемый масштаб в лиспе строки с 41 по 51 и тогда он будет копировать размерность таблицы).

[azetown]

Сообщение от themask89 Автор, спасибо за прогу, экономит кучу времени нервов. У меня вопрос, я работал под win8, работает с ошибками но все поля меняет без проблем. Пересел на win10 и прога признаков чтения/записи не подает, запускается, открывается, и на этом все. Пробовал режим совместимости итд ничего не помогает, может есть версия под win10 или самому что-то можно поковырять, кто сталкивался?

Попробуйте после записи в автокаде выполнить команду _regenall, бывает что поля запишет, но визуально поля не обновляются..

[allar8]

Сообщение от petro_f Ну так стандартные средства экспортируют в CSV

А ну да точно. Вот терь вспомнил чем мне не нравился стандартный экспорт - форматом файла. Но я все равно не пользуюсь этим. Чаще нужно таблицу из палок превратить в "нормальную" - тож лиспом пользуюсь. Есть минус - пропускает пустые строки. Но смирился. Но это уж от темы уходим. Про экспорт и преобразование таблиц уместнее в другом тут месте говорить.

Сообщение от petro_f Поле RWSPFPD_имя_вкладки_excel позволяет автоматически открывать нужную вкладку

А про енто пока не понял - видимо сугубо индивидуальная задача - но понимаю у самого полно всяких хотелок - осталось научиться их реализовывать и есть счастье). В этом вам завидую белой завистью)

[petro_f]

Сообщение от allar8 Сообщение от petro_f Поле RWSPFPD_имя_вкладки_excel позволяет автоматически открывать нужную вкладку А про енто пока не понял - видимо сугубо индивидуальная задача - но понимаю у самого полно всяких хотелок - осталось научиться их реализовывать и есть счастье). В этом вам завидую белой завистью)

А то удобно, когда у тебя более 30 щитов в файле, и что бы не листать в перечне вкладок нужную вкладку, то плагин сам подставляет нужную вкладку в выбор. Со второго примера откройте любой файл под загрузку и уведите, что в перечне вкладок уже стоит нужная вкладка в выборе.

[allar8]

Сообщение от petro_f не листать в перечне вкладок

Я и говорю индивидуально. Все зависит от специфики. У меня в работе лично мало чего однотипного бывает, да и вкладками листа не любитель пользоваться - но енто опять же другая тема. Но ваши идеи и желание автоматизизировать однотипные вещи мне близки, признаться. Только опять жи другая тема)

[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]

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

[baksconstructor]

Сообщение от shartal Однако ничего не получилось.

Как и писал ранее - написать автору и попросить добавить вам вера не позволяет ?

[Сергей812]

или просто перегонять содержимое экселя в таблицу ворда - если, конечно, формат таблиц (по столбцам) совпадает.

[NAUoff]

Здравствуйте. У меня после переустановки Windows открывается в таком виде. На нажатие кнопки "Получить" (там где она была) не реагирует никак. Можно это как-то исправить?