Setting Default Repository Map

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

Sub UserProc;

Var

MB: IMetabase;

Begin

MB := MetabaseClass.Active;

MB.SpecialObject(MetabaseSpecialObject.DefaultTopobase) := MB.ItemById("New_Map_1");

End Sub UserProc;

After executing the example the New_Map_1 map is selected as a default map for the current repository.

See also:

Examples