Удаление блоков по названию в dwg файле средствами vba excel

[Alexandra3]

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

    Set acadApp = New AcadApplication
    Set acadDoc = acadApp.Documents.Open(objFile)
    Set oBlocks = acadDoc.Blocks       'коллекция блоков
    n = acadDoc.Blocks.Count            'общее количество блоков в файле

For i = 0 To n - 1
If oBlocks(i).Name = "8999" Or oBlocks(i).Name = "159159" Then 
 oBlocks(i).Delete
    End If
Next i

В строке

oBlocks(i).Delete

возникает ошибка:
Run-time error '-2145386240 (80200100)'
На объект имеется ссылка

Подскажите, пожалуйста, как правильно удалить блок? как удалить ссылки на него?

[Serge_Bliznykov]

Сообщение от Alexandra3

возникает ошибка:
Run-time error '-2145386240 (80200100)'
На объект имеется ссылка

абсолютно никогда не работал с ACAD приложениями, тем более, из VBA Excel

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

избежать этого можно переписав цикл FOR на цикл WHILE или использовать обратный цикл FOR
вот так попробуйте:

For i = n-1 To 0 Step -1
   If oBlocks(i).Name = "8999" Or oBlocks(i).Name = "159159" Then 
      oBlocks(i).Delete
  End If
Next i

[Alexandra3]

Спасибо, но не помогло, к сожалению.

[Serge_Bliznykov]

ну, тогда извините.

похоже, что так блоки удалять нельзя.

[Alexandra3]

Если кому-то пригодится, нашла решение:

    Set acadApp = New AcadApplication
    Set aws= acadApp.Documents.Open(objFile)
i = 0
While i < aws.Blocks.Count
   Set c = aws.Blocks.Item(i)

If c.Name = "3312312" Then
    While c.Count > 0
       c.Item(0).Delete
     Wend
   End If
  i = i + 1
aws.Close saveChanges:=True
Wend