§Excel
を起動
§‘Doors’ カテゴリーの全ての標準ファミリーインスタンスを取得
§値にアクセスするため共有パラメーターの GUID を判定
»Dim guid As Guid = guid.Empty
»Dim file As
Parameters.DefinitionFile = revitApp.OpenSharedParameterFile
»Dim group As
Parameters.DefinitionGroup = file.Groups.Item(defGroup)
»Dim definition As
Parameters.Definition = group.Definitions.Item(defName)
»Dim externalDefinition As
Parameters.ExternalDefinition = definition
»guid = externalDefinition.GUID
§ループして全てのドア対してExcel行に書き出す
§ID / レベル / タグ / 耐火等級
»worksheet.Cells(row, 1).Value =
door.Id.Value
»worksheet.Cells(row, 2).Value =
door.Level.Name
»Dim tagParameter As Parameter =
door.Parameter( BuiltInParameter.ALL_MODEL_MARK )
»worksheet.Cells(row, 3).Value =
tagParameter.AsString
»Dim parameter As Parameter =
door.Parameter( paramGuid )
»worksheet.Cells(row, 4).Value =
parameter.AsDouble
»row = row + 1