Private Sub bInsertImageToProjectAndAlsoToTableCell()
' Активный UI документ
Dim uiDoc As UIDocument = commandData.Application.ActiveUIDocument
' Текущий документ
Dim Doc As Document = uiDoc.Document
' Вставка изображения в проект
Dim ImageID As ElementId = ElementId.InvalidElementId
Using transaction As New Transaction(Doc, "Image type")
transaction.Start()
Dim imaget As ImageType = ImageType.Create(Doc, "D:\Пашин\Revit_Ribbon_Menu\Images\00011.png")
ImageID = imaget.Id
transaction.Commit()
End Using
' Получаем список спецификаций в проекте
Dim coll As FilteredElementCollector = New FilteredElementCollector(Doc).OfClass(GetType(ViewSchedule))
' ...
' Перебираем все спецификации в проекте
For Each rvtViewSchedule As Autodesk.Revit.DB.ViewSchedule In coll
' ...
' Определяем таблицу спецификации
Dim rvtTableData As Autodesk.Revit.DB.TableData = rvtViewSchedule.GetTableData
' Определяем раздел-«ГОЛОВА» таблицы спецификации
Dim rvtTableDataHeader As TableSectionData = rvtTableData.GetSectionData(SectionType.Header)
' ...
' Вставка изображения в шапку таблицы спецификации
If rvtTableDataHeader.IsValidImageSymbolId(ImageID) Then
Using transaction As New Transaction(Doc, "Image inserting")
transaction.Start()
rvtTableDataHeader.InsertImage(0, 0, ImageID)
transaction.Commit()
End Using
End If
Next
End Sub