Создание выноски размера

Автор Тема: Создание выноски размера  (Прочитано 2168 раз)

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

Оффлайн anton.gorschnevАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 53
  • Карма: 3
Создание выноски размера
« : 07-02-2020, 08:07:15 »
Помогите разобраться с созданием выноски на размере чертежа. Нашел где включается выноска, но дальше продвинуться не могу. Не получается отобразить выноску и указать ее положение.



Код - Visual Basic [Выбрать]
  1. Sub RidNote()
  2.  
  3. Dim oDrawDoc As DrawingDocument
  4. Set oDrawDoc = ThisApplication.ActiveDocument
  5.  
  6. Dim oActiveSheet As Sheet
  7. Set oActiveSheet = oDrawDoc.ActiveSheet
  8.  
  9. Dim oTG As TransientGeometry
  10. Set oTG = ThisApplication.TransientGeometry
  11.  
  12. Dim oDCurve1 As DrawingCurve
  13. Dim oDCurve2 As DrawingCurve
  14. Dim oSegment1 As DrawingCurveSegment
  15. Dim oSegment2 As DrawingCurveSegment
  16. Dim oIntent1 As GeometryIntent
  17. Dim oIntent2 As GeometryIntent
  18.  
  19. Set oSegment1 = oDrawDoc.SelectSet.Item(1)
  20. Set oDCurve1 = oSegment1.Parent
  21. Set oSegment2 = oDrawDoc.SelectSet.Item(2)
  22. Set oDCurve2 = oSegment2.Parent
  23. Set oIntent1 = oActiveSheet.CreateGeometryIntent(oDCurve1, oSegment1)
  24. Set oIntent2 = oActiveSheet.CreateGeometryIntent(oDCurve2, oSegment2)
  25.  
  26. Dim oAngl As AngularGeneralDimension
  27. Set oAngl = oActiveSheet.DrawingDimensions.GeneralDimensions.AddAngular(oTG.CreatePoint2d(2, 13), oIntent1, oIntent2)
  28. oAngl.ShowLeader = True
  29.  
  30. 'what to do next ????
  31.  
  32. End Sub
  33.  

Перед запуском кода необходимо выбрать две непараллельные прямые.

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание выноски размера
« Ответ #1 : 07-02-2020, 12:10:34 »
anton.gorschnev,
А если изменить значение oAngl.Text.Origin?
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн anton.gorschnevАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 53
  • Карма: 3
Re: Создание выноски размера
« Ответ #2 : 07-02-2020, 14:00:15 »
Пробовал с выноской не работает, получилось на толщине но там я выноску не включал


Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Создание выноски размера
« Ответ #3 : 07-02-2020, 19:32:50 »
Пробовал с выноской не работает,
Тоже пошерстил хэлп, не нашел ничего подходящего. Скорее всего нет доступа через АПИ к этой манипуляции.
Задам вопрос разрабам на всякий случай может что ответят через пару-тройку дней.

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание выноски размера
« Ответ #4 : 07-02-2020, 21:24:24 »
Задам вопрос разрабам на всякий случай может что ответят через пару-тройку дней.
Ну это ты загнул. :) Я бы не рассчитывал на такую скорость ответа.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн mikazakov

  • ADN
  • *
  • Сообщений: 751
  • Карма: 195
  • Skype: mikazakov@mail.ru
Re: Создание выноски размера
« Ответ #5 : 10-02-2020, 17:10:42 »
anton.gorschnev,
Пришел ответ с АДН


Dear Mike Kazakov,
Below VBA code can be used. but it is not working as expected. On dragging same dimension manually, then it works.


Код - Visual Basic [Выбрать]
  1. Sub showLeaderSample()
  2.     Dim oDoc As DrawingDocument
  3.     Set oDoc = ThisApplication.ActiveDocument
  4.     Dim oDim As GeneralDimension
  5.     Set oDim = oDoc.SelectSet(1)
  6.     oDim.ShowLeader = True
  7.     Dim oNewPosition As Point2d
  8.     Set oNewPosition = oDim.Text.Origin  
  9.     oNewPosition.X = oNewPosition.X - 2
  10.     oDim.Text.Origin = oNewPosition
  11. End Sub


Please log a wish list at idea station using below link.

В общем нет доступа через АПИ к такой функциональности.