1、做一个正七边形：
Graphics[{Green, RegularPolygon[7]}]
2、做一个正十七边形，并改变图形的样式：
Graphics[{EdgeForm[Directive[Thick, Dashed, Blue]], Green,
RegularPolygon[17]}]
3、画一个半径为6的正三角形和半径为2的六边形：
Graphics[{Green, RegularPolygon[6, 3], Blue, RegularPolygon[2, 6]}]
4、从x轴转过1°，开始画一个正方形：
Graphics[{Blue, RegularPolygon[{6, 1 Degree}, 4]}]
这一点不太相符吧？感觉这个角度不同！
5、一个精彩示例：
With[{a = 10},
Graphics[{Opacity[.1], Blue,
Table[RegularPolygon[{((2 Sin[(a + 60) Degree])/Sqrt[3])^(r - 1),
a r Degree}, 6], {r, 0, 18}]}]]
