Как найти "сложные" объекты в таблице?

[grandred75]

Добрый день.
Подскажите, пожалуйста, как найти "сложные" объекты в таблице. Такие, которые имеют одну запись (строку) в таблице, но состоят из нескольких линий, полигонов и т.п.? Причем, каждый найденный объект нужно разъединить и пронумеровать все элементы находящиеся в нем с 1-го до n (кол-во элементов).

[Игорь Белов]

В QGIS задача решается в два действия:

1. [Multipart to singleparts] (Разбить составную геометрию)
2. [Add autoincremental field] (Добавить поле с автоприращением);
   задействовать [Group values by] (Поле группирования)

В MapInfo задача тоже решается в два действия:

1. Освоить MapBasic
2. Написать утилиту

[spawner]

Objectinfo(obj, 1) вернёт тип обьекта
Какая цифра что означает - смотрите в документации mapbasic

Ещё можно вручную: присвоить какому нибудь полю идентификатор (например rowid), разъединить все объекты слоя

Объекты с одинаковыми идентификаторами будут бывшими членами коллекций. Ну их и нумеровать

[grandred75]

Objectinfo(obj, 1) вернёт тип обьекта
Какая цифра что означает - смотрите в документации mapbasic

По этой логике должно подойти ObjectInfo(obj, 21) или Val(Str$(ObjectInfo(obj,21))) > 1 , но нет, не работает ...
Попробовал вариант с OBJ_INFO_NPOLYGONS+1 тоже не выходит ...

Sub Main
Dim count, n As Integer
Dim CurrentTable as string
For n = 1 to NumTables( )
count = count + 1
Select * from CurrentTable where ObjectInfo(obj, 21)
'Select * from CurrentTable where Val(Str$(ObjectInfo(obj,21))) > 1
'Select * from CurrentTable where ObjectInfo(CurrentTable.obj, OBJ_INFO_NPOLYGONS+1)
Next
End Sub

Что-то тут не так чувствую, а что в толк не возьму