'VBScript example

Option Explicit

Main()

sub Main()

	dim oModel, oRoot, oGroup, oGroups

	set oRoot = ActiveProject.ActiveScene.Root

	oRoot.AddGroup

	oRoot.AddModel( oRoot.Children )

	set oModel = oRoot.FindChild("_3D_Model")

	set oGroups = oModel.Groups

	LogMessage "Number of Groups : " & oGroups.Count

	for each oGroup in oGroups

		LogMessage oGroup.Name

	next

end sub