Сразу смотрим код.

theView = av.FindDoc("View1")

if (theView<>nil) then
 theTheme = theView.FindTheme("base.shp") 
 if (theTheme<>nil) then
  theFTab = theTheme.GetFTab
  x=0
  for each recNum in theFTab
          x=x+1
  end
  MsgBox.Info( x.AsString, "")
 else
   MsgBox.Info( "No Theme", "")
 end
else
  MsgBox.Info( "No View", "")
end

Теперь результат.

А теперь будет смотреть что изменилось. Мы использовали функцию GetFTab

anFTheme.GetFTab 

Она нам вернула объект Ftab который является в физическом понимании таблицей которая привязана к объектам. Дальше мы бежим по ней и считаем записи.

for each recNum in theFTab

А в конце выводим количество объектов.