Создание фасок

Автор Alexey001, 02.12.14, 20:19:56

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Alexey001

Доброго времени суток.
Создаю фаску с помощью API на языке Delphi. Определяю ребро на котором строится фаска с помощью GetByIndex(). Но при каждом следующем запуске библиотеки строится на разных ребрах. Как определяется индекс объекта?
//Получаем интерфейс объекта "фаска"
EntityChamfer:=ksEntity(Part.NewEntity(o3d_chamfer));
//Получаем интерфейс параметров объекта "скругление"
ChamferDefinition:=ksChamferDefinition(EntityChamfer.GetDefinition());
//Не продолжать по касательным ребрам
ChamferDefinition.tangent:=FALSE;
//Устанавливаем параметры фаски
ChamferDefinition.SetChamferParam(TRUE,1,1);
//Получаем массив граней детали
EntityCollectionPart:=ksEntityCollection(Part.EntityCollection(o3d_edge));
//Получаем массив граней, на которых будет строиться фаска
EntityCollectionChamfer:=ksEntityCollection(ChamferDefinition.array_());
EntityCollectionChamfer.Clear();
//Заполняем массив граней, на которых будет строится фаска
EntityCollectionChamfer.Add(EntityCollectionPart.GetByIndex(5));
//Создаем фаску
EntityChamfer.Create();