
这是一个每面有九个孔的正六面体,如何在3D中把它画出来呢?
我们首先从最基本的图形开始:
a = 0.5 (滑动条,控制矩形大小)
b = a / 2 (控制孔的大小)
A = (2, 2)
D = A + a
B = A - (a, 0)
C = A + (a, 0)
E = A + (-a, a)
l1 = {B, C, D, E}
q1 = 多边形(l1)
F = A + (b, 0)
G = A - (b, 0)
c: 半圆(G, F)
上边命令是画一个矩形和一个半圆,大小、位置可控(用A点控制位置)。

l2 = 序列(描点(c, i), i, 0, 1, 1 / 20)
l3 = 合并({逆序排列(l2), {C, D, E, B}})
p1 = 多边形(l3) (填充色不透明,线径为0)
将矩形和半圆描点合成一个多边形:

p2 = 对称(p1, A)
l4 = {p1, p2}
上图对称一下,再给合成一个挖孔正方形:

l5 = 平移(l4, (-3a, -3a))
l6 = 序列(序列(平移(l5, (m, n)), m, 0, 2), n, 0, 2)
画九个挖孔正方形,形成正方体的一个底面:

l7 = 旋转(l6, 90°, x轴)
l8 = 旋转(l6, -(90°), y轴)
l6' = 平移(l6, 向量((0, 0, 6a)))
l7' = 平移(l7, 向量((0, 6a, 0)))
l8' = 平移(l8, 向量((6a, 0, 0)))
打开3D绘图区,对底面进行变换操作,形成正方体其它面:
