想画个魔方

dongdonggege

想画个魔方的外形，只画三面，正面是一个正方形，另外两个面分别是两个平行四边形。
平时教学学生用，在上面画解法步骤，这个魔方要具有远近透视感，不太好画。

哪位老师有兴趣帮帮我，这是我费了九牛二虎之力画的，角度不规范，横竖不均衡，请问用程序怎么画？谢谢。

micch

这种网上有现成的吧，非用Excel画也不是不行，只画立方体简单，加颜色甚至加旋转就麻烦了

dongdonggege

micch 发表于 2023-2-27 14:46
这种网上有现成的吧，非用Excel画也不是不行，只画立方体简单，加颜色甚至加旋转就麻烦了

就是，要是好画就不会求人了，老师要是能会画，帮帮我，闲着也是闲着了。

morpheus126

用立体图表、、、突发奇想

dongdonggege

morpheus126 发表于 2023-2-27 18:37
用立体图表、、、突发奇想

请你画一个

micch

dongdonggege 发表于 2023-2-27 14:53
就是，要是好画就不会求人了，老师要是能会画，帮帮我，闲着也是闲着了。

https://club.excelhome.net/forum ... 31&pid=10845439

horselyq

https://www.geogebra.org/m/yezd5aps

dongdonggege

micch 发表于 2023-2-28 00:58
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1471631&pid=10845439

老师的方法和我的不一样，你用的是堆砌法，我的只是画部分。现在我已经用程序画出来了，感觉右上方不像矩形。我使用的是在原始的方法修改的数据，不像程序，请老师修改，谢谢。

dongdonggege

1. Sub Macro8()
   
2. '
   
3. ' 宏由 h 记录，日期: 2023/2/28
   
4. 
   
5. 
   
6.     ActiveSheet.Shapes.AddLine(240, 100, 360, 100).Select
   
7.     ActiveSheet.Shapes.AddLine(225, 120, 345, 120).Select
   
8.     ActiveSheet.Shapes.AddLine(210, 140, 330, 140).Select
   
9.    
   
10.     ActiveSheet.Shapes.AddLine(195, 160, 315, 160).Select
    
11.     ActiveSheet.Shapes.AddLine(195, 200, 315, 200).Select
    
12.     ActiveSheet.Shapes.AddLine(195, 240, 315, 240).Select
    
13.     ActiveSheet.Shapes.AddLine(195, 280, 315, 280).Select
    
14.    
    
15.     ActiveSheet.Shapes.AddLine(195, 160, 195, 280).Select
    
16.     ActiveSheet.Shapes.AddLine(235, 160, 235, 280).Select
    
17.     ActiveSheet.Shapes.AddLine(275, 160, 275, 280).Select
    
18.     ActiveSheet.Shapes.AddLine(315, 160, 315, 280).Select
    
19.    
    
20.     ActiveSheet.Shapes.AddLine(330, 140, 330, 260).Select
    
21.     ActiveSheet.Shapes.AddLine(345, 120, 345, 240).Select
    
22.     ActiveSheet.Shapes.AddLine(360#, 100, 360#, 220).Select
    
23.    
    
24.     ActiveSheet.Shapes.AddLine(195, 100, 240, 160).Select
    
25.     ActiveWindow.Selection.ShapeRange.Flip msoFlipVertical
    
26.    
    
27.     ActiveSheet.Shapes.AddLine(235, 100, 280#, 160).Select
    
28.     ActiveWindow.Selection.ShapeRange.Flip msoFlipVertical
    
29.    
    
30.     ActiveSheet.Shapes.AddLine(275, 100, 320, 160).Select
    
31.     ActiveWindow.Selection.ShapeRange.Flip msoFlipVertical
    
32.    
    
33.     ActiveSheet.Shapes.AddLine(315, 100, 360, 160).Select '
    
34.     ActiveWindow.Selection.ShapeRange.Flip msoFlipVertical
    
35.    
    
36.     ActiveSheet.Shapes.AddLine(315, 140, 360#, 200).Select
    
37.     ActiveWindow.Selection.ShapeRange.Flip msoFlipVertical
    
38.     ActiveSheet.Shapes.AddLine(315, 185#, 360#, 240).Select
    
39.     ActiveWindow.Selection.ShapeRange.Flip msoFlipVertical
    
40.     ActiveSheet.Shapes.AddLine(315, 219#, 360#, 280).Select
    
41.     ActiveWindow.Selection.ShapeRange.Flip msoFlipVertical
    
42. End Sub
    

复制代码

麻烦各位老师修改下，谢谢。

tspliu

近大，远小，不能画成平行四边行，梯形看上去才正常