'
'	This example outputs an object's properties
'
Option Explicit
MAIN()
sub main()
	On Error Resume Next
	' Create the scene
	dim oObj
	set oObj = ActiveProject.ActiveScene.Root.AddGeometry("Sphere", "NurbsSurface")
	LogSIObject oObj
end sub
'------------------------------------------------------------------------------
' NAME:		LogSIObject
'
' INPUT:
'
' DESCRIPTION: logs SIObject properties
'------------------------------------------------------------------------------
sub LogSIObject(in_obj)
	Application.LogMessage "Name: " & in_obj.Name
	Application.LogMessage "Class: " & typename(in_obj)
	Application.LogMessage "Type: " & in_obj.Type
	Application.LogMessage "Fullname: " & in_obj.FullName
	Application.LogMessage "Parent: " & in_obj.Parent.Name
	Application.LogMessage "Application : " & in_obj.Application.Name
	Application.LogMessage "Is Equal To Parent ? " & in_obj.IsEqualTo(in_obj.Parent)
	Application.LogMessage "Is Equal To Self ? " & in_obj.IsEqualTo(in_obj)	
end sub

' These objects all support SIObject
Application.LogMessage IsSIObject( ActiveSceneRoot )
Application.LogMessage IsSIObject( Dictionary.GetObject( "Camera" ) )
Application.LogMessage IsSIObject( CreateObject( "XSI.Application" ) )
Application.LogMessage IsSIObject( ActiveSceneRoot.AddNull() )
' A string cannot be accepted without conversion
Application.LogMessage IsSIObject( "Camera" )
' XSICollection and GridData do not support SIObject
Application.LogMessage IsSIObject( CreateObject( "XSI.Collection" ) )
Application.LogMessage IsSIObject( XSIFactory.CreateGridData )
function IsSIObject( in_obj )
	' One way to test if an object supports
	' SIObject is to call a method and see if
	' there is a scripting error.
	' Careful use of "on error resume next"
	' prevents the entire script form halting
	dim strFullName
	on error resume next
	strFullName = in_obj.Fullname
	if ( err <> 0 ) then
		IsSIObject = false
	else
		IsSIObject = true    	
	end if
	' Turn error checking back on
	on error goto 0
end function
' The above example logs the following results:
'INFO : True
'INFO : True
'INFO : True
'INFO : True
'INFO : False
'INFO : False
'INFO : False