RebarStrand Class

[SerializableAttribute]
public sealed class RebarStrand : Reinforcement

<SerializableAttribute>
Public NotInheritable Class RebarStrand
	Inherits Reinforcement

using Tekla.Structures.Model;
using Tekla.Structures.Geometry3d;
using System;

public class Example
{
       public void Example1()
       {
           Beam Beam = new Beam(new Point(5000, 14000, 0), new Point(6000, 14000, 0));
           Beam.Profile.ProfileString = "250*250";
           Beam.Material.MaterialString = "K40-1";
           Beam.Finish = "PAINT";
           Beam.Insert();

           double MinimumX = Beam.GetSolid().MinimumPoint.X;
           double MinimumY = Beam.GetSolid().MinimumPoint.Y;
           double MinimumZ = Beam.GetSolid().MinimumPoint.Z;
           double MaximumX = Beam.GetSolid().MaximumPoint.X; 
           double MaximumY = Beam.GetSolid().MaximumPoint.Y;
           double MaximumZ = Beam.GetSolid().MaximumPoint.Z;

           Polygon Polygon1 = new Polygon();
           Polygon1.Points.Add(new Point(MinimumX, MaximumY, MinimumZ));
           Polygon1.Points.Add(new Point(MinimumX, MaximumY, MaximumZ)); 
           Polygon1.Points.Add(new Point(MinimumX, MinimumY, MaximumZ));
           Polygon1.Points.Add(new Point(MinimumX, MinimumY, MinimumZ));
           Polygon1.Points.Add(new Point(MinimumX, MaximumY, MinimumZ));

           RebarStrand RebarStrand = new RebarStrand();
           RebarStrand.Patterns.Add(Polygon1);        
           RebarStrand.StartPoint = new Point(MinimumX, MinimumY, MinimumZ);
           RebarStrand.EndPoint = new Point(MaximumX, MinimumY, MinimumZ);
           RebarStrand.Father = Beam;
           RebarStrand.Name = "Strand Test 1";
           RebarStrand.Class = 3;
           RebarStrand.Size = "10";
           RebarStrand.NumberingSeries.StartNumber = 0;
           RebarStrand.NumberingSeries.Prefix = "STRAND1";
           RebarStrand.Grade = "B500K";
           RebarStrand.RadiusValues.Add(30.0);
           RebarStrand.PullPerStrand = 8000.0;
           StrandUnbondingData Unbonding = new StrandUnbondingData();
           Unbonding.FromEnd = 20;
           Unbonding.FromStart = 20;
           Unbonding.MiddleToEnd = 30;
           Unbonding.MiddleToStart = 30;
           Unbonding.StrandIndex = 1;
           RebarStrand.Unbondings.Add(Unbonding);
           StrandUnbondingData Unbonding2 = new StrandUnbondingData();
           Unbonding2.FromEnd = 40;
           Unbonding2.FromStart = 40;
           Unbonding2.MiddleToEnd = 15;
           Unbonding2.MiddleToStart = 15;
           Unbonding2.StrandIndex = 2;
           RebarStrand.Unbondings.Add(Unbonding2);

           if(!RebarStrand.Insert())
               Console.WriteLine("Insert failed!");
       }
}