' 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)