Шероховатость на 3D и смежные плоскоти

[LorD_LeLiK]

Доброго времени суток.
Помогите пожалуйста, нужно с 3D модели программно, для указанной грани,  получить шероховатость (если она есть) и угол между ней и смежными гранями.

[Sabahs]

Для шероховатости смотрите IRough3D - интерфейс обозначения шероховатости 3D.
Для измерения угла смотрите IMeasurer - интерфейс для измерений расстояния и угла между двумя примитивами.

[LorD_LeLiK]

Есть у кого-нибудь пример использования IRoughs3D для чтения значения шероховатости, а то я так и не смог сам разобраться  ?

Еще вопрос, поскольку стоит задача найти угол между соседними плоскостями, использую ConnectedFaceCollection, количество плоскостей находится верное, но сами плоскости не определяются. Часть когда приведена ниже, в чем моя ошибка?

fColl: ksFaceCollection;
collect: ksEntityCollection;

Код Выделить Развернуть

fColl:=ksFaceCollection(ksFaceDefinition(ksEntity(collect.GetByIndex(2)).GetDefinition).ConnectedFaceCollection); //список смежных плоскостей
  Msr:=ksMeasurer(part.GetMeasurer);
  Msr.SetObject1(ksentity(collect.GetByIndex(2)));
  Msr.SetObject2(ksFaceDefinition(fColl.GetByIndex(0)));
  Msr.Calc;
  ugl:=Msr.angle;

[Sabahs]

Msr.SetObject1(ksentity(collect.GetByIndex(2)));
Msr.SetObject2(ksFaceDefinition(fColl.GetByIndex(0)));
Входные параметры - указатель на интерфейс IDispatch или IUnknown объекта.

Пример использования IRoughs3D смотрите в SDK.
c:\Program Files\ASCON\KOMPAS-3D V15\SDK\Pascal\Delphi\Step3_API7_3D\