Rev Author Line No. Line
4440 jacho 1 $fn=100; // model faces resolution.
2 include <../configuration.scad>
3  
4  
5 use <../SRC/polyScrewThread_r1.scad>
6 use <../SRC/WINDGAUGE02A_D02.scad>
7  
8  
9 PI=3.141592;
10  
11  
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  
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  
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);
65  
66  
67  
68