涂色

请点击列表，会生成一个新列表；再在指令栏输入：执行()【括号里面写新列表的名称】

l1长 = Length(l1)
l2 = Sequence(Name[l1] + "元素" + (k) + "=Element(" + (Name[l1]) + "," + (k) + ")", k, 1, l1长)
{Name[l1] + "长=CopyFreeObject(Length(" + (Name[l1]) + "))"}
l3 = Sequence("SetDynamicColor(" + (Name[l1]) + "元素" + (k) + ",x(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/ " + (Name[l1]) + "长)),y(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/" + (Name[l1]) + "长)),z(Point(Polyline({(1, 0, 0), (1, 0, 1), (0, 0, 1), (0, 1, 1), (0, 1, 0), (1, 1, 0), (1, 0, 0)}), " + (k) + "/ " + (Name[l1]) + "长)))", k, 1, l1长)
l5 = Join({l4, l2, l3})