Очистка блока (удаление содержимого)

Ой, неправильно написала... Если в SendCommand написать "-purge" (с минусом), то тогда ничего не происходит, а если написать "_purge" , то вылезают 2 какиих-то окошка, в первом из которых - список блоков для удаления (моего блока нет в этом списке), а во втором - создание блока. Что делать с этими окошками? Как сделать, чтоб блок очищался программно без всяких окошек?

Я не монстр VBA, но, думаю, по работе с блоками я чего-то могу :)
1.

Примерно так, наверное:

Sub EraseBlockContents(sBlockName As String)
Dim BlockDef As AcadBlock
Dim lEntity As AcadEntity
Dim lEntCounter As Long
  On Error GoTo lErrHandle
  Set BlockDef = ThisDrawing.Blocks.Item(sBlockName)
  For Each lEntity In BlockDef
    lEntity.Erase
  Next lEntity
  Exit Sub
lErrHandle:
  MsgBox Err.Description, vbOKOnly + vbCritical + vbApplicationModal
  Exit Sub
End Sub

Если надо удалять все вхождения блока (гарантированно), то надо выполнять нечто типа ThisDrawing.SelectionSet.Add("BLOCKS") и заполнять его по принципу fiType = "INSERT", <ИмяБлока> и filData = 0, 2
Только такой вариант не удалит блоки, входящие в другие. Поэтому я б попробовать пройтись по всей коллекции блоков и проверять там имя "удаляемого". Если есть, то ему либо .Explode и последующее .Delete, либо сразу .Delete. А уже потом ThisDrawing.PurgeAll.
---
ИМХО

Стоп! Код удаляет СОСТАВ блока. А не его вхождения! Это две большие разницы!