Polyline to PolyArc
Convert a series of lines to a series of tangential arcs
def lnToAr(pl:var[]..[], of:double)
{
pc1 = List.FirstItem(pl.Curves());
//First Arc
ac1 = List.FirstItem(pc1);
ac2 = ac1.Offset(of).PointAtParameter(0.5);
ar1 = Arc.ByThreePoints(ac1.StartPoint,ac2,ac1.EndPoint);
ac3 = List.RestOfItems(pc1);
ar5 = [Imperative]
{
cnt = 1;
pc2 = [ar1];
for (cr in ac3)
{
pc2[cnt] = Arc.ByStartPointEndPointStartTangent(cr.StartPoint,cr.EndPoint,ar1.TangentAtParameter(1));
ar1 = pc2[cnt];
cnt = cnt + 1;
}
return pc2;
}
return ar5;
Last modified 2yr ago