Ошибка в Private Sub AcadDocument_ObjectErased(ByVal ObjectID As LONG_PTR)

[wl2000]

Здравствуйте,

Происходит ошибка: Method 'ObjectIdToObject' of object 'IAcadDocument' failed

при выполнении следующего:

Код - Visual Basic [Выбрать]

1. Private Sub AcadDocument_ObjectErased(ByVal ObjectID As LONG_PTR)
2. Dim tempObj As AcadObject
3.     Set tempObj = ThisDrawing.ObjectIdToObject(ObjectID) 'здесь ошибка
4. End Sub

AutoCAD 2016, Windows 10 x64

Подскажите в чем проблема. Заранее спасибо

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

wl2000
Приветствую на форуме!

Происходит ошибка: Method 'ObjectIdToObject' of object 'IAcadDocument' failed

Всегда (т.е. при удалении любого примитива)?

[wl2000]

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

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

Если я не ошибаюсь, то именно так и должно быть. Т.е. по ObjectId для удалённого объекта сам объект в VBA получить нельзя.

[wl2000]

Тогда, получается, при этом событии невозможно понять какой объект был удалён?

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

Тогда, получается, при этом событии невозможно понять какой объект был удалён?

Именно так. Нашёл тему, которой уже скоро 15 лет: http://forums.autodesk.com/t5/visual-basic-customization/objecterased-event-question/m-p/346276
Итак. Средствами VBA это сделать нельзя (можно при помощи ObjectARX и AutoCAD .NET API). Разве что до операции удаления хранить коллекцию ObjectID и описаний объектов, которые тебя интересуют и потом находить по ObjectID удалённого объекта его описание.

[wl2000]

Вас понял. Спасибо большое

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

Пожалуйста. Я бы рекомендовал использовать в AutoCAD не VBA, а .NET API.

[wl2000]

я пробовал - не понравилось

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

я пробовал - не понравилось

"Это ты просто его готовить не умеешь!" (c)
Возможности AutoCAD .NET API значительно шире возможностей VBA в AutoCAD.

[wl2000]

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

может, действительно, не умею готовить

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

но и неудобства тоже большие - транзакции всякие

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

невозможно редактировать код "на лету"

Для меня это - достоинство. Иначе в случае аварийной ситуации, когда AutoCAD вылетает, теряешь все изменения кода.

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

Это пожалуй единственное неудобство. Ну тогда ObjectARX - там можно загружать/выгружать приложение. Единственно что практически любая ошибка и AutoCAD крэшится.

много-много раз

А вот это зависит от того, насколько чистый код ты сразу пишешь. Например, для проверки вот этого кода мне понадобилось два запуска AutoCAD (и то в первый раз я создавал тестовый блок): http://adn-cis.org/forum/index.php?topic=3229.msg13471#msg13471

[wl2000]

Я тут неоднократно приводил примеры как обходится без транзакций

где можно посмотреть?

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

где можно посмотреть?

Ну вот несколько штук:
http://adn-cis.org/sozdanie-polyline3d-bez-ispolzovaniya-tranzakczii.html
http://adn-cis.org/preobrazovanie-koordinat-tochki-iz-prostranstva-lista-v-prostranstvo-modeli-net-api.html
http://adn-cis.org/kak-udalit-neispolzuemyie-i-neobrabotannyie-ssyilki-na-dannyie-%28datalink%29.html
http://adn-cis.org/kak-poluchit-neispolzuemyie-vneshnie-ssyilki-rastryi-i-podlozhki.html

[wl2000]

а вот там где про 3Дполилинию без транзакций - это ко всем примитивам применимо?