Public Sub Get_Layout_List()
Dim App As Autodesk.Revit.UI.UIApplication = Me.ExComData.Application
Dim Doc As Document = App.ActiveUIDocument.Document
Const Koef As Double = 304.8 ' Коэффициент для перевода футов в миллиметры
Dim coll As FilteredElementCollector = New FilteredElementCollector(Doc).OfClass(GetType(ViewSheet))
' Перебираем все листы в проекте на предмет определения размеров области печати
For Each rvtViewSheet As Autodesk.Revit.DB.ViewSheet In coll
Dim myUVMin As UV = rvtViewSheet.Outline.Min
Dim myUVMax As UV = rvtViewSheet.Outline.Max
Dim layWidth As Double = Format(myUVMax.U * Koef - myUVMin.U * Koef, "#0.000")
Dim layHeight As Double = Format(myUVMax.V * Koef - myUVMin.V * Koef, "#0.000")
Dim layName As String = rvtViewSheet.SheetNumber & " - " & rvtViewSheet.ViewName
MsgBox("Размеры области печати: " & layWidth & "x" & layHeight & " для листа [" & layName & "]")
' •••••••••••••••••••••••••••••••••••••••
' Здесь происходит запись данных в класс
' •••••••••••••••••••••••••••••••••••••••
Next
End Sub