Imports Inventor
Module Module1
Private m_InvApp As Inventor.Application
Sub Main()
Try 'Попытка получить существующий экземпляр Inventor
m_InvApp = CType(Runtime.InteropServices.Marshal.
GetActiveObject("Inventor.Application"), Inventor.Application)
Catch ex As Exception 'Загрузка Inventor
m_InvApp = CType(Activator.CreateInstance(Type.GetTypeFromProgID _
("Inventor.Application")), Inventor.Application)
m_InvApp.Visible = True
End Try
Dim oFace As FaceProxy = m_InvApp.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Выберите плоскость детали")
Dim oOcc As ComponentOccurrence = oFace.ContainingOccurrence
oOcc.Edit()
Dim oPartCompDef As PartComponentDefinition = oOcc.Definition
Dim oSketch As Sketch = oPartCompDef.Sketches.Add(oFace.NativeObject, True)
Console.ReadKey()
End Sub
End Module