Excel中画的美丽的几何图案（艺术图案）

zhaozyuan · 发表于 2009-9-26 20:52

几何图案链接：

'Excel中画的美丽的几何图案 (随机直线)
http://club.excelhome.net/viewth ... 7079&highlight=
Excel中画的美丽的几何图案(坐标系和散点图)
http://club.excelhome.net/viewth ... 7068&highlight=
Excel中画的美丽的几何图案（阿基米德螺线）
http://club.excelhome.net/viewth ... 7055&highlight=
Excel中画的美丽的几何图案(散点花瓣)
http://club.excelhome.net/viewth ... 7084&highlight=
Excel中画的美丽的几何图案（艺术图案）
http://club.excelhome.net/viewth ... 7059&highlight=
Excel中画的美丽的几何图案（圆环）
http://club.excelhome.net/viewth ... 7049&highlight=
Excel中画的美丽的几何图案(散点图)
http://club.excelhome.net/thread-487204-1-1.html

[ 本帖最后由 zhaozyuan 于 2009-10-3 14:47 编辑 ]

jssy · 发表于 2009-9-26 21:07

楼主最好将文档也放上来

dengjq2000 · 发表于 2009-9-26 21:09

不知道怎么的，我这图片都看不见了

lzg19752000 · 发表于 2009-9-26 21:12

这是怎么画的呢

梅梅1209 · 发表于 2009-9-26 21:12

好漂亮的图案！

YZLSZAJ · 发表于 2009-9-26 21:12

吊口味。。。

心电感应 · 发表于 2009-9-26 21:38

很漂亮啊怎么做的,老师发个教程吧.

zhaozyuan · 发表于 2009-9-26 21:44

n等分圆周，然后两两连线

zhaozyuan · 发表于 2009-9-27 13:30

   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-9-27 13:26:17
001:Sub 艺术图案()
002:cls
003:Const Pi = 3.1415926
004:Dim i, j, n, r, t
005:n = 15
006:r = 100
007:t = 2 * Pi / n
008:For i = 1 To n
009: x = r * Cos(i * t) + 200
010: y = r * Sin(i * t) + 200
011: For j = 1 To i
012:       x1 = r * Cos(j * t) + 200
013:       y1 = r * Sin(j * t) + 200
014:       adline x1, y1, x, y
015: Next j
016:Next i
017:End Sub

[ 本帖最后由 zhaozyuan 于 2009-9-27 13:32 编辑 ]

zhaozyuan · 发表于 2009-10-3 14:49

链接已更新

		自动登录	找回密码
密码			免费注册

Excel中画的美丽的几何图案 （艺术图案）

Excel中画的美丽的几何图案（艺术图案）