PPT_LOGO_4b
Revit Programming Introduction <#>
Copyright © 2009 Autodesk Inc.
全ての要素パラメーターをループ
»' List all UI-visible Params
»Dim sMsg As String = "Parameters for the selected " & elem.Category.Name & " (" & elem.Id.Value.ToString & ") are:" & vbCrLf
»Dim param As Parameter
»For Each param In elem.Parameters
»  Dim paramName As String = param.Definition.Name
»  Dim paramType As String = param.StorageType.ToString
»  Dim paramValue As String = LabUtils.GetParamAsString(param)
»  sMsg += "  Name=" & paramName & "; Type=" & paramType & "; Value=" & paramValue
»Next
»MsgBox(sMsg)
»
»Public Shared Function GetParamAsString(ByVal param As Parameter) As String
»  Dim str As String
»  Select Case param.StorageType
»    Case StorageType.Double
»      str = param.AsDouble.ToString
»    Case StorageType.Integer
»      str = param.AsInteger.ToString
»    Case StorageType.String
»      str = param.AsString
»    Case StorageType.ElementId
»      str = param.AsElementId.Value.ToString
»    End Select
»  Return str
»End Function
パラメーター
lab4-1-1
此処では要素の個々のパラメータを取得し、パラメータが保持する値のタイプをプロパティStorageTypeで判別し、各タイプ毎に文字列に変換してフォームに表示しています。