Private Function CreateRebarShape(document As Document)
Dim sp1 = New RebarShapeDefinitionByArc(document, 5, 0.5, 1, 1)
Return RebarShape.Create(document, sp1, Nothing, RebarStyle.Standard, StirrupTieAttachmentType.ExteriorFace,
0, RebarHookOrientation.Left, 0, RebarHookOrientation.Left, 0)
End Function
Private Function CreateRebar5(document As Document, host As FamilyInstance, barType As RebarBarType, rShape As RebarShape)
Dim origin As New XYZ(0, 0, -5) ''
Return Rebar.CreateFromRebarShape(document, rShape, barType, host, origin, XYZ.BasisX, XYZ.BasisY)
End Function