OpenSCAD基本组件：空心圆柱、空心圆锥、空心半球、空心金字塔

Tesla.Angela

效果图：

---

这个代码风格照搬了我写WINDOWS驱动代码时的风格。

1. //code by Tesla.Angela (www.m5home.com/bbs)
   
2. 
   
3. $fn=100;
   
4. 
   
5. module ObCreateHollowCylinder(radius,height,thickness,IsCone)
   
6. {
   
7.         difference()
   
8.         {
   
9.                 cylinder(height,radius,IsCone?0:radius);
   
10.                 cylinder(height-thickness,radius-thickness,IsCone?0:radius-thickness);
    
11.         }       
    
12. }
    
13. //demo
    
14. translate([80,0,100])
    
15. {
    
16.         rotate([0,180,0])
    
17.         {
    
18.                 ObCreateHollowCylinder(50,100,2,0);
    
19.         }
    
20. }
    
21. translate([-30,0,0])
    
22. {
    
23.         ObCreateHollowCylinder(50,100,2,1);
    
24. }
    
25. 
    
26. module ObCreateHollowHalfBall(radius,thickness)
    
27. {
    
28.         difference()
    
29.         {
    
30.                 sphere(radius);
    
31.                 sphere(radius-thickness);
    
32.                 translate([0,-radius,-radius])
    
33.                 {
    
34.                         cube([radius*2,radius*2,radius*2]);
    
35.                 }
    
36.         }
    
37. }
    
38. //demo
    
39. translate([-30,110,50])
    
40. {
    
41.         rotate([0,270,0])
    
42.         {
    
43.                 ObCreateHollowHalfBall(50,2);
    
44.         }
    
45. }
    
46. 
    
47. module ObpCreatePyramid(length, height)
    
48. {
    
49.         polyhedron
    
50.         (
    
51.                 points=[[0,length,0],[length,length,0],[length,0,0],[0,0,0],[length/2,length/2,height]],
    
52.                 faces=[[0,1,4],[1,2,4],[2,3,4],[3,0,4],[3,2,1,0]]
    
53.         );
    
54. }
    
55. module ObCreateHollowPyramid(length, height,thickness)
    
56. {
    
57.         difference()
    
58.         {
    
59.                 ObpCreatePyramid(length, height);
    
60.                 translate([thickness/2,thickness/2,0])
    
61.                 {
    
62.                         ObpCreatePyramid(length-thickness, height-thickness);
    
63.                 }
    
64.         }
    
65. }
    
66. //demo
    
67. translate([30,60,0])
    
68. {
    
69.         ObCreateHollowPyramid(100,100,10);
    
70. }

复制代码