Сопряжения в сборке

[Витя]

Из пользовательского интерфейса при построении совпадения достаточно выбрать цилиндрическую окружность, что бы привязать её ось к другому объекту. В коде же плоские детали сопрягаются, а цилиндрические выдают ошибку. Как мне достать эту ось из цилиндрической FaceProxy, и что это за объект, я просто конструктор и от того не нашел там осей кроме WorkAxis. Очень жду ответа.

[Александр Ривилис]

Витя,
Приветствую на форуме!
Как минимум приложи свой код, которым ты пытаешься сопрягаешь.

[Витя]

Так правильно? Звука нет в данный момент

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

1. Private Sub onSelect_Axis(ByVal PreSelectEntity As ObjectsEnumerator, ByVal SelectionDevice As SelectionDeviceEnum,
2.                               ByVal ModelPosition As Point, ByVal ViewPosition As Point2d, ByVal View As View)
3.         Dim myobject As Object = oSelelectSetEvents.SelectedEntities.Item(1)
4.         Select Case TypeName(myobject)
5.             Case "WorkAxis"
6.                 MsgBox("Рабочая ось")
7.             Case "FaceProxy"
8.               'тут было много попыток получить саму ось(((
9.  
10.                 Dim oasmdoc As AssemblyDocument
11.                 oasmdoc = m_InventorApp.ActiveDocument
12.                 Dim oMateConstraint As MateConstraint
13.                 oMateConstraint = oasmdoc.ComponentDefinition.Constraints.AddMateConstraint(myobject,
14.                                                     oasmdoc.ComponentDefinition.WorkPlanes.Item(2), 0)
15.             Case Else
16.                 MsgBox(TypeName(myobject))
17.         End Select
18.         Call oUserInterfaceInteractionEvents.Stop()
19.         RemoveHandler oSelelectSetEvents.OnSelect, AddressOf Me.onSelect_Axis
20.         RemoveHandler oSelelectSetEvents.OnPreSelect, AddressOf Me.onPreSelect_Axis
21.         RemoveHandler oUserInterfaceInteractionEvents.OnTerminate, AddressOf Me.oUserInterfaceInteractionEvents_OnTerminate
22.         oSelelectSetEvents = Nothing
23.         oUserInterfaceInteractionEvents = Nothing
24.     End Sub

[Витя]

Здраствуйте. Извиняюсь, видео сейчас посмотреть не могу. Кусок кода тестовый

[Александр Ривилис]

Витя,
Прочитай у меня в подписи о правиле форматирования кода на форуме и не забывай его соблюдать!

[mikazakov]

Витя,
вот рабочий пример для двух цилиндрических поверхностей
Это пример из хелпа, единственное что я подправил это аргументы по умолчанию заменил на
kInferredLine
в строке
Set oMate = oAsmCompDef.Constraints.AddMateConstraint(oBrepEnt1, oBrepEnt2, 0, kInferredLine, kInferredLine)
т.е. указал что нужно привязываться к цилиндру как по линии.

Ну а раз вы конструктор, то хорошо знаете как выделить только две цилиндрические грани у деталей в сборке,
потому как для работы макроса это будет нужно

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

1. Public Sub MateConstraint()
2.     ' Set a reference to the assembly component definintion.
3.    Dim oAsmCompDef As AssemblyComponentDefinition
4.     Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
5.  
6.     ' Set a reference to the select set.
7.    Dim oSelectSet As SelectSet
8.     Set oSelectSet = ThisApplication.ActiveDocument.SelectSet
9.  
10.     ' Validate the correct data is in the select set.
11.    If oSelectSet.Count <> 2 Then
12.         MsgBox "You must select the two entities valid for mate."
13.         Exit Sub
14.     End If
15.  
16.     ' Get the two entities from the select set.
17.    Dim oBrepEnt1 As Object
18.     Dim oBrepEnt2 As Object
19.     Set oBrepEnt1 = oSelectSet.Item(1)
20.     Set oBrepEnt2 = oSelectSet.Item(2)
21.  
22.     ' Create the insert constraint between the parts.
23.    Dim oMate As MateConstraint
24.     Set oMate = oAsmCompDef.Constraints.AddMateConstraint(oBrepEnt1, oBrepEnt2, 0, kInferredLine, kInferredLine)
25. End Sub

[Витя]

Спасибо большое, SDK смотрел просто искал не там.