§ファイルを選択、Excel を起動、ファイルを開く
§データーの読み込み
»
»Dim id As Integer
»Dim fireRatingValue As Double
»Dim row As Integer = 2
»Do
»
' Extract relevant XLS values
»
id = worksheet.Cells(row, 1).Value
»
If
id <= 0 Then Exit Do
»
fireRatingValue = worksheet.Cells(row, 4).Value
»
' Get document's door element via Id
»
Dim
elementId As Autodesk.Revit.ElementId
»
elementId.Value = id
»
Dim
door As Autodesk.Revit.Element = revitApp.ActiveDocument.Element( elementId )
»
' Set the param
»
If Not (door Is Nothing) Then
»
Dim parameter As Parameter = LabUtils.GetElemParam( door, sharedParamName )
»
parameter.Set( fireRatingValue )
»
End If
»
row = row + 1
»Loop