set oRoot = Application.ActiveProject.ActiveScene.Root

set oGroup = oRoot.AddGroup

set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )

oGroup.AddMember oCube

for each oMember in oGroup.Members

	LogMessage oMember.Name & " is a member of the " & oGroup.Name

next

/* ----------------------------------------------------------

	This example shows how to find groups under the

	scene root or under a specific model given the 

	following structure:

Scene_Root                        Model    Group

+ RootGroup                              *

+ ChildModel                    *

+ ChildGroup                         *

+ AnotherChildModel             *

+ AnotherChildGroup                  *

+ GrandChildModel           *

+ GrandChildGroup                *

=====    =====

3        4

	Note: The Model.Groups property gets only 

		the immediate children of a model 

		(unlike the X3DObject.Models property, which gets all

		nested models.

*/

// ----------------------------------------------------------

//

//	SETUP

//

NewScene( null, false );

// Set up a scene with 4 objects

var oRoot = ActiveSceneRoot;

var oMbr1 = oRoot.AddGeometry( "Disc", "MeshSurface" );

var oMbr2 = oRoot.AddGeometry( "Torus", "MeshSurface" );

var oMbr3 = oRoot.AddGeometry( "Sphere", "MeshSurface" );

var oMbr4 = oRoot.AddNull();

// Create a group under the root 

oRoot.AddGroup( oMbr1, "RootGroup" );

// Create a new model and another group under the new model 

var oMdl = oRoot.AddModel( oMbr2, "ChildModel" );

oMdl.AddGroup( oMbr2, "ChildGroup" );

// Add another model to the root 

var oMdl = oRoot.AddModel( oMbr3, "AnotherChildModel" );

oMdl.AddGroup( oMbr3, "AnotherChildGroup" );

// Nest yet another model under the second child model

var oMdl = oMdl.AddModel( oMbr4, "GrandChildModel" );

oMdl.AddGroup( oMbr4, "GrandChildGroup" );

//----------------------------------------------------------

//

//	SEARCH

//

// Find all groups under the scene root

LogMessage( "******** GROUPS UNDER " + oRoot.Name + " ********" );

FindGroupsUnderModel( oRoot );

// Find all groups under 'AnotherChildModel' 

LogMessage( "******** GROUPS UNDER " + oMdl.Name + " ********" );

FindGroupsUnderModel( oMdl );

// Now find all groups in the scene

RecursiveGroupSearch( oRoot );

//----------------------------------------------------------

//

//	RESULTS

//

//INFO : "******** GROUPS UNDER Scene_Root ********"

//INFO : "RootGroup contains these members:"

//INFO : "	disc"

//INFO : "******** GROUPS UNDER GrandChildModel ********"

//INFO : "GrandChildModel.GrandChildGroup contains these members:"

//INFO : "	null"

//INFO : "******** FINDING ALL GROUPS IN THE SCENE ********"

//INFO : "# of models under the root: 3"

//INFO : "RootGroup contains these members:"

//INFO : "	disc"

//INFO : "ChildModel.ChildGroup contains these members:"

//INFO : "	torus"

//INFO : "AnotherChildModel.AnotherChildGroup contains these members:"

//INFO : "	sphere"

//INFO : "GrandChildModel.GrandChildGroup contains these members:"

//INFO : "	null"

//----------------------------------------------------------

//

//	HELPERS

//

// Finds all groups under a specific model (not recursive)

function FindGroupsUnderModel( in_model )

{

	// Find all groups under the specified model

	var oGrps = in_model.Groups;

	for (var g=0; g<oGrps.Count; g++) 

	{

		LogMessage( oGrps(g).FullName + " contains these members:" );

		var m = new Enumerator( oGrps(g).Members );

		for ( ; !m.atEnd(); m.moveNext() )

		{

			LogMessage( "\t" + m.item().Name );

		}

	}

}

//----------------------------------------------------------

// Recursively finds all groups under a model. Because

// we can get every model recursively (except for our starting point, the 

// current model), we start by listing the groups under the 

// current model and then the groups for each model under

// it, calling FindGroupsUnderModel for each one.

function RecursiveGroupSearch( in_model )

{

	LogMessage( "******** FINDING ALL GROUPS IN THE SCENE ********" );

	LogMessage( "# of models under the root: " + in_model.Models.Count );

	// First print out the groups info for the current model

	FindGroupsUnderModel( in_model );

	// Then iterate over every model contained inside the

	// current model, printing the groups info for each one

	var mdl = new Enumerator( in_model.Models );

	for ( ; !mdl.atEnd(); mdl.moveNext() ) 

	{

		FindGroupsUnderModel( mdl.item() );

	}

}