' Get the DataRepository object
Set oDatabase = xsiutils.DataRepository
' Use the DataRepository object to count the number of 3D objects in the scene
set oRoot = Application.ActiveProject.ActiveScene.Root
set oGrid = oRoot.AddGeometry("Grid","MeshSurface")
Application.LogMessage oDatabase.GetCount(oGrid)