'
' Demonstrating how the Parent3DObject property can be used
'
NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
set oModel = oRoot.AddModel( , "Sally" )
set oNull = oModel.AddNull
set oNull1 = oNull.AddNull
Application.LogMessage oNull1.Name & " is a child of the object " & oNull1.Parent3DObject
Application.LogMessage TypeName( oRoot.Parent3DObject )
Application.LogMessage oModel.Parent3DObject
Application.LogMessage oNull.Parent3DObject
Application.LogMessage oNull.Kinematics.Parent3DObject
' Expected Result:
'INFO : null1 is a child of the object Sally.null
'INFO : Nothing
'INFO : Scene_Root
'INFO : Sally
'INFO : Sally.null

/*
        The Parent3DObject property can be very useful when dealing with cluster properties or
        other objects that are buried deep in a hierarchy. 
*/
NewScene( null, false );
var oModel = Application.ActiveSceneRoot.AddModel();
oModel.Name = "MyModel";
var obj = oModel.AddGeometry( "Cube", "MeshSurface" );
// Add a textured image to the polygon mesh 
BlendInTextureLayers( "Image", obj, 1, true, siReplaceAndNoBlendInTextureLayers );
obj.ActivePrimitive.Geometry.AddCluster( siSampledPointCluster, "TextureCluster" );
GenerateUniqueUVs( obj, "TextureProperty" );
SetInstanceDataValue( obj, obj.Material + ".Phong.Image.tspace_id", "TextureProperty" );
// Get at the uv property
var oUVProperty = Dictionary.GetObject( obj + ".polymsh.cls.TextureCluster.TextureProperty" );
// Which 3dobject does the UVProperty belong to?
var o3DObject = oUVProperty.Parent3DObject;
Application.LogMessage( "UV Property belongs to : " + o3DObject.FullName );
// Expected Result:
//INFO : UV Property belongs to : MyModel.cube