EKL_CreateDatum

let CRV (Curve)
let PL (Plane)
let PTMove, PT1 , PT2 (Point)
let i (Integer)

i =1

for i while i <= Const\STF\Parameters\Count {		
	CRV = CreateOrModifyDatum("Curve" , Const\STF\Curves , `Const\STF\Relations\KP_Curves\List.Curves` , i)
	PTMove = pointoncurve(Const\STF\Const\Centerline\CRV_CL , Const\STF\Const\Centerline\PT_Seed ,(i-1)*STF\StiffSpacing  , true) 
	PL = planenormal(Const\STF\Const\Centerline\CRV_CL , PTMove ) 
	PT1 = intersect(Const\STF\Const\Stiffeners\CRV_TrimRight , PL) 
	PT2 = intersect(Const\STF\Const\Stiffeners\CRV_TrimLeft , PL)
	CRV = line(PT1, PT2)
	CRV.Name = "CRV_" + i
	i = i + 1
}