[baksconstructor]

В VBA необходимо сделать доступ к второму документу без его активации, но все команды начинают ужасно тормозить.
Оказалось что при таком действии нужно блокировать документ.
В .net есть для этого LockDocument
Но VBA нет такого.

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

[Сергей812]

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

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

Не очень понял, какие команды при работе не в текущем документе.

[baksconstructor]

Сообщение от Кулик Алексей aka kpblc Не очень понял, какие команды при работе не в текущем документе.

Любые.
Например Selection.Select
Всё работает, но мелькает окно видимого документа и всё тормозит, потому что нет этого :

https://help.autodesk.com/view/OARX/...E16BFDD&v=2024

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

А может стоит открывать документ через ObjectDBX ? Ну или по крайней мере попробовать

[Сергей812]

просто для информации небольшой офтопик:

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

[baksconstructor]

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

Вот как раз LockDocumen это и делает.

[Сергей812]

Сообщение от baksconstructor Вот как раз LockDocumen это и делает.

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

----- добавлено через ~1 мин. -----
p.s. На форуме Аутодеска человек уже 20 лет ждет ответа на этот вопрос)

[Boxa]

Offtop: наглядный пример, почему рано или поздно люди переходят с вба на что то, что развивается и не стоит на месте.

[Александр Ривилис]

Сообщение от baksconstructor Отсюда вопрос - как в VBA заблокировать документ ?

Никак. А даже если бы такая возможность была, то это никак не увеличило бы быстродействие. В VBA блокировка происходит автоматически (как и в VisualLisp)

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

Сообщение от baksconstructor Например Selection.Select Всё работает, но мелькает окно видимого документа

И в ObjectARX и в AutoCAD .NET API аналог Select работает только в активном документе. Поэтому очевидно, что для работы в VBA необходимо активировать документ, в котором производится выбор.

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

Сообщение от baksconstructor Вот как раз LockDocumen это и делает.

Нет конечно.

[Автон]

Сообщение от Кулик Алексей aka kpblc А может стоит открывать документ через ObjectDBX ? Ну или по крайней мере попробовать

Можно получить данные из файла через ObjectDBX, не открывая сам документ в редакторе.
Примерно так:

Код:

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

Dim oDbx As AxDbDocument 

Set oDbx = GetInterfaceObject("ObjectDBX.AxDbDocument." & Left(ThisDrawing.GetVariable("acadver"), 2))

oDbx.Open FileName

'Set oBlocks = oDbx.Blocks 
'Set oModelSpace =  oDbx.ModelSpace

Но для этого нужно через Tools-References подключать библиотеку Autocad/ObjectDBX Common [Номер версии] Type Library
И для каждой версии Autocad она своя, что не добавляет удобства, зато работает намного быстрее, чем открывать файл.

[baksconstructor]

Сообщение от Александр Ривилис то это никак не увеличило бы быстродействие

Без этого всё работает в10 раз медленнее, с блокировкой проблем нет.

Сообщение от Александр Ривилис В VBA блокировка происходит автоматически

Только в активном документе, в неактивном не происходит.

Сообщение от Александр Ривилис аналог Select работает только в активном документе. Поэтому очевидно, что для работы в VBA необходимо активировать документ, в котором производится выбор.

Нет. Прекрасно работает везде, и в неактивном и активном.

Сообщение от Александр Ривилис Нет конечно.

Да, конечно. Для этого оно и создано. И справке написано что нужно его использовать для этого.

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

Сообщение от Автон Можно получить данные из файла через ObjectDBX

Не вариант, слишком ограничено.

[Сергей812]

Сообщение от baksconstructor Да, конечно. Для этого оно и создано. И справке написано что нужно его использовать для этого.

в справке для VBA/ActiveX? Вы берете справку для ObjectARX (ну и обертки над ним в виде .Net) и пытаетесь как-то применить к VBA.

[Александр Ривилис]

Сообщение от baksconstructor Да, конечно. Для этого оно и создано. И справке написано что нужно его использовать для этого.

Приведите ссылку на этот фрагмент справки (или цитату).
Вот описание lockDocument в ObjectARX: https://help.autodesk.com/view/OARX/...R__ACHAR__bool
Для AutoCAD .NET API оно еще короче и без расшифровки: https://help.autodesk.com/view/OARX/...t_LockDocument

Сообщение от baksconstructor Нет. Прекрасно работает везде, и в неактивном и активном.

Конечно, т.к. происходит временная активация неактивного документа.

P.S.: Всё остальное из вашего "опровержения" я не буду комментировать - нет вижу смысла тратить своё время...

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

Сообщение от baksconstructor Всё работает, но мелькает окно видимого документа и всё тормозит,

Именно это и означает, что происходит переключение документов (активизация другого документа, и потом возврат к предыдущему).
Что касается временной блокировки изображения, то для этой цели в ObjectARX есть следующие функции:
acedUpdateDisplayPause - блокировка/разблокировка обновления дисплея
acedIsUpdateDisplayPaused - проверка статуса блокировки обновления дисплея
acedUpdateDisplay - обновление дисплея

Аналога в VBA нет. В AutoCAD .NET API аналога тоже нет, но можно вызвать через P/Invoke

[Сергей812]

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