main() ;
function main()
{
	NewScene( null, false );
	var oRoot = Application.ActiveSceneRoot;
	// Stick all the x3dobjects in the current scene into a model
	var oModel = oRoot.AddModel( oRoot.Children, "TopModel" );
	// Create two models, each of which contain a Null and nest them inside the TopModel.
	oNull = oRoot.AddNull( "mynull");
	oModel.AddModel( oNull, "SubModel" );
	oNull2 = oRoot.AddNull( "mynull" );
	oModel.AddModel( oNull2, "AnotherSubModel" );
	WriteModels( oRoot ) ;
}
function  WriteModels( in_obj )
{
	var mdls = in_obj.Models;
	n = mdls.Count;
	for ( var i=0; i<n; i++ ) {
		m = mdls.Item(i);
		Application.LogMessage( "Model " + m.Name + " is nested inside " + m.model ) ;
	}
}
// Expected results:
//INFO : Model TopModel is nested inside Scene_Root
//INFO : Model SubModel is nested inside TopModel
//INFO : Model AnotherSubModel is nested inside TopModel

Option Explicit
main()
sub main()
	NewScene , false
	dim oRoot
	set oRoot = Application.ActiveProject.ActiveScene.Root
	oRoot.AddModel oRoot.Children, "Mary"
	WriteModels oRoot
end sub
' Recursive function to read all models no matter how deeply nested
function WriteModels( in_obj )
	dim list, n, i, mdls
	set mdls = in_obj.Models(0)
	n = mdls.Count
	if n = 0 then
		exit function
	end if
	for i=0 to n-1
		Application.LogMessage mdls(i).Name
		' Drill down
		WriteModels mdls(i)
	next
end function
' Expected results:
'INFO : Mary