'
' This example demonstrates how to test the DataRepository 
' to test whether an object exists
'
NewScene , false
dim nIdentifier
' Create a cone and then test its existence
set oDatabase = XSIUtils.DataRepository
set oCone = CreatePrim( "Cone", "MeshSurface" )
nIdentifier = oDatabase.GetIdentifier( oCone )
Application.LogMessage oDatabase.HasData( nIdentifier )
'INFO : True
' Remove the cone and test its existence again
DeleteObj( "Cone" )
Application.LogMessage oDatabase.HasData( nIdentifier )
'INFO : False
' Restore it and test again
Undo
Application.LogMessage oDatabase.HasData( nIdentifier )
'INFO : True