Очистка чертежа через ObjectDBX на VBA

[Anatoly]

Вот тут
 http://forum.dwg.ru/showthread.php?t=13694
насколько мои скромные знания лиспа позволяют понять, это делается.
А как на VBA?

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

А как на VBA?

Зачем? Мало других способов?

[Anatoly]

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

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

Удаление и вставка есть, а с очисткой проблема.

Чистить как будем? В AcadDocument есть метод PurgeALL, в AxDbDocument такого метода нет. Так что ObjectDBX для этой цели не подходит.

[Anatoly]

Понятно, спасибо.
Думал что лисп использует ObjectDBX  для очистки

Код - Auto/Visual Lisp [Выбрать]

1. n_doc (vla-getinterfaceobject (vlax-get-acad-object) "ObjectDBX.AxDbDocument.16")

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

Тебе придётся открывать чертеж не через ObjectDBX. Настоятельно рекомендую забыть VBA и писать на .NET (лучше C#, но в крайнем случае сойдёт VB.NET)

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

И еще. Посмотри готовые: https://apps.autodesk.com/ACD/ru/List/Search?isAppSearch=True&searchboxstore=ACD&facet=&collection=&sort=&query=purge

[Anatoly]

Спасибо, посмотрю.

[Anatoly]

В итоге просто удалил описание блока

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

1. objDBX.Blocks("имя_блока").Delete

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

В итоге просто удалил описание блока

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

1. objDBX.Blocks("имя_блока").Delete

Это можно делать только если нет вставок этого блока.

[Anatoly]

Ну да, перед этим удалил этот блок в модели и в листах.