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

Автор Тема: Рабочая точка в сборке  (Прочитано 1689 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ElfilagasАвтор темы

  • ADN OPEN
  • ***
  • Сообщений: 117
  • Карма: 4
Рабочая точка в сборке
« : 12-11-2018, 16:13:37 »
Добрый день.
Подскажите, пожалуйста, как добавить привязанную рабочую точку в сборку. Такую же как стандартным инструментом "Точка"? Для детали использую:
Код - 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)
Но для сборки не понимаю как приспособить.

Отмечено как Решение Elfilagas 13-11-2018, 08:58:37

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Рабочая точка в сборке
« Ответ #1 : 12-11-2018, 21:44:47 »
Похоже там этот метод не работает.
Собственно, если делать пользовательскими инструментами, то в сборке точки привязываются через зависимости
Поэтому можно поступить так же:

Код - 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.