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