Сообщество программистов Autodesk в СНГ

ADN Club => Revit API => Тема начата: Пашин Евгений от 17-02-2016, 14:45:36

Название: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 17-02-2016, 14:45:36
Всем добрый день!

Подскажите как можно просто сделать выбор всех объектов на листе с определенным именем и определить размеры области, которую занимают все объекты на листе.
Хотя бы направление, в котором копать дальше )

Есть один момент: объекты могут быть как загружены извне (в виде dxf или любых других), так и оформлены в самом проекте.

Заранее благодарю.
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Виктор Чекалин от 17-02-2016, 15:53:46
Евгений, Вот тут (http://adn-cis.org/forum/index.php?topic=4252.msg15760#msg15760) я приводил ссылки на статьи, которые должны помочь.
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 18-02-2016, 06:37:42
Спасибо, Виктор! Попробую и отпишусь.
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 20-02-2016, 13:09:59
Цель достигнута :)

Можно определить область, которую занимают объекты листа не через определение их геометрических размеров, а через свойство самого листа.

Код - vb.net [Выбрать]
  1.     Public Sub Get_Layout_List()
  2.         Dim App As Autodesk.Revit.UI.UIApplication = Me.ExComData.Application
  3.         Dim Doc As Document = App.ActiveUIDocument.Document
  4.  
  5.         Const Koef As Double = 304.8 ' Коэффициент для перевода футов в миллиметры
  6.  
  7.         Dim coll As FilteredElementCollector = New FilteredElementCollector(Doc).OfClass(GetType(ViewSheet))
  8.         ' Перебираем все листы в проекте на предмет определения размеров области печати
  9.         For Each rvtViewSheet As Autodesk.Revit.DB.ViewSheet In coll
  10.             Dim myUVMin As UV = rvtViewSheet.Outline.Min
  11.             Dim myUVMax As UV = rvtViewSheet.Outline.Max
  12.             Dim layWidth As Double = Format(myUVMax.U * Koef - myUVMin.U * Koef, "#0.000")
  13.             Dim layHeight As Double = Format(myUVMax.V * Koef - myUVMin.V * Koef, "#0.000")
  14.             Dim layName As String = rvtViewSheet.SheetNumber & " - " & rvtViewSheet.ViewName
  15.  
  16.             MsgBox("Размеры области печати: " & layWidth & "x" & layHeight & " для листа [" & layName & "]")
  17.  
  18.             ' •••••••••••••••••••••••••••••••••••••••
  19.             ' Здесь происходит запись данных в класс
  20.             ' •••••••••••••••••••••••••••••••••••••••
  21.         Next
  22.  
  23.     End Sub
  24.  

Этот вопрос закрыт :)

Виктор, спасибо!
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Алексей Кулик от 21-02-2016, 10:58:01
ИМХО - странный коэффициент. Как будто футы переводятся в миллиметры.
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Александр Ривилис от 21-02-2016, 15:15:51
Цитата: Алексей Кулик от 21-02-2016, 10:58:01
ИМХО - странный коэффициент. Как будто футы переводятся в миллиметры.
А что тебя удивляет? Внутренние единицы измерения в Revit - футы (если мне память не изменяет).
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 24-02-2016, 06:36:47
Цитата: Александр Ривилис от 21-02-2016, 15:15:51
Внутренние единицы измерения в Revit - футы (если мне память не изменяет).

Александр Наумович, у Вас отличная память.

Цитата: Пашин Евгений от 20-02-2016, 13:09:59
ИМХО - странный коэффициент.

Мне тоже странным кажется использовать в качестве меры фут, и главное, даже не дюйм ) Поправил коэффициент, чтобы никого не смущать )
Уточнил, этой мерой часто пользуются англичане.
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Виктор Чекалин от 24-02-2016, 07:51:12
Вообще лучшим решением было бы использовать не коэффициенты, а класс UnitUtils. А точнее, метод ConvertFromInternalUnits.
Например, вот так:
Код - C# [Выбрать]
  1. var myUVMin = UnitUtils.ConvertFromInternalUnits(rvtViewSheet.Outline.Mi, DisplayUnitType.DUT_MILLIMETERS);

