Rev 4440 Rev 4490
Line 1... Line 1...
1 $fn=100; // model faces resolution. 1 $fn=100; // model faces resolution.
2 include <../configuration.scad> 2 include <../configuration.scad>
3   3  
4   4  
5 use <../SRC/polyScrewThread_r1.scad> 5 use <../SRC/polyScrewThread_r1.scad>
6 use <../SRC/WINDGAUGE02A_D02.scad> 6 use <../SRC/WINDGAUGE02A_D01.scad>
7   7  
8   8  
9 PI=3.141592; 9 PI=3.141592;
10   10  
11   11  
12   12  
13 module WINDGAUGE02A_D01(S01_vyska_komponentu_na_lozisko,S01_prumer_zavitu,D01_material_pod_zavitem,D01_material_za_zavitem,D01_material_pred_zavitem,D01_delka_tyce,D01_sirka_tyce,D02_sila_materialu,D02_vyska_uchytky,D02_prumer_obruby,D02_delka_celeho_uchytu,D02_dotahova_vzdalenost,D02_prumer_uchytneho_sroubu) -  
14 { -  
15   13  
16 difference() -  
17 { -  
18   -  
19 union() -  
20 { -  
21 //zavit -  
22 translate([0,0,D01_material_pod_zavitem]) -  
23 screw_thread(S01_prumer_zavitu-0.5,4,55,S01_vyska_komponentu_na_lozisko,PI/2,2); -  
24   -  
25 //spodní valec -  
26 translate([0,0,D01_material_pod_zavitem/2]) -  
27 cylinder (h = D01_material_pod_zavitem, r=(S01_prumer_zavitu+D01_material_pred_zavitem*2)/2, center = true, $fn=100); -  
28   -  
29 //uchyt na tyc -  
30 translate([0,D01_delka_tyce/2+S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2]) -  
31 cube([D01_sirka_tyce,D01_delka_tyce,D01_material_pod_zavitem],center=true); -  
32 //uchyt na tyc ovalna cast -  
33 translate([0,S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2]) -  
34 cube([D01_sirka_tyce,D01_material_za_zavitem+D01_material_pred_zavitem,D01_material_pod_zavitem],center=true); -  
35 -  
36 -  
37 //material kolem uchytu na sloupek -  
38 translate([0,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+(D02_sila_materialu+D02_prumer_obruby/2)/2-D02_dotahova_vzdalenost,D01_material_pod_zavitem/2]) -  
39 difference() -  
40 { -  
41 cube([D01_sirka_tyce,D02_sila_materialu+D02_prumer_obruby/2,D01_material_pod_zavitem],center=true); -  
42 translate([0,D02_prumer_obruby/2-D02_dotahova_vzdalenost-D02_sila_materialu,0]) -  
43 cylinder(h=D02_vyska_uchytky+0.01,r=D02_prumer_obruby/2,center=true); -  
44 -  
45 } -  
46 -  
47   -  
48   -  
49 //uchyt na sloupek -  
50 -  
51 translate([0,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu+(D02_prumer_obruby)/2,D02_vyska_uchytky/2]) -  
52 rotate(a=[0,0,270]) -  
53 WINDGAUGE02A_D02(D02_sila_materialu,D02_vyska_uchytky,D02_prumer_obruby,D02_delka_celeho_uchytu,D02_dotahova_vzdalenost,D02_prumer_uchytneho_sroubu); -  
54   -  
55 } -  
56   -  
57 //otvor -  
58 translate([0,0,(D01_material_pod_zavitem+S01_vyska_komponentu_na_lozisko)/2]) -  
59 cylinder (h = D01_material_pod_zavitem+S01_vyska_komponentu_na_lozisko+0.02, r=(S01_prumer_zavitu-2*D01_material_za_zavitem)/2, center = true, $fn=100); -  
60   -  
61 } -  
62 } -  
63 14
64 WINDGAUGE02A_D01(S01_vyska_komponentu_na_lozisko,S01_prumer_zavitu,D01_material_pod_zavitem,D01_material_za_zavitem,D01_material_pred_zavitem,D01_delka_tyce,D01_sirka_tyce,D02_sila_materialu,D02_vyska_uchytky,D02_prumer_obruby,D02_delka_celeho_uchytu,D02_dotahova_vzdalenost,D02_prumer_uchytneho_sroubu); 15 WINDGAUGE02A_D01();
65   16  
66   17  
67 18
68 19