kaan/MCAD-Library
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Intermediate commit

Browse source
This commit is contained in:
Elmom 2010-07-25 18:14:45 +03:00
parent 983b4b7b16
commit 3c1731bc40
1 changed files with 32 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
screw.scad
View file

@ -1,3 +1,5 @@
include <curves.scad>
/* common screw parameter /* common screw parameter
length length
pitch = length/rotations: the distance between the turns of the thread pitch = length/rotations: the distance between the turns of the thread
@ -5,30 +7,48 @@ outside_diameter
inner_diameter: thickness of the shaft inner_diameter: thickness of the shaft
*/ */
module helix(pitch, length){
module helix(pitch, length, slices=500){
rotations = length/pitch;
linear_extrude(height=length, center=false, convexity=10, twist=360*rotations, slices=slices, $fn=100)
child(0);
} }
module auger(pitch, length, outside_diameter, inner_diameter) { module auger(pitch, length, outside_diameter, inner_diameter) {
rotations = length/pitch; union(){
union() { helix(pitch, length)
linear_extrude(height=length, center=false, convexity=10, twist=360*rotations, slices=100, $fn=1000) polygon(points=[[10,10],[100,1],[100,-1],[10,-10]], paths=[[0,1,2,3]]);
polygon(points=[[10,10],[100,1],[100,-1],[10,-10]], paths=[[0,1,2,3]]); cylinder(h=length, r=20);
cylinder(h=length, r=20); }
}
} }
translate([300, 0, 0]) auger(100, 300); translate([300, 0, 0]) auger(100, 300);
module ball_groove(pitch, rotations, diameter, bearing_radius=10) { module ball_groove(pitch, length, diameter, ball_radius=10) {
rotations = length/pitch; helix(pitch, length, slices=100)
linear_extrude(height = 10, center = false, convexity = 10, twist = 360, $fn = 1000)
translate([diameter, 0, 0]) translate([diameter, 0, 0])
circle(r = bearing_radius); circle(r = ball_radius);
} }
ball_groove(100, 300, 10); translate([0, 300, 0]) ball_groove(100, 300, 10);
module ball_groove2(pitch, length, diameter, ball_radius, slices=200){
rotations = length/pitch;
radius=diameter/2;
offset = length/slices;
union(){
for (i = [0:slices]) {
assign (z = i*offset){
translate(helix_curve(pitch, radius, z)) sphere(ball_radius, $fa=5, $fs=1);
}
}
}
}
translate([0, 0, 0]) ball_groove2(100, 300, 100, 10);
module ball_screw(pitch, length, bearing_radius=2) { module ball_screw(pitch, length, bearing_radius=2) {