Well, here's a VB.Net version !
Assuming you already have a loop that gets the element for you, you can use the following 2 functions to get the parameter in a string format .... and then store it in a tag may be ! You may have to modify the things slightly ...
******* YOU WILL HAVE TO REPLACE "ParemeterName" IN THE CODE WITH YOUR ACTUAL PARAMETER NAME **********************************
Code:
'Function to get the value of a specific parameter
Public Function GetParamVal(ByVal elem As Autodesk.Revit.Element) As String
Dim paramIter As Autodesk.Revit.ParameterSetIterator
paramIter = elem.Parameters.ForwardIterator
While (paramIter.MoveNext)
If (CType(paramIter.Current, Autodesk.Revit.Parameter).Definition.Name _
= "ParameterName") Then
return ParameterValue(paramIter.Current)
End If
End While
Return ""
End Function
'Function to convert the value of an element.parameter to a string
Private Function ParameterValue(ByVal param As Autodesk.Revit.Parameter) As String
If (param Is Nothing) Then
Return ""
End If
Dim value As String = ""
Select Case param.StorageType
Case Parameters.StorageType.Double
value += param.AsDouble().ToString()
Case Parameters.StorageType.ElementId
value += param.AsElementId().ToString()
Case Parameters.StorageType.Integer
value += param.AsInteger().ToString
Case Parameters.StorageType.None
value += "NONE"
Case Parameters.StorageType.String
value += param.AsString()
Case Else
value += "ELSE CASE"
End Select
Return value
End Function
Prashant