Программное создание кривой пересечения в Inventor'е

[godrive]

Всем добрый вечер. У меня такая проблема появилась. Не знаю как программно создать кривую пересечения, которая будет образована двумя поверхностями.
Поверхности создаются вытягиванием из дуг. Вот кусок кода для создания одной поверхности:

	   
'Создаем точки для дуг
Dim oCoord1s As Point2d  'центр дуги
Dim oCoord12s As Point2d 'начало дуги
Dim oCoord13s As Point2d 'конец дуги
oCoord1s = oTG1.CreatePoint2d(1, -1)
oCoord12s = oTG1.CreatePoint2d(1, 0)
oCoord13s = oTG1.CreatePoint2d(0, -1)

'Чертим дугу
Dim oArc As SketchArc
oArc = oSketch.SketchArcs.AddByCenterStartEndPoint(oCoord1s, oCoord12s, oCoord13s)

'Создаем профиль
Dim oProfile As Profile
oProfile = oSketch.Profiles.AddForSurface

'Создаем поверхность
Dim oExtrude As ExtrudeFeature
oExtrude = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent(oProfile, 3, PartFeatureExtentDirectionEnum.kNegativeExtentDirection, PartFeatureOperationEnum.kSurfaceOperation)

Таким же образом создается вторая поверхность. На пересечении они образуют кривую.
Нужно сделать 3D-скетч и в нем 3D Intersection Curve. В результате получится кривая перечения.
Проблема в том, что никаких объектов и методов в API для этого я не нашел.

Если кто-нибудь знает, как решить такую проблему, помогите пожалуйста. Буду очень признателен.

[mikazakov.161199]

Всем добрый вечер. У меня такая проблема появилась. Не знаю как программно создать кривую пересечения, которая будет образована двумя поверхностями.
Поверхности создаются вытягиванием из дуг. Вот кусок кода для создания одной поверхности:

	   
'Создаем точки для дуг
Dim oCoord1s As Point2d  'центр дуги
Dim oCoord12s As Point2d 'начало дуги
Dim oCoord13s As Point2d 'конец дуги
oCoord1s = oTG1.CreatePoint2d(1, -1)
oCoord12s = oTG1.CreatePoint2d(1, 0)
oCoord13s = oTG1.CreatePoint2d(0, -1)

'Чертим дугу
Dim oArc As SketchArc
oArc = oSketch.SketchArcs.AddByCenterStartEndPoint(oCoord1s, oCoord12s, oCoord13s)

'Создаем профиль
Dim oProfile As Profile
oProfile = oSketch.Profiles.AddForSurface

'Создаем поверхность
Dim oExtrude As ExtrudeFeature
oExtrude = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent(oProfile, 3, PartFeatureExtentDirectionEnum.kNegativeExtentDirection, PartFeatureOperationEnum.kSurfaceOperation)

Таким же образом создается вторая поверхность. На пересечении они образуют кривую.
Нужно сделать 3D-скетч и в нем 3D Intersection Curve. В результате получится кривая перечения.
Проблема в том, что никаких объектов и методов в API для этого я не нашел.

Если кто-нибудь знает, как решить такую проблему, помогите пожалуйста. Буду очень признателен.

Видимо программный интерфейс для работы с данной командой еще не открыли, данного метода для создания кривой пересечения нет, в 2009-ом точно

[afedoseyev]

эта функция закрыта для доступа через API во всех версиях Inventor, включая 2010. Также хочу немного обнадёжить: есть подтверждённый разработчиками запрос в списке пожеланий. Надеюсь что введение этой функции не заставит себя долго ждать.