$\Large隐藏无关对象$

主视图

左视图

俯视图

原视图

初始化

l1 = Flatten(Sequence[Sequence[Polygon[(u, v), (u + 1, v), 4], u, 0, 4], v, 0, 4])
A1: 1
A2: 2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
A12 = 12
A13 = 13
A14 = 14
A15 = 15
A16 = 16
A17 = 17
A18 = 18
A19 = 19
A20 = 20
A21 = 21
A22 = 22
A23 = 23
A24 = 24
A25 = 25
B1 = Element(l1, A1)
n1: -1
n2: -1
n3: -1
n4: -1
n5: -1
n6: -1
n7: -1
n8: -1
n9: -1
n10: -1
n11: -1
n12: -1
n13: -1
n14: -1
n15: -1
n16: -1
n17: -1
n18: -1
n19: -1
n20: -1
n21: -1
n22: -1
n23: -1
n24: -1
n25: -1
B2 = Element(l1, A2)
B3 = Element(l1, A3)
B4 = Element(l1, A4)
B5 = Element(l1, A5)
B6 = Element(l1, A6)
B7 = Element(l1, A7)
B8 = Element(l1, A8)
B9 = Element(l1, A9)
B10 = Element(l1, A10)
B11 = Element(l1, A11)
B12 = Element(l1, A12)
B13 = Element(l1, A13)
B14 = Element(l1, A14)
B15 = Element(l1, A15)
B16 = Element(l1, A16)
B17 = Element(l1, A17)
B18 = Element(l1, A18)
B19 = Element(l1, A19)
B20 = Element(l1, A20)
B21 = Element(l1, A21)
B22 = Element(l1, A22)
B23 = Element(l1, A23)
B24 = Element(l1, A24)
B25 = Element(l1, A25)
c1 = Sequence(Cube[Translate[B1, Vector[(0, 0, v)]], true], v, 0, n1)
c2 = Sequence(Cube[Translate[B2, Vector[(0, 0, v)]], true], v, 0, n2)
c3 = Sequence(Cube[Translate[B3, Vector[(0, 0, v)]], true], v, 0, n3)
c4 = Sequence(Cube[Translate[B4, Vector[(0, 0, v)]], true], v, 0, n4)
c5 = Sequence(Cube[Translate[B5, Vector[(0, 0, v)]], true], v, 0, n5)
c6 = Sequence(Cube[Translate[B6, Vector[(0, 0, v)]], true], v, 0, n6)
c7 = Sequence(Cube[Translate[B7, Vector[(0, 0, v)]], true], v, 0, n7)
c8 = Sequence(Cube[Translate[B8, Vector[(0, 0, v)]], true], v, 0, n8)
c9 = Sequence(Cube[Translate[B9, Vector[(0, 0, v)]], true], v, 0, n9)
c10 = Sequence(Cube[Translate[B10, Vector[(0, 0, v)]], true], v, 0, n10)
c11 = Sequence(Cube[Translate[B11, Vector[(0, 0, v)]], true], v, 0, n11)
c12 = Sequence(Cube[Translate[B12, Vector[(0, 0, v)]], true], v, 0, n12)
c13 = Sequence(Cube[Translate[B13, Vector[(0, 0, v)]], true], v, 0, n13)
c14 = Sequence(Cube[Translate[B14, Vector[(0, 0, v)]], true], v, 0, n14)
c15 = Sequence(Cube[Translate[B15, Vector[(0, 0, v)]], true], v, 0, n15)
c16 = Sequence(Cube[Translate[B16, Vector[(0, 0, v)]], true], v, 0, n16)
c17 = Sequence(Cube[Translate[B17, Vector[(0, 0, v)]], true], v, 0, n17)
c18 = Sequence(Cube[Translate[B18, Vector[(0, 0, v)]], true], v, 0, n18)
c19 = Sequence(Cube[Translate[B19, Vector[(0, 0, v)]], true], v, 0, n19)
c20 = Sequence(Cube[Translate[B20, Vector[(0, 0, v)]], true], v, 0, n20)
c21 = Sequence(Cube[Translate[B21, Vector[(0, 0, v)]], true], v, 0, n21)
c22 = Sequence(Cube[Translate[B22, Vector[(0, 0, v)]], true], v, 0, n22)
c23 = Sequence(Cube[Translate[B23, Vector[(0, 0, v)]], true], v, 0, n23)
c24 = Sequence(Cube[Translate[B24, Vector[(0, 0, v)]], true], v, 0, n24)
c25 = Sequence(Cube[Translate[B25, Vector[(0, 0, v)]], true], v, 0, n25)
text1 = Text(n1 + 1, Centroid[B1] + (-0.12, -0.21))
text2 = Text(n2 + 1, Centroid[B2] + (-0.12, -0.21))
text3 = Text(n3 + 1, Centroid[B3] + (-0.12, -0.21))
text4 = Text(n4 + 1, Centroid[B4] + (-0.12, -0.21))
text5 = Text(n5 + 1, Centroid[B5] + (-0.12, -0.21))
text6 = Text(n6 + 1, Centroid[B6] + (-0.12, -0.21))
text7 = Text(n7 + 1, Centroid[B7] + (-0.12, -0.21))
text8 = Text(n8 + 1, Centroid[B8] + (-0.12, -0.21))
text9 = Text(n9 + 1, Centroid[B9] + (-0.12, -0.21))
text10 = Text(n10 + 1, Centroid[B10] + (-0.12, -0.21))
text11 = Text(n11 + 1, Centroid[B11] + (-0.12, -0.21))
text12 = Text(n12 + 1, Centroid[B12] + (-0.12, -0.21))
text13 = Text(n13 + 1, Centroid[B13] + (-0.12, -0.21))
text14 = Text(n14 + 1, Centroid[B14] + (-0.12, -0.21))
text15 = Text(n15 + 1, Centroid[B15] + (-0.12, -0.21))
text16 = Text(n16 + 1, Centroid[B16] + (-0.12, -0.21))
text17 = Text(n17 + 1, Centroid[B17] + (-0.12, -0.21))
text18 = Text(n18 + 1, Centroid[B18] + (-0.12, -0.21))
text19 = Text(n19 + 1, Centroid[B19] + (-0.12, -0.21))
text20 = Text(n20 + 1, Centroid[B20] + (-0.12, -0.21))
text21 = Text(n21 + 1, Centroid[B21] + (-0.12, -0.21))
text22 = Text(n22 + 1, Centroid[B22] + (-0.12, -0.21))
text23 = Text(n23 + 1, Centroid[B23] + (-0.12, -0.21))
text24 = Text(n24 + 1, Centroid[B24] + (-0.12, -0.21))
text25 = Text(n25 + 1, Centroid[B25] + (-0.12, -0.21))
a: false
b: true
text26 = LaTeX("请点击小格子,\textcolor{red}{" + (If[b, "增加", "减少"]) + "}小立方体")
l2 = Sequence(Name[Element[C1:AA1, k]], k, 1, 25)
C1 = Element(c1, A1)
D1 = Element(c2, A1)
E1 = Element(c3, A1)
F1 = Element(c4, A1)
G1 = Element(c5, A1)
H1 = Element(c6, A1)
I1 = Element(c7, A1)
J1 = Element(c8, A1)
K1 = Element(c9, A1)
L1 = Element(c10, A1)
M1 = Element(c11, A1)
N1 = Element(c12, A1)
O1 = Element(c13, A1)
P1 = Element(c14, A1)
Q1 = Element(c15, A1)
R1 = Element(c16, A1)
S1 = Element(c17, A1)
T1 = Element(c18, A1)
U1 = Element(c19, A1)
V1 = Element(c20, A1)
W1 = Element(c21, A1)
X1 = Element(c22, A1)
Y1 = Element(c23, A1)
Z1 = Element(c24, A1)
AA1 = Element(c25, A1)
C2 = Element(c1, A2)
D2 = Element(c2, A2)
E2 = Element(c3, A2)
F2 = Element(c4, A2)
G2 = Element(c5, A2)
H2 = Element(c6, A2)
I2 = Element(c7, A2)
J2 = Element(c8, A2)
K2 = Element(c9, A2)
L2 = Element(c10, A2)
M2 = Element(c11, A2)
N2 = Element(c12, A2)
O2 = Element(c13, A2)
P2 = Element(c14, A2)
Q2 = Element(c15, A2)
R2 = Element(c16, A2)
S2 = Element(c17, A2)
T2 = Element(c18, A2)
U2 = Element(c19, A2)
V2 = Element(c20, A2)
W2 = Element(c21, A2)
X2 = Element(c22, A2)
Y2 = Element(c23, A2)
Z2 = Element(c24, A2)
AA2 = Element(c25, A2)
C3 = Element(c1, A3)
D3 = Element(c2, A3)
E3 = Element(c3, A3)
F3 = Element(c4, A3)
G3 = Element(c5, A3)
H3 = Element(c6, A3)
I3 = Element(c7, A3)
J3 = Element(c8, A3)
K3 = Element(c9, A3)
L3 = Element(c10, A3)
M3 = Element(c11, A3)
N3 = Element(c12, A3)
O3 = Element(c13, A3)
P3 = Element(c14, A3)
Q3 = Element(c15, A3)
R3 = Element(c16, A3)
S3 = Element(c17, A3)
T3 = Element(c18, A3)
U3 = Element(c19, A3)
V3 = Element(c20, A3)
W3 = Element(c21, A3)
X3 = Element(c22, A3)
Y3 = Element(c23, A3)
Z3 = Element(c24, A3)
AA3 = Element(c25, A3)
C4 = Element(c1, A4)
D4 = Element(c2, A4)
E4 = Element(c3, A4)
F4 = Element(c4, A4)
G4 = Element(c5, A4)
H4 = Element(c6, A4)
I4 = Element(c7, A4)
J4 = Element(c8, A4)
K4 = Element(c9, A4)
L4 = Element(c10, A4)
M4 = Element(c11, A4)
N4 = Element(c12, A4)
O4 = Element(c13, A4)
P4 = Element(c14, A4)
Q4 = Element(c15, A4)
R4 = Element(c16, A4)
S4 = Element(c17, A4)
T4 = Element(c18, A4)
U4 = Element(c19, A4)
V4 = Element(c20, A4)
W4 = Element(c21, A4)
X4 = Element(c22, A4)
Y4 = Element(c23, A4)
Z4 = Element(c24, A4)
AA4 = Element(c25, A4)
C5 = Element(c1, A5)
D5 = Element(c2, A5)
E5 = Element(c3, A5)
F5 = Element(c4, A5)
G5 = Element(c5, A5)
H5 = Element(c6, A5)
I5 = Element(c7, A5)
J5 = Element(c8, A5)
K5 = Element(c9, A5)
L5 = Element(c10, A5)
M5 = Element(c11, A5)
N5 = Element(c12, A5)
O5 = Element(c13, A5)
P5 = Element(c14, A5)
Q5 = Element(c15, A5)
R5 = Element(c16, A5)
S5 = Element(c17, A5)
T5 = Element(c18, A5)
U5 = Element(c19, A5)
V5 = Element(c20, A5)
W5 = Element(c21, A5)
X5 = Element(c22, A5)
Y5 = Element(c23, A5)
Z5 = Element(c24, A5)
AA5 = Element(c25, A5)
C6 = Element(c1, A6)
D6 = Element(c2, A6)
E6 = Element(c3, A6)
F6 = Element(c4, A6)
G6 = Element(c5, A6)
H6 = Element(c6, A6)
I6 = Element(c7, A6)
J6 = Element(c8, A6)
K6 = Element(c9, A6)
L6 = Element(c10, A6)
M6 = Element(c11, A6)
N6 = Element(c12, A6)
O6 = Element(c13, A6)
P6 = Element(c14, A6)
Q6 = Element(c15, A6)
R6 = Element(c16, A6)
S6 = Element(c17, A6)
T6 = Element(c18, A6)
U6 = Element(c19, A6)
V6 = Element(c20, A6)
W6 = Element(c21, A6)
X6 = Element(c22, A6)
Y6 = Element(c23, A6)
Z6 = Element(c24, A6)
AA6 = Element(c25, A6)
A = (5.085754148240563, -0.13590657969820547)
B = (7.454596962621209, -0.13590657969820547)

Tool: 坐标系
x最小、最大，y最小、最大，0.23
Input: m, n, q, p, a
Output: A, B, O, l1, l2, list3, list4, list5, list6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector((m - 1, 0), (n + 1, 0))
l1 = Sequence(Segment[(k, 0), (k, a)], k, m, n)
A: (n + 1, 0)
list4 = Sequence(Text[k, Element[Sequence[(t - 0.15, 0), t, 1, n], k], true, true], k, 1, n)
list3 = Sequence(Text[k, Element[Sequence[(t - 0.5, 0), t, m, -1], k + abs(m) + 1], true, true], k, m, -1)
l2 = Sequence(Segment[(0, k), (a, k)], k, q, p)
list5 = Sequence(Text[k, Element[Sequence[(-0.9, t + 0.2), t, q, -1], k + abs(q) + 1], true, true], k, q, -1)
v = Vector((0, q - 1), (0, p + 1))
B: (0, p + 1)
list6 = Sequence(Text[k, Element[Sequence[(-0.6, t + 0.2), t, 1, p], k], true, true], k, 1, p)
O: B - (0, p + 1)