3D如何实现遮挡标签

hbghlyj

顶点编号的正十二面体

1. list={{-Sqrt[(5+2*Sqrt[5])/5],0,Sqrt[(5-Sqrt[5])/10]/2},{Sqrt[(5+2*Sqrt[5])/5],0,-1/2*Sqrt[(5-Sqrt[5])/10]},{-1/2*Sqrt[(5+Sqrt[5])/10],(-3-Sqrt[5])/4,Sqrt[(5-Sqrt[5])/10]/2},{-1/2*Sqrt[(5+Sqrt[5])/10],(3+Sqrt[5])/4,Sqrt[(5-Sqrt[5])/10]/2},{Sqrt[5/8+11/(8*Sqrt[5])],(-1-Sqrt[5])/4,Sqrt[(5-Sqrt[5])/10]/2},{Sqrt[5/8+11/(8*Sqrt[5])],(1+Sqrt[5])/4,Sqrt[(5-Sqrt[5])/10]/2},{-1/2*Sqrt[(5-Sqrt[5])/10],(-1-Sqrt[5])/4,Sqrt[5/8+11/(8*Sqrt[5])]},{-1/2*Sqrt[(5-Sqrt[5])/10],(1+Sqrt[5])/4,Sqrt[5/8+11/(8*Sqrt[5])]},{-Sqrt[1/4+1/(2*Sqrt[5])],-1/2,-Sqrt[5/8+11/(8*Sqrt[5])]},{-Sqrt[1/4+1/(2*Sqrt[5])],1/2,-Sqrt[5/8+11/(8*Sqrt[5])]},{Sqrt[1/4+1/(2*Sqrt[5])],-1/2,Sqrt[5/8+11/(8*Sqrt[5])]},{Sqrt[1/4+1/(2*Sqrt[5])],1/2,Sqrt[5/8+11/(8*Sqrt[5])]},{Sqrt[(5+Sqrt[5])/10],0,-Sqrt[5/8+11/(8*Sqrt[5])]},{-Sqrt[5/8+11/(8*Sqrt[5])],(-1-Sqrt[5])/4,-1/2*Sqrt[(5-Sqrt[5])/10]},{-Sqrt[5/8+11/(8*Sqrt[5])],(1+Sqrt[5])/4,-1/2*Sqrt[(5-Sqrt[5])/10]},{-Sqrt[(5+Sqrt[5])/10],0,Sqrt[5/8+11/(8*Sqrt[5])]},{Sqrt[(5-Sqrt[5])/10]/2,(-1-Sqrt[5])/4,-Sqrt[5/8+11/(8*Sqrt[5])]},{Sqrt[(5-Sqrt[5])/10]/2,(1+Sqrt[5])/4,-Sqrt[5/8+11/(8*Sqrt[5])]},{Sqrt[(5+Sqrt[5])/10]/2,(-3-Sqrt[5])/4,-1/2*Sqrt[(5-Sqrt[5])/10]},{Sqrt[(5+Sqrt[5])/10]/2,(3+Sqrt[5])/4,-1/2*Sqrt[(5-Sqrt[5])/10]}};
2. Graphics3D[{GraphicsComplex[list,Polygon[{{15,10,9,14,1},{2,6,12,11,5},{5,11,7,3,19},{11,12,8,16,7},{12,6,20,4,8},{6,2,13,18,20},{2,5,19,17,13},{4,20,18,10,15},{18,13,17,9,10},{17,19,3,14,9},{3,7,16,1,14},{16,8,4,15,1}}]],Table[Text[Labeled[i,"",Background->White],list[[i]]],
3. {i,20}]}]

Copy the Code

即使挡住的标签也会显示出来，如何实现遮挡的效果？