Rev 4543 Rev 4544
1 $fn=40; // model faces resolution. 1 $fn=40; // model faces resolution.
2 include <../configuration.scad> 2 include <../configuration.scad>
3   3  
4 include <AWSCREEN01A_D06.scad> 4 include <AWSCREEN01A_D06.scad>
5 include <polyScrewThread_r1.scad> 5 include <polyScrewThread_r1.scad>
6   6  
7 PI=3.141592; 7 PI=3.141592;
8   8  
9   9  
10   10  
11 module AWSCREEN01A_D05(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,D03_tolerance_zavitu) 11 module AWSCREEN01A_D05(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,D03_tolerance_zavitu)
12 { 12 {
13   13  
14 difference() 14 difference()
15 { 15 {
16   16  
17 union() 17 union()
18 { 18 {
19 //výstuha 19 //výstuha
20 //translate ([0,0,-D03_tloustka_materialu/2]) 20 //translate ([0,0,-D03_tloustka_materialu/2])
21 rotate ([0,-90,0]) 21 rotate ([0,-90,0])
22 linear_extrude (height = D03_tloustka_materialu, convexity = 10) 22 linear_extrude (height = D03_tloustka_materialu, convexity = 10)
23 polygon(points=[[D02_vyska_uchytky/2,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu],[0, D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu],[0,D03_polomer_stitu+D01_material_pred_zavitem],[D01_material_pod_zavitem,D03_polomer_stitu+D01_material_pred_zavitem]]); 23 polygon(points=[[D02_vyska_uchytky/2,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu],[0, D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu],[0,D03_polomer_stitu+D01_material_pred_zavitem],[D01_material_pod_zavitem,D03_polomer_stitu+D01_material_pred_zavitem]]);
24 24
25 25
26 //zavit 26 //zavit
27 translate([0,0,D01_material_pod_zavitem-2]) 27 translate([0,0,D01_material_pod_zavitem-2])
28 screw_thread(S01_prumer_zavitu-2*D03_tolerance_zavitu,4,55,S01_vyska_komponentu_na_lozisko+5,PI/2,2); 28 screw_thread(S01_prumer_zavitu-2*D03_tolerance_zavitu,4,55,S01_vyska_komponentu_na_lozisko+5,PI/2,2);
29   29  
30 30
31 difference() 31 difference()
32 { 32 {
33 //spodní valec 33 //spodní valec
34 translate([0,0,D01_material_pod_zavitem/2]) 34 translate([0,0,D01_material_pod_zavitem/2])
35 cylinder (h = D01_material_pod_zavitem, r=(S01_prumer_zavitu+D01_material_pred_zavitem*2)/2, center = true, $fn=100); 35 cylinder (h = D01_material_pod_zavitem, r=(S01_prumer_zavitu+D01_material_pred_zavitem*2)/2, center = true, $fn=100);
36 36
37 translate([0,0,-4]) 37 translate([0,0,-4])
38 screw_thread(S01_prumer_zavitu-D01_material_za_zavitem,4,55,D01_material_pod_zavitem+8,PI/2,2); 38 screw_thread(S01_prumer_zavitu-2*D01_material_za_zavitem-2*D03_tolerance_zavitu,4,55,D01_material_pod_zavitem+4,PI/2,2);
39   39  
40   40  
41 } 41 }
42   42  
43 //uchyt na tyc 43 //uchyt na tyc
44 translate([0,D01_delka_tyce/2+S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2]) 44 translate([0,D01_delka_tyce/2+S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2])
45 cube([D01_sirka_tyce,D01_delka_tyce,D01_material_pod_zavitem],center=true); 45 cube([D01_sirka_tyce,D01_delka_tyce,D01_material_pod_zavitem],center=true);
46 //uchyt na tyc ovalna cast 46 //uchyt na tyc ovalna cast
47 translate([0,S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2]) 47 translate([0,S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2])
48 cube([D01_sirka_tyce,D01_material_za_zavitem+D01_material_pred_zavitem,D01_material_pod_zavitem],center=true); 48 cube([D01_sirka_tyce,D01_material_za_zavitem+D01_material_pred_zavitem,D01_material_pod_zavitem],center=true);
49 49
50 50
51 //material kolem uchytu na sloupek 51 //material kolem uchytu na sloupek
52 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]) 52 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])
53 difference() 53 difference()
54 { 54 {
55 cube([D01_sirka_tyce,D02_sila_materialu+D02_prumer_obruby/2,D01_material_pod_zavitem],center=true); 55 cube([D01_sirka_tyce,D02_sila_materialu+D02_prumer_obruby/2,D01_material_pod_zavitem],center=true);
56 translate([0,D02_prumer_obruby/2-D02_dotahova_vzdalenost-D02_sila_materialu,0]) 56 translate([0,D02_prumer_obruby/2-D02_dotahova_vzdalenost-D02_sila_materialu,0])
57 cylinder(h=D02_vyska_uchytky+0.01,r=D02_prumer_obruby/2,center=true); 57 cylinder(h=D02_vyska_uchytky+0.01,r=D02_prumer_obruby/2,center=true);
58 58
59 } 59 }
60 60
61   61  
62   62  
63 //uchyt na sloupek 63 //uchyt na sloupek
64 64
65 translate([0,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu+(D02_prumer_obruby)/2,D02_vyska_uchytky/2]) 65 translate([0,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu+(D02_prumer_obruby)/2,D02_vyska_uchytky/2])
66 rotate(a=[0,0,270]) 66 rotate(a=[0,0,270])
67 AWSCREEN01A_D06_2(); 67 AWSCREEN01A_D06_2();
68   68  
69 } 69 }
70   70  
71 //otvor 71 //otvor válcový
72 translate([0,0,D01_material_pod_zavitem-1+S01_vyska_komponentu_na_lozisko/2]) 72 translate([0,0,D01_material_pod_zavitem-1+S01_vyska_komponentu_na_lozisko/2])
73 cylinder (h = S01_vyska_komponentu_na_lozisko+2+0.02, r=(S01_prumer_zavitu-2*D03_tolerance_zavitu-D01_material_za_zavitem)/2, center = true, $fn=100); 73 cylinder (h = S01_vyska_komponentu_na_lozisko+2+0.02, r=(S01_prumer_zavitu-2*D03_tolerance_zavitu-2*D01_material_za_zavitem)/2, center = true, $fn=100);
74   74  
75 //odecet vrchního závitu aby byl rovný 75 //odecet vrchního závitu aby byl rovný
76 translate([0,0,D01_material_pod_zavitem+S01_vyska_komponentu_na_lozisko]) 76 translate([0,0,D01_material_pod_zavitem+S01_vyska_komponentu_na_lozisko])
77   77  
78 cylinder (h = S01_vyska_komponentu_na_lozisko+0.02, r=(S01_prumer_zavitu-2*D03_tolerance_zavitu)/2, $fn=100); 78 cylinder (h = S01_vyska_komponentu_na_lozisko+0.02, r=(S01_prumer_zavitu-2*D03_tolerance_zavitu)/2, $fn=100);
79 } 79
-   80  
-   81 // cube([200,200,200]);
-   82  
-   83 }
80 } 84 }
81 85
82 AWSCREEN01A_D05(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,D03_tolerance_zavitu); 86 AWSCREEN01A_D05(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,D03_tolerance_zavitu);
83   87  
84   88  
85 89
86 90