AreaReinforcement

Public Sub GetInfo_AreaReinforcement(areaReinforcement As AreaReinforcement)
    Dim message As String = "AreaReinforcement : "

    ' Show the AreaReinforcement Type information
    'message += "\nType : " + areaReinforcement.AreaReinforcementType.Name;

    ' Show the AreaReinforcement bar information
    Dim rebarInSystemIds As IList(Of ElementId) = areaReinforcement.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 AreaReinforcement Curves information
    Dim curveIds As IList(Of ElementId) = areaReinforcement.GetBoundaryCurveIds()
    message += vbLf & "Area Reinforcement has " & curveIds.Count & " boundary curves."
    For Each ii As Autodesk.Revit.DB.ElementId In curveIds
        Dim reinCurve As AreaReinforcementCurve = TryCast(doc.GetElement(ii), AreaReinforcementCurve)
        If reinCurve Is Nothing Then
            Continue For
        End If
        Dim curve As Curve = reinCurve.Curve
        ' 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 += ((vbLf & "       End point (" + [end].X & ", ") + [end].Y & ", ") + [end].Z & ")"
    Next

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