SIObject object

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

• SIObject.2.vbs

SIObject IsClassOf IsEqualTo Application Categories FullName Help Name NestedObjects Origin OriginPath Parent Type