Rev Author Line No. Line
4442 jacho 1 /*
2 * polyScrewThread_r1.scad by aubenc @ Thingiverse
3 *
4 * This script contains the library modules that can be used to generate
5 * threaded rods, screws and nuts.
6 *
7 * http://www.thingiverse.com/thing:8796
8 *
9 * CC Public Domain
10 */
11  
12 module screw_thread(od,st,lf0,lt,rs,cs)
13 {
14 or=od/2;
15 ir=or-st/2*cos(lf0)/sin(lf0);
16 pf=2*PI*or;
17 sn=floor(pf/rs);
18 lfxy=360/sn;
19 ttn=round(lt/st+1);
20 zt=st/sn;
21  
22 intersection()
23 {
24 if (cs >= -1)
25 {
26 thread_shape(cs,lt,or,ir,sn,st);
27 }
28  
29 full_thread(ttn,st,sn,zt,lfxy,or,ir);
30 }
31 }
32  
33 module hex_nut(df,hg,sth,clf,cod,crs)
34 {
35  
36 difference()
37 {
38 hex_head(hg,df);
39  
40 hex_countersink_ends(sth/2,cod,clf,crs,hg);
41  
42 screw_thread(cod,sth,clf,hg,crs,-2);
43 }
44 }
45  
46  
47 module hex_screw(od,st,lf0,lt,rs,cs,df,hg,ntl,ntd)
48 {
49 ntr=od/2-(st/2)*cos(lf0)/sin(lf0);
50  
51 union()
52 {
53 hex_head(hg,df);
54  
55 translate([0,0,hg])
56 if ( ntl == 0 )
57 {
58 cylinder(h=0.01, r=ntr, center=true);
59 }
60 else
61 {
62 if ( ntd == -1 )
63 {
64 cylinder(h=ntl+0.01, r=ntr, $fn=floor(od*PI/rs), center=false);
65 }
66 else if ( ntd == 0 )
67 {
68 union()
69 {
70 cylinder(h=ntl-st/2,
71 r=od/2, $fn=floor(od*PI/rs), center=false);
72  
73 translate([0,0,ntl-st/2])
74 cylinder(h=st/2,
75 r1=od/2, r2=ntr,
76 $fn=floor(od*PI/rs), center=false);
77 }
78 }
79 else
80 {
81 cylinder(h=ntl, r=ntd/2, $fn=ntd*PI/rs, center=false);
82 }
83 }
84  
85 translate([0,0,ntl+hg]) screw_thread(od,st,lf0,lt,rs,cs);
86 }
87 }
88  
89 module hex_screw_0(od,st,lf0,lt,rs,cs,df,hg,ntl,ntd)
90 {
91 ntr=od/2-(st/2)*cos(lf0)/sin(lf0);
92  
93 union()
94 {
95 hex_head_0(hg,df);
96  
97 translate([0,0,hg])
98 if ( ntl == 0 )
99 {
100 cylinder(h=0.01, r=ntr, center=true);
101 }
102 else
103 {
104 if ( ntd == -1 )
105 {
106 cylinder(h=ntl+0.01, r=ntr, $fn=floor(od*PI/rs), center=false);
107 }
108 else if ( ntd == 0 )
109 {
110 union()
111 {
112 cylinder(h=ntl-st/2,
113 r=od/2, $fn=floor(od*PI/rs), center=false);
114  
115 translate([0,0,ntl-st/2])
116 cylinder(h=st/2,
117 r1=od/2, r2=ntr,
118 $fn=floor(od*PI/rs), center=false);
119 }
120 }
121 else
122 {
123 cylinder(h=ntl, r=ntd/2, $fn=ntd*PI/rs, center=false);
124 }
125 }
126  
127 translate([0,0,ntl+hg]) screw_thread(od,st,lf0,lt,rs,cs);
128 }
129 }
130  
131 module thread_shape(cs,lt,or,ir,sn,st)
132 {
133 if ( cs == 0 )
134 {
135 cylinder(h=lt, r=or, $fn=sn, center=false);
136 }
137 else
138 {
139 union()
140 {
141 translate([0,0,st/2])
142 cylinder(h=lt-st+0.005, r=or, $fn=sn, center=false);
143  
144 if ( cs == -1 || cs == 2 )
145 {
146 cylinder(h=st/2, r1=ir, r2=or, $fn=sn, center=false);
147 }
148 else
149 {
150 cylinder(h=st/2, r=or, $fn=sn, center=false);
151 }
152  
153 translate([0,0,lt-st/2])
154 if ( cs == 1 || cs == 2 )
155 {
156 cylinder(h=st/2, r1=or, r2=ir, $fn=sn, center=false);
157 }
158 else
159 {
160 cylinder(h=st/2, r=or, $fn=sn, center=false);
161 }
162 }
163 }
164 }
165  
166 module full_thread(ttn,st,sn,zt,lfxy,or,ir)
167 {
168 if(ir >= 0.2)
169 {
170 for(i=[0:ttn-1])
171 {
172 for(j=[0:sn-1])
173 assign( pt = [ [0, 0, i*st-st ],
174 [ir*cos(j*lfxy), ir*sin(j*lfxy), i*st+j*zt-st ],
175 [ir*cos((j+1)*lfxy), ir*sin((j+1)*lfxy), i*st+(j+1)*zt-st ],
176 [0,0,i*st],
177 [or*cos(j*lfxy), or*sin(j*lfxy), i*st+j*zt-st/2 ],
178 [or*cos((j+1)*lfxy), or*sin((j+1)*lfxy), i*st+(j+1)*zt-st/2 ],
179 [ir*cos(j*lfxy), ir*sin(j*lfxy), i*st+j*zt ],
180 [ir*cos((j+1)*lfxy), ir*sin((j+1)*lfxy), i*st+(j+1)*zt ],
181 [0, 0, i*st+st ] ])
182 {
183 polyhedron(points=pt,
184 triangles=[ [1,0,3],[1,3,6],[6,3,8],[1,6,4],
185 [0,1,2],[1,4,2],[2,4,5],[5,4,6],[5,6,7],[7,6,8],
186 [7,8,3],[0,2,3],[3,2,7],[7,2,5] ]);
187 }
188 }
189 }
190 else
191 {
192 echo("Step Degrees too agresive, the thread will not be made!!");
193 echo("Try to increase de value for the degrees and/or...");
194 echo(" decrease the pitch value and/or...");
195 echo(" increase the outer diameter value.");
196 }
197 }
198  
199 module hex_head(hg,df)
200 {
201 rd0=df/2/sin(60);
202 x0=0; x1=df/2; x2=x1+hg/2;
203 y0=0; y1=hg/2; y2=hg;
204  
205 intersection()
206 {
207 cylinder(h=hg, r=rd0, $fn=6, center=false);
208  
209 rotate_extrude(convexity=10, $fn=6*round(df*PI/6/0.5))
210 polygon([ [x0,y0],[x1,y0],[x2,y1],[x1,y2],[x0,y2] ]);
211 }
212 }
213  
214 module hex_head_0(hg,df)
215 {
216 cylinder(h=hg, r=df/2/sin(60), $fn=6, center=false);
217 }
218  
219 module hex_countersink_ends(chg,cod,clf,crs,hg)
220 {
221 translate([0,0,-0.1])
222 cylinder(h=chg+0.01,
223 r1=cod/2,
224 r2=cod/2-(chg+0.1)*cos(clf)/sin(clf),
225 $fn=floor(cod*PI/crs), center=false);
226  
227 translate([0,0,hg-chg+0.1])
228 cylinder(h=chg+0.01,
229 r1=cod/2-(chg+0.1)*cos(clf)/sin(clf),
230 r2=cod/2,
231 $fn=floor(cod*PI/crs), center=false);
232 }
233