© 2010 Autodesk
Introduction to Revit 2011 API
DB Element
Parameters  
§ABC
§
<VB.NET>
    ''  Helper function: return a string from of a given parameter. 
    Public Shared Function ParameterToString(ByVal param As Parameter) As String
        Dim val As String = “"
        If param Is Nothing Then
            Return val
        End If
        ''  to get to the parameter value, we need to pause it depending on
        ''  its strage type
        Select Case param.StorageType
            Case StorageType.Double
                Dim dVal As Double = param.AsDouble
                val = dVal.ToString
            Case StorageType.Integer
                Dim iVal As Integer = param.AsInteger
                val = iVal.ToString()
            Case StorageType.String
                Dim sVal As String = param.AsString
                val = sVal
            Case StorageType.ElementId
                Dim idVal As ElementId = param.AsElementId
                val = idVal.IntegerValue.ToString
            Case StorageType.None
            Case Else
        End Select
        Return val
    End Function
</VB.NET>
ParameterToStringメソッドにパラメータを渡して、実数、整数、文字列、要素IDのいづれかのパラメータ ストレージタイプを判定して、それにあった方法で値を文字列にしています。ストレージタイプ Noneは不正なパラメータであるかをチェックしています。