Всем добрый вечер. У меня такая проблема появилась. Не знаю как программно создать кривую пересечения, которая будет образована двумя поверхностями.
Поверхности создаются вытягиванием из дуг. Вот кусок кода для создания одной поверхности:
Code:
'Создаем точки для дуг
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 для этого я не нашел.
Если кто-нибудь знает, как решить такую проблему, помогите пожалуйста. Буду очень признателен.