2D эскиз детали из сборки

[mikazakov]

поподробнее, что куда кликнуть и что получить

[Elfilagas]

Да в принципе вопрос все тот же. )
Задача из пространства сборки построить эскиз на детали. Следующий код работает корректно если нет отверстий в сборке, которые задевают деталь.

Код - vb.net [Выбрать]

1. Dim oFace As FaceProxy = InvApp.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Выберите плоскость детали")
2. Dim oOcc As ComponentOccurrence = oFace.ContainingOccurrence
3. Dim oPartCompDef As PartComponentDefinition = oOcc.Definition
4. Dim oSketch As Sketch = oPartCompDef.Sketches.Add(oFace.NativeObject, True)

Но если есть какие либо элементы, добавленные в сборке и затрагивающие деталь (рисунок с примером во вложении), то эскиз не добавляется.

[mikazakov]

Да, интересный вопрос, ссылка Face.NativeObject не приходит на грань выделенной детали. Отправлю как я его к тех поддержке по АПИ инвентора. Еще бы вспомнить как туда отправлять

[mikazakov]

Пытаюсь доступ получить на техподдержку. Поэтому немного придется подождать

[mikazakov]

Написал в техподдержку дня через три ответят

[mikazakov]

Пришел ответ с техподдержки:
Так вот сразу и не догадаешься, что нужно менять свойство через вызов метода Face.GetSourceFace(True)

Код - Visual Basic [Выбрать]

1. Sub nn_1()
2.  Dim asdoc As AssemblyDocument
3.   Set asdoc = ThisApplication.ActiveDocument
4.  
5.   Dim oFace As FaceProxy
6.   Set oFace = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select planar face")
7.  
8.   Dim oOcc As ComponentOccurrence
9.   Set oOcc = oFace.ContainingOccurrence
10.  
11.   Dim oPartCompDef As PartComponentDefinition
12.   Set oPartCompDef = oOcc.Definition
13.  
14.  Dim oNativeFace As Face
15.  Set oNativeFace = oFace.GetSourceFace(True)
16.  
17.   Dim oSketch As PlanarSketch
18.   Set oSketch = oPartCompDef.Sketches.Add(oNativeFace, True)
19.  
20.   Call asdoc.Update
21. End Sub
22.  

[Elfilagas]

Да, весьма не очевидно. Большое спасибо.