Knowledge Pattern : Sample (Suwon 2nd Gym Project)

Let udf(UserFeature)
Let i(Integer)
Let li(Line)
Let st(String)

i=1

For i while i <= `List_SpaceFrameLine\Size`
{

li=`List_SpaceFrameLine` ->GetItem(i)
st="SpPipe_"+ToString(i)

udf= CreateOrModifyTemplate("Knowledge_Pattern_Catalog|SpaceFrame_PipeGeo",`SpaceFrame_Pipe`   ,`Relations\Knowledge Pattern_SpacePipe\UDFs`  ,i)
udf->SetAttributeObject("CenterLine", li  )
udf.Name=st
udf.Color=`Pipe_Color`
EndModifyTemplate(udf)

i=i+1
}