2002 již nemám, nemohu ověřit. Skutečně Vám nefunguje ani toto?

Dim oobj As Object
Dim bloktest As AcadLWPolyline
For Each oobj In ThisDrawing.ModelSpace
  MsgBox "Tato entita je typu: " & oobj.ObjectName
    If oobj.ObjectName = "AcDbPolyline" Then
        Set bloktest = oobj
        MsgBox "Délka křivky je: " & bloktest.Length
    End If
Next oobj

Blok skutečně má svoje jméno a tak je možno je načíst.

Ve výběrové množině ale nemusí být jen bloky a objekt AcadEntity nebo AcadObject jméno (Name) tudíž nepodporuje.

Musíte procházet množinu po entitě, zjistit její Object.Name a podle toho pak zpracovat např. jen bloky a těm již Name přečíst lze.

Dim oobj As Object
For Each oobj In ThisDrawing.ModelSpace
  MsgBox "Tato entita je typu: " & oobj.ObjectName
    If oobj.ObjectName = "AcDbBlockReference" Then
        Set blok = oobj
        MsgBox "Jméno bloku je: " & blok.Name
    End If
Next oobj

Pokud máte z předchozích příkladů nadefinován výběr oSS, tak by to mělo fungovat takhle:

Dim oobj As Object
For Each oobj In oSS
  MsgBox oobj.ObjectName 'takhle projdete všechny objekty ve výběru a zjistíte jejich typ a podle typu se rozhodnete, co dál
Next oobj

Samozřejmě podmínky lze libovolně kombinovat, ale k vyhodnocení musí dojít najednou. Pak to má vypadat takhle:

Dim FiltrTyp(2) as integer ' podle počtu podmínkových "dvojic" od 0 tj. 0,1,2…
Dim FiltrData(2) as Variant

FiltrTyp(0)=0
FiltrData(0) = "insert"
FiltrTyp(1)=2
FiltrData(1) = "RADEKROZ"
FiltrTyp(2)=8
FiltrData(2) = "RAZITKO"

oSS.Select acSelectionSetAll, , , FiltrTyp, FiltrData