Rebar segments parameters

[stefano.cartaKGT96]

Hi..
I would to find the internal name of the rebar segment lenght parameter (A, B, C....)

I have tried with lookup, but return invalid

I have a variable rebar set and I want to iterate all rebars to extract the minimum and maximum lenght for each segments.
I use this code for the rebar number, I think that i can use it for the segments, but I don't know how to sobstitute "BuiltInParameter.REBAR_NUMBER"

Dim barnumbers As Integer = myrebar.NumberOfBarPositions

     For ii As Integer = 0 To barnumbers - 1
       'Dim param7 As Parameter = myrebar.GetParameterValueAtIndex(New Autodesk.Revit.DB.ElementId(BuiltInParameter.REBAR_NUMBER), ii)
                            Dim pVal = TryCast(myrebar.GetParameterValueAtIndex(New Autodesk.Revit.DB.ElementId(BuiltInParameter.REBAR_NUMBER), ii), StringParameterValue)

        Dim pvalstr As String = pVal.ToString

      Next

[jeremy_tammik]

Not all parameters correspond to a built-in parameter enumeration value. For instance, if you define your own new family definition and store it in an RFA with a thousand new custom family parameters, then they will all not be shared parameters. In that case, unfortunately, you have to use other means to identify and retrieve them, e.g., via their name or Definition object. In the case you show, you might just use the parameter name "A". In that case, for the sake of safety., you might also want to add a test to guarantee that this name is indeed unique.

[stefano.cartaKGT96]

Thanks Jeremy...

I try this..but i reveive nothing for pval

Dim str_A As Parameter = myrebar.LookupParameter("B")
                        Dim xx As ElementId = str_A.Id


                        For ii As Integer = 0 To barnumbers - 1
                            'Dim param7 As Parameter = myrebar.GetParameterValueAtIndex(New Autodesk.Revit.DB.ElementId(BuiltInParameter.REBAR_NUMBER), ii)
                            Dim pVal = TryCast(myrebar.GetParameterValueAtIndex(New Autodesk.Revit.DB.ElementId(xx.IntegerValue), ii), StringParameterValue)

                            Dim pvalstr As String = pVal.ToString

                        Next