let d1(roofudfcurve) let i (integer) i=0 for i while i <= curvenumber { d1 = CreateOrModifyTemplate("roofdesign|roofudfcurve",CURVES ,`Relations\Knowledge Pattern.1\roofudfcurve` ,i) d1.Surface = CONTEXT\Fill.1 d1.Line2 = CONTEXT\Line.2 d1.Line1 = CONTEXT\Line.1 d1.curvenumber = curvenumber - 1 d1.curveposition = i - 1 EndModifyTemplate(d1) d1.Name = "CRV" + ToString(i) }