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.
See also: