Как узнать Object_ID для объекта, созданного через SendCommand ?

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

Прошу учесть, что я в VBA не очень, больше на лиспе:
Определяем "базовую точку" блока:

Dim apInsPoint(2) As Double
  apInsPoint(0) = 0#: apInsPoint(1) = 0#: apInsPoint(2) = 0#

И создаем новый блок:

Dim aoBlock As AcadBlock
  Set aoBlock = ThisDrawing.Blocks.Add(apInsPoint, "New Block")

И добавим в него (в блок то бишь), например, отрезок:

Dim apStartPoint(2) As Double, apEndPoint(2) As Double
  apStartPoint(0) = 0#: apStartPoint(1) = 0#: apStartPoint(2) = 0#
  apEndPoint(0) = 10#: apEndPoint(1) = 20.5: apEndPoint(2) = 0#
Dim aoLineInBlock As AcadLine
  Set aoLineInBlock = aoBlock.AddLine(apStartPoint, apEndPoint)

И установим для отрезка тип и вес линии "ПоБлоку":

  aoLineInBlock.Lineweight = acLnWtByBlock
  aoLineInBlock.Linetype = "ByBlock"

Примерно так...

Ну или попробовать смотреть в сторону

acSelect можно использовать и Last (я точно не помню - вызови справку из када, посмотри там).

Чего-то совсем плохо:
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("curr_cell_ss")
После второй из этих строчек выходит из функции, ничего не сделав (во всяком случае, видимый изменений не наблюдаю). Чего-то не то я, наверно, делаю...

Спасибо! Моё шаманство завершилось тем, что прога падать перестала. Насчёт Sencommand-a -- полностью согласна, что это криво. Применяю его только потому что иначе работает не совсем верно:  https://www.caduser.ru/forum/topic27852.html . Однако, мне всё ещё не понятна такая вещь: судя по содержимому файла блока, блок создаётся нормально. Но при попытке выделить его выделяется только та дуга, на которую кликнули. То есть как будто и не блок это... Так должно быть или нет?
Код такой:

ThisDrawing.Wblock "F:\BlockFileName.dwg", ssetObj
base_point(0) = 0#: base_point(1) = 0#: base_point(2) = 0#
Set blk = ThisDrawing.Blocks.Add(base_point, "block_name")
base_point(0) = cell_points_arr(0): base_point(1) = cell_points_arr(1): base_point(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(base_point, "block_name", 1#, 1#, 1#, 0)

А по вопросу :

Так и узнать: object.ObjectID

А какого видимого эффекта Вы ожидаете от этих двух строк?) Ведь Вы всего лишь этим добавляете в документ именованый SelectionSet.
Видимый эффект -- чтоб в Debug-ере можно было двинуться на следующую строчку кода. :) Вместо этого оно выходило из функции. Сейчас какими-то дикими методами (уже не помню, что именно я для этого сделала) мне удалось победить эту бяку, но осталась проблема со вставкой блока: он не всегда вставляется. Файл блока создаётся, а блок не вставляется. Поэтому и получалось выделение не всего блока в целом, а отдельных дуг. Это те дуги, из которых мы лепим блок. По идее, после вывода блока их стоит удалять, но тогда на экране ничего не останется.

Я так и сделала.  Теперь появилась другая печаль: вместо одного блока рисуется сразу два, один поверх другого, причём нижний совершенно неубиваемый, его даже выделить не получается. И так до тех пор, пока не нарисую новый блок. Когда рисую новый блок, старый исчезает. С экрана исчезает или вообще - не знаю. Мне кажется, что причина этого явления в том, что имя файла блока каждый раз одно и то же. В связи с этим вопрос: если удалить файл блока, разве это вляиет на блок, который уже вставлен в чертёж?
Если давать разные имена файлам блоков, то почему-то у меня в одних случаях блок вставляется, а в других - нет. Хотя все блоки рисуются одиноково, только с разными значениями координат. Я пока не знаю, в чём причина. Буду искать, либо вообще забью на эти блоки и постараюсь сделать через полилинии. Код выглядит так:

ThisDrawing.Wblock "block_file.dwg", sstemp
base_point(0) = 0: base_point(1) = 0: base_point(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(base_point, "block_file.dwg", 1#, 1#, 1#, 0)
blockRefObj.Update

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

Sub InsertBlock()
    Dim ArAtr As Variant
    Dim Bltmp As Object
        Pnt(0) = TPosition1(0)
        Pnt(1) = TPosition2(0)
        Pnt(2) = 0#
        Set Bltmp = Cad.ModelSpace.InsertBlock(Pnt, "002b.dwg", ScB, ScB, 1#, 0)
        If Bltmp.Name = "" Then
            Cad.Utility.prompt "Невозможно выполнить операцию. Обратитесь к разработчикам."
        Else
            ArAtr = Bltmp.GetAttributes
            ArAtr(0).textstring = n
            ArAtr(1).textstring = FormatNumber(Ar, 1#, -1, 0, 0)
        End If
End Sub

Есть такое понятие, как "Block Definition" (не знаю, как описать это по-русски)) Это что-то типа определения (описание) блока. В вашем примере, вы меняете его, посылая измененные примитивы в "block_file.dwg", а потом вставляете в чертеж, в котором уже есть предыдущий (то бишь другой) Block Definition и с тем же самым именем.
То есть вы правы. Проблема тут в том, что содержание блока меняется, а имя блока - нет. Поэтому, вставляя блок с новым содержанием вы переопределяете все referense с тем же самым именем. Отсюда и накладки один на другой.. Один экземпляр - это новый вставленный блок, а под ним - предыдущий, но переопределенный и получивший новое содержание.

Спасибо всем огромное!