Все получилось, осталась одна небольшая проблемка: из-за того, что стол круглый, в центр тоже ставится ножка. Можно ли как-то это обойти?
Dim oEdge As Inventor.Edge
For Each oFace As Inventor.Face In oDetail.SurfaceBodies(1).Faces
If oFace.SurfaceType = Inventor.SurfaceTypeEnum.kCylinderSurface Then
For Each oEdge In oFace.Edges
If oEdge.GeometryType = Inventor.CurveTypeEnum.kCircleCurve Then
''Другой компонент по новому вектору
Dim sFileName As String = "C:\Inventor\Nozhka.ipt"
Dim oCylinder1 As Inventor.ComponentOccurrence = oAssyDoc.ComponentDefinition.Occurrences.Add(sFileName, oPositionMatrix)
For Each oCylFace As Inventor.Face In oCylinder1.SurfaceBodies(1).Faces
If oFace.SurfaceType = Inventor.SurfaceTypeEnum.kCylinderSurface Then
Dim oConstr As Inventor.AssemblyConstraint = oAssyDoc.ComponentDefinition.Constraints.AddMateConstraint(oFace, oCylFace, 0, Inventor.InferredTypeEnum.kInferredLine, Inventor.InferredTypeEnum.kInferredLine)
Exit For
End If
Next
Exit For
End If
Next
End If
Next