Так код выглядит красивее, да и не нужно задумываться о том, в чем хранится значения внутри Revit.
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 24-02-2016, 07:53:52
Цитата: Виктор Чекалин от 24-02-2016, 07:51:12
Так код выглядит красивее, да и не нужно задумываться о том, в чем хранится значения внутри Revit.

Согласен. Вдруг завтра там будут хранить значения в дюймах ) Подправлю код.
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Виктор Чекалин от 24-02-2016, 08:03:44
Ну а если уж говорить о совсем идеальном варианте, то надо переводить не в миллиметры, а в ту единицу измерения длины, которая установлена в настройках проекта. :)
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 24-02-2016, 08:11:48
Цитата: Виктор Чекалин от 24-02-2016, 07:51:12
Вообще лучшим решением было бы использовать не коэффициенты, а класс UnitUtils. А точнее, метод ConvertFromInternalUnits.
Например, вот так:
Код - C# [Выбрать]
var myUVMin = UnitUtils.ConvertFromInternalUnits(rvtViewSheet.Outline.Mi, DisplayUnitType.DUT_MILLIMETERS);

Так код выглядит красивее, да и не нужно задумываться о том, в чем хранится значения внутри Revit.


Код - vb.net [Выбрать]
  1.     Public Sub Get_Layout_List()
  2.         Dim App As Autodesk.Revit.UI.UIApplication = Me.ExComData.Application
  3.         Dim UIDoc As UIDocument = App.ActiveUIDocument
  4.         Dim Doc As Document = App.ActiveUIDocument.Document
  5.  
  6.         Dim coll As FilteredElementCollector = New FilteredElementCollector(Doc).OfClass(GetType(ViewSheet))
  7.         ' Перебираем все листы в проекте на предмет определения размеров области печати
  8.         For Each rvtViewSheet As Autodesk.Revit.DB.ViewSheet In coll
  9.             Dim myUVMin As UV = rvtViewSheet.Outline.Min
  10.             Dim myUVMax As UV = rvtViewSheet.Outline.Max
  11.             Dim layWidth As Double = UnitUtils.ConvertFromInternalUnits(rvtViewSheet.Outline.Max.U - rvtViewSheet.Outline.Min.U, DisplayUnitType.DUT_MILLIMETERS)
  12.             Dim layHeight As Double = UnitUtils.ConvertFromInternalUnits(rvtViewSheet.Outline.Max.V - rvtViewSheet.Outline.Min.V, DisplayUnitType.DUT_MILLIMETERS)
  13.             Dim layName As String = rvtViewSheet.SheetNumber & " - " & rvtViewSheet.ViewName
  14.  
  15.             MsgBox("Размеры области печати: " & layWidth & "x" & layHeight & " для листа " & layName)
  16.  
  17.         Next
  18.  
  19.     End Sub
  20.  

Поправил немного :)
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 24-02-2016, 08:13:47
Цитата: Виктор Чекалин от 24-02-2016, 08:03:44
Ну а если уж говорить о совсем идеальном варианте, то надо переводить не в миллиметры, а в ту единицу измерения длины, которая установлена в настройках проекта.

А куда посмотреть, чтобы это увидеть?
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Виктор Чекалин от 24-02-2016, 08:25:06
Цитата: Пашин Евгений от 24-02-2016, 08:13:47
А куда посмотреть, чтобы это увидеть?
Управление -> Единицы Проекта -> Длина

Программно добраться вроде бы вот так (пишу на память, так что могу где то ошибиться):
Код - C# [Выбрать]
  1. var dut = document.GetUnits().GetFormatOptions(UT_Length).DisplayUnits
Название: Re: Как определить геометрические размеры объектов внутри листа?
Отправлено: Пашин Евгений от 24-02-2016, 08:29:53
Виктор Чекалин, спасибо!

Честно говоря, даже никогда не пользовался этой функцией )