Не удается построить круговой массив компонентов

[anton_cher93]

Не получается программно создать круговой массив компонентов в сборке! Все свойства вроде задал верно, но после Update() массив не создается. Может пропустил что? Ниже приведен код.


IApplication KompasAp = (IApplication)ikompas.ksGetApplication7();
            IDocuments Docs = (IDocuments)KompasAp.Documents;

            KompasDocument3D Sborka = null;
            IPart7 detail;
            IParts7 parts = null;

            //Открываем сборку
            Sborka = (KompasDocument3D)Docs.Open("D:\\Сборка.a3d", true, false);

            detail = Sborka.TopPart.Parts.get_Part(0);

            IModelContainer modelCont = (IModelContainer)Sborka.TopPart;

            //Добавляем массив по концентрической сетке
            ICircularPattern Massiv = (ICircularPattern)modelCont.FeaturePatterns.Add(ksObj3dTypeEnum.o3d_circPartArray);
           
            //указываем ось
            Massiv.Axis = Sborka.TopPart.get_DefaultObject(ksObj3dTypeEnum.o3d_axisOZ);

            // Указываем объект массива - деталь
            Massiv.InitialObjects = detail;

            Massiv.Count1 = 3;

            Massiv.Count2 = 1;

            //Угловой шаг
            Massiv.Step2 = 60.0;

            Massiv.Update();


            Sborka.RebuildDocument();

[Sabahs]

Суда  Massiv.InitialObjects нужно передавать интерфейс IDispatch или массив интерфейсов IDispatch.

[anton_cher93]

как из объекта IPart7 получить интерфейс IDispatch?

[Sabahs]

Obj:=IUnknown(detail) as IDispatch;

[anton_cher93]

Для массива по концентрической сетке нужно задавать свойство BasePoint? И если нужно, то что туда посылать? Пробовал послать начало координат для IPart7 detait, но свойство остается пустым.

[Sabahs]

Получить точку, IModelObject:=IPart7.DefaultObject(o3d_pointCS);, только наверно от сборки, просто я не знаю, как у Вас детали расположены.

[anton_cher93]

В общем, привожу компонент к интерфейсу IDispach, но построить массив все равно не удается

detail = Sborka.TopPart.Parts.get_Part(0);

            IModelContainer modelCont = (IModelContainer)Sborka.TopPart;

           
            // ЗАДАЕМ ТИПА МАССИВА
            //Добавляем массив по концентрической сетке
            ICircularPattern Massiv = (ICircularPattern)modelCont.FeaturePatterns.Add(ksObj3dTypeEnum.o3d_AuxCircularCopy);

            //Приводим компонент к интерфейсу IDispatch
            stdole.IDispatch obIDispatch = (stdole.IDispatch)detail;

            Massiv.BuildingType = ksCircularPatternBuildingTypeEnum.ksCPSaveAll;

            Massiv.InitialObjects = obIDispatch;

Свойство Massiv.InitialObjects после присвоения все рано остается пустым.

[Sabahs]

Код на Delphi.

[anton_cher93]

Разобрался! Спасибо!