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() );
	}
}