Как получить сгиб из коллекции сгибов?

[ainis]

Подскажите пожалуйста, как получить сгиб из коллекции сгибов листового тела?
Использую такой код (VB.Net 2010 Express):

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


Dim SMBends As Kompas6API5.ksEntityCollection = _
          IPart.EntityCollection(Kompas6Constants3D.Obj3dType.o3d_sheetMetalBend) 'коллекция сгибов
       If SMBends Is Nothing Then Exit Sub
       If SMBends.GetCount = 0 Then Exit Sub
        Dim I As Integer = 0
        For I = 0 To SMBends.GetCount - 1
          Dim SMBend As KompasAPI7.SheetMetalBend
          SMBend = SMBends.GetByIndex(I)' ЗДЕСЬ ВОЗНИКАЕТ ОШИБКА
          If SMBend IsNot Nothing Then
           'здесь чего-нибудь делаем со сгибом   

       
          End If
        Next

       
Сама коллекция SMBends существует, однако получить из нее сгиб не получается.
Хорошо бы получить интерфейс контейнера объектов гибки ISheetMetalContainer, однако как это сделать, непонятно.

Буду благодарен за любую помощь.

[Sabahs]

Скорее всего Вам нужно попробовать, как написано в SDK:
IPart7 -> ISheetMetalContainer -> SheetMetalBends -> SheetMetalBend

[ainis]

Спасибо, я уже разобрался.