Public Shared Function ParameterToString(ByVal param As Parameter) As String
Dim val As String = "none"
If param Is Nothing Then
Return val
End If
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
Евгений, а чем
Parameter.AsValueString не угодил? Также в вашем варианте не учитываются единицы измерения. Например, если у вас длина 1000 мм, то в случае вашего метода, вернется значение 3,28.
Вопрос снят с повестки дня ) На всякий случай код напишу для тех, кто еще не в курсе:
Кстати код абсолютно не дает ответа на поставленный вами же вопрос:)
А ответ на вопрос прост - чтобы получить параметры экземпляра, а не типа, надо взять параметры экземпляра, а не типа.) Т.е. работать надо с объектом экземпляра, а не типа, когда просматриваете параметры.