Group Circles

7KB

groupCircles.zip

archive

circle1 = Circle.ByCenterPointRadius(Point.ByCoordinates([2, 12, 6, 9, 3, 6], [1, 4, 8, 7, 8, 2]), [1, 2, 1, 2, 2, 2]);
t2 = Geometry.DistanceTo(circle1<1>, circle1<2>);
t3 = List.SortByKey(circle1, t2@L2<1>);
t4 = Dictionary.ValueAtKey(t3, "sorted list");
t5 = Dictionary.ValueAtKey(t3, "sorted keys");
t6 = 2;
t7 = List.TakeItems(t4<1L>, t6<1L>);
t8 = 1;
t9 = List.GetItemAtIndex(t5<1L>, t8<1L>);
t10 = 0.5;
t11 = t9 <= t10;
t12 = List.FilterByBoolMask(t7, t11);
t13 = Dictionary.ValueAtKey(t12, "in");
t14 = Dictionary.ValueAtKey(t12, "out");
t15 = List.Sort(t13<1L>);
t16 = List.UniqueItems(t15);
point1 = Circle.CenterPoint(t16);
line1 = Line.ByBestFitThroughPoints(point1);
t17 = Circle.Radius(t16);
t18 = List.FirstItem(t17<1L>);
curve1 = Curve.ExtendStart(line1, t18);
t19 = List.LastItem(t17<1L>);
curve2 = Curve.ExtendEnd(curve1, t19);
t20 = List.MaximumItem(t17);
t21 = 2;
t22 = t20 * t21;
vector1 = Vector.ZAxis();
polyCurve1 = PolyCurve.ByThickeningCurve(curve2, t22, vector1);
a = circle1;
b = polyCurve1;
t1 = [a, b];