Dim oColl		' object pointer for collection

' Create a non-unique collection as an ActiveX object

Set oColl = CreateObject("XSI.Collection")

' Add a bunch of duplicates

oColl.Add ActiveSceneRoot

oColl.Add ActiveSceneRoot

oColl.Add ActiveSceneRoot

oColl.Add ActiveSceneRoot

oColl.Add ActiveSceneRoot

' How many members are in this collection?

countMembers oColl

' Explicitly set

oColl.Unique = True

' Now how many members are in this collection?

countMembers oColl

'--------------------------------------------------

function countMembers( in_coll )

	' How many members are in this collection

	LogMessage "This collection contains " & in_coll.Count & " members."

end function

'--------------------------------------------------

' Output of above script:

'INFO : "This collection contains 5 members."

'INFO : "This collection contains 1 members."

/*

	This example demonstrates how you can remove all instances

	of an object using either the Unique property or using the

	RemoveItems method iteratively

*/

NewScene( null, false );

// Add multiple instances of the Scene_Root to two collections

var oQuints1 = new ActiveXObject( "XSI.Collection" );

var oQuints2 = new ActiveXObject( "XSI.Collection" );

for ( i=0; i<5; i++)

{

	oQuints1.Add( ActiveSceneRoot );

	oQuints2.Add( ActiveSceneRoot );

}

LogMessage( "-------------------------------" );

LogMessage( "oQuints1 before removing: " + oQuints1.GetAsText() );

LogMessage( "oQuints2 before removing: " + oQuints2.GetAsText() );

// Reduce the first collection to one scene root using the Unique property

oQuints1.Unique = true;

LogMessage( "-------------------------------" );

LogMessage( "oQuints2 after Unique: " + oQuints2.GetAsText() );

// Now create an XSICollection with a single scene root so we can remove

// a single instance of the root one at a time

var oRemoveMe = new ActiveXObject( "XSI.Collection" );

oRemoveMe.Add( ActiveProject.ActiveScene.Root );

// One a time, remove all instances of the root

LogMessage( "-------------------------------" );

while ( oQuints2.RemoveItems( oRemoveMe ).Count != 0 )

{

	LogMessage( "Another one bites the dust (" + oQuints2.Count + " items now remain in the collection)." );

}

LogMessage( "-------------------------------" );

LogMessage( "oQuints2 after RemoveItems: " + oQuints2.GetAsText() );

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

// Output of above script:

//INFO : "-------------------------------"

//INFO : "oQuints1 before removing: Scene_Root,Scene_Root,Scene_Root,Scene_Root,Scene_Root"

//INFO : "oQuints2 before removing: Scene_Root,Scene_Root,Scene_Root,Scene_Root,Scene_Root"

//INFO : "-------------------------------"

//INFO : "oQuints2 after Unique: Scene_Root,Scene_Root,Scene_Root,Scene_Root,Scene_Root"

//INFO : "-------------------------------"

//INFO : "Another one bites the dust (4 items now remain in the collection)."

//INFO : "Another one bites the dust (3 items now remain in the collection)."

//INFO : "Another one bites the dust (2 items now remain in the collection)."

//INFO : "Another one bites the dust (1 items now remain in the collection)."

//INFO : "Another one bites the dust (0 items now remain in the collection)."

//INFO : "-------------------------------"

//INFO : "oQuints2 after RemoveItems: "