PathReinforcement

Private Sub Getinfo_PathReinforcement(pathReinforcement As PathReinforcement)
    Dim message As String = "PathReinforcement : "

    ' Show the NumBarDescriptions property
    Dim rebarInSystemIds As IList(Of ElementId) = pathReinforcement.GetRebarInSystemIds()
    message += vbLf & "Number of distinct bar shapes : " & rebarInSystemIds.Count

    For i As Integer = 0 To rebarInSystemIds.Count - 1
        Dim ris As RebarInSystem = TryCast(doc.GetElement(rebarInSystemIds(0)), RebarInSystem)
        message += vbLf & "Bar count : " + ris.Quantity
        message += vbLf & "Bar type name : " + ris.Name
        message += vbLf & "Bar length : " & ris.LookupParameter("Bar Length").AsDouble()
    Next

    ' Show the PathReinforcement Curves information
    Dim curveIds As IList(Of ElementId) = pathReinforcement.GetCurveElementIds()
    message += vbLf & "Path Reinforcement has " & curveIds.Count & " path curves."
    For Each ii As Autodesk.Revit.DB.ElementId In curveIds
        Dim pathCurve As ModelCurve = TryCast(doc.GetElement(ii), ModelCurve)
        If pathCurve Is Nothing Then
            Continue For
        End If
        Dim curve As Curve = pathCurve.GeometryCurve
        ' get the location curve
        Dim start As XYZ = curve.GetEndPoint(0)
        ' get the start point of the curve
        Dim [end] As XYZ = curve.GetEndPoint(1)
        ' get the end point of the curve
        message += ((vbLf & "Curve: Start point (" + start.X & ", ") + start.Y & ", ") + start.Z & ")"
        message += (("   End point (" + [end].X & ", ") + [end].Y & ", ") + [end].Z & ")"
    Next

    TaskDialog.Show("Revit", message)
End Sub