PPT_LOGO_4b
Revit Programming Introduction <#>
Copyright © 2009 Autodesk Inc.
共有パラメーターの読み込み
§ファイルを選択、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
パラメーター