'

' Demonstrates usage of the Dictionary.GetObject method

'

' Clear the current scene to avoid name clashes and create

' a new cone named "foo"

deleteall false

CreatePrim "Cone", "MeshSurface", "foo"

' Find the subdivu parameter from the cone and set it to 10

Set oSubdivuParam = Dictionary.GetObject("foo.polymsh.geom.subdivu")

Application.LogMessage "Found a " & oSubdivuParam.type ' Outputs "Found a Parameter"

SetValue oSubdivuParam, 10

' Find the cone by its name and delete it

Set oCone = Dictionary.GetObject("foo")

Application.LogMessage "Found a " & oCone.type ' Outputs "Found a polymsh"

DeleteObj (oCone)

/*

	Demonstrates usage of the Dictionary.GetObject method

*/

NewScene(null,false);

var oModel = ActiveSceneRoot.AddModel(new ActiveXObject("XSI.Collection"),"MyMdl") ;

var oNull = oModel.AddNull( "MyN" );

var oSphere = oNull.AddGeometry("Sphere","MeshSurface","MyS");

// Expect "MyMdl.MyS"

Application.LogMessage( oSphere.FullName ) ;

// Retrieve the sphere again, this time via its string name

oSphere = Dictionary.GetObject( "MyMdl.MyS" )

// The sphere is actually nested underneath the Null so you can also specify it like this

oSphere = Dictionary.GetObject( "MyMdl.MyN.MyS" )

// Now look at one of the parameters under the sphere

// Expect "MyMdl.MyS.kine.local.posx"

Application.LogMessage( oSphere.Kinematics.Local.Parameters("posx").FullName );

// First move the sphere to a recognizable position

SetValue( "MyMdl.MyS.kine.local.posx", 7.5 )

// Calling GetValue will return the VALUE of posx parameter

var paramValue = GetValue( "MyMdl.MyS.kine.local.posx" ) ;

// Expect "number,7.5"

Application.LogMessage( typeof( paramValue ) + "," + paramValue);

// But calling Dictionary.GetObject will return the 

// actual Parameter object

var oParameter = Dictionary.GetObject( "MyMdl.MyS.kine.local.posx" )

// Expect "object,Parameter,7.5"

Application.LogMessage( typeof( oParameter ) + "," + Application.ClassName(oParameter) + "," + oParameter.Value ) ;

'

' This example shows how to find an object by its name, and to create it if it doesn't already exists.  

' In this case we reuse the Annotation that has a specific name if it is already present at the scene root.

'

NewScene , false

dim strAnnotationName

strAnnotationName = "MyAnnotation"

set oObj = Dictionary.GetObject( strAnnotationName, false )

if TypeName( oObj ) = "Nothing" then

	set oObj = ActiveSceneRoot.AddProperty( "Annotation", false, strAnnotationName )

end if

InspectObj( oObj )

/*

	This example shows how to find an object by its name, and to create it if it doesn't already exists.  

	In this case we reuse the Annotation that has a specific name if it is already present at the scene root.

*/

var strAnnotationName = "MyAnnotation" ;

var oObj = Dictionary.GetObject( strAnnotationName, false ) ;

if ( !oObj ) {

	var oObj = ActiveSceneRoot.AddProperty( "Annotation", false, strAnnotationName ) ;

}

InspectObj( oObj )