Рабочая точка в сборке

[Elfilagas]

Добрый день.
Подскажите, пожалуйста, как добавить привязанную рабочую точку в сборку. Такую же как стандартным инструментом "Точка"? Для детали использую:

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

1. Dim getPoint As Vertex
2. getPoint = InvApp.CommandManager.Pick(SelectionFilterEnum.kPartVertexFilter, "Выберите точку для проекции")
3. Dim wp As WorkPoint
4. wp = assDocDef.WorkPoints.AddByPoint(getPoint)

Но для сборки не понимаю как приспособить.

[mikazakov]

Похоже там этот метод не работает.
Собственно, если делать пользовательскими инструментами, то в сборке точки привязываются через зависимости
Поэтому можно поступить так же:

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

1. Sub ww()
2. Dim doc As AssemblyDocument: Set doc = ThisApplication.ActiveDocument
3. Dim DocDef As AssemblyComponentDefinition: Set DocDef = doc.ComponentDefinition
4.  
5. Dim getPoint As VertexProxy
6. Set getPoint = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartVertexFilter, "Кликни на вершину")
7.  
8. Dim asWP As WorkPoint
9. Set asWP = DocDef.WorkPoints.AddFixed(getPoint.point)
10.  
11. Call DocDef.Constraints.AddMateConstraint(getPoint, asWP, 0)
12.  
13. End Sub
14.