Setting Default Repository Map

Executing the example requires that the repository contains a map with the New_Map_1 identifier.

Sub SetDefaultTopobase;
Var
    MB: IMetabase;
Begin
    MB := MetabaseClass.Active;
    MB.SpecialObject(MetabaseSpecialObject.DefaultTopobase) := MB.ItemById("New_Map_1");
End Sub SetDefaultTopobase;

After executing the example a default map is set for the current repository.