A = (-0.5331930879038307, -2.1835311795642287)
l1 = Flatten(Sequence[Sequence[Polygon[A + (p, q), A + (p, q) + (1, 0), 4], p, 0, 4, 1.2], q, 0, 4, 1.2])
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
B1 = Element(l1, A1)
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)
l4 = Zip(Text[p, (-0.38, -0.16) + Centroid[q]], p, {"确定", "清空", "删减", "   _¯"}, q, {B4, B8, B12, B16})
l2 = Zip(Text[p, (-0.15, -0.22) + Centroid[q]], p, 0…9, q, {B1, B5, B6, B7, B9, B10, B11, B13, B14, B15})
l3 = Zip(Text[p, (-0.28, -0.22) + Centroid[q]], p, {"00", "•"}, q, {B2, B3})
B = (1.8713523666416254, 2.8482870022539544)
C = (4.825897821187083, 2.8482870022539544)