Dimensions: IStandardCubeDimensions;
Свойство Dimensions возвращает коллекцию измерений куба.
Для выполнения примера предполагается наличие в репозитории стандартного куба с идентификатором "Stan_Cube".
Sub Main;
Var
MB: IMetabase;
StandCub: IStandardCube;
Dimen: IStandardCubeDimension;
i: Integer;
Begin
MB := MetabaseClass.Active;
StandCub := MB.ItemById("Stan_Cube").Bind As IStandardCube;
For i := 0 To StandCub.Dimensions.Count - 1 Do
Dimen := StandCub.Dimensions.Item(i);
Debug.WriteLine((Dimen.Dimension As IMetabaseObject).Id);
End For;
End Sub Main;
После выполнения примера в консоль будут выведены идентификаторы измерений куба.
См. также: