Положение стрелки при создании позиции на чертеже

Автор Тема: Положение стрелки при создании позиции на чертеже  (Прочитано 2870 раз)

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

Тема содержит сообщение с Решением. Нажмите здесь чтобы посмотреть его.

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

  • ADN OPEN
  • Сообщений: 11
  • Карма: 0
Можно ли как-то изменить (настроить) положение стрелки при создании позиции на чертеже? Пробовал через ExtensionLineOffset, но безрезультатно. Вот пример что сделано:
           
Код - C# [Выбрать]
  1. Balloon oBalloon;
  2. oBalloon = oDrawDoc.Sheets[1].Balloons.Add(oLeaderPoints, Level: PartsListLevelEnum.kStructured);
  3. //oBalloon.Leader.ArrowheadType = ArrowheadTypeEnum.kSmallDotArrowheadType; //тут изменения в стиле происходят
  4. //первая неудачная попытка
  5. oBalloon.Style.LeaderStyle.ExtensionLineOffset = 12; //12 - или любое число не даёт результата
  6. //вторая неудачная попытка
  7. LeaderStyle oLeaderStyle;
  8. oLeaderStyle = oBalloon.Style.LeaderStyle;
  9. oLeaderStyle.ExtensionLineOffset = 12;
  10. oBalloon.Style.LeaderStyle = oLeaderStyle;
  11. //третья неудачная попытка
  12. BalloonStyle oBalloonStyle;
  13. oBalloonStyle = oBalloon.Style;
  14. oBalloonStyle.LeaderStyle.ExtensionLineOffset = 12;
  15. oBalloon = oDrawDoc.Sheets[1].Balloons.Add(oLeaderPoints, Level: PartsListLevelEnum.kStructured, BalloonStyle: oBalloonStyle);
Во всех трёх случаях точка привязки стрелки позиции указывает на край прямой.  Хотелось либо переместить стрелку вдоль прямой, либо вообще открепить от прямой.

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
А что конкретно должно быть, скриншот бы

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

  • ADN OPEN
  • Сообщений: 11
  • Карма: 0

1 -
Цитировать
Хотелось либо переместить стрелку вдоль прямой
2 -
Цитировать
либо вообще открепить от прямой.

Отмечено как Решение HelpForInventorAPI 24-03-2022, 00:22:38

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
Сдвинуть можно точку
перед запуском нужно выделить позицию на чертеже
Код - Visual Basic [Выбрать]
  1. Sub ff()
  2. Dim oDoc As DrawingDocument
  3.     Set oDoc = ThisApplication.ActiveDocument
  4.    
  5.     Dim b As Balloon: Set b = oDoc.SelectSet(1)
  6.     b.Leader.AllLeafNodes(1).Position = ThisApplication.TransientGeometry.CreatePoint2d(5, 5)
  7.    
  8. End Sub
  9.  

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

  • ADN OPEN
  • Сообщений: 11
  • Карма: 0
Спасибо за помощь!  ;)  Именно то, что нужно))