box_frame/x-end.scad

   1 // PRUSA iteration3
   2 // X ends
   3 // GNU GPL v3
   4 // Josef Průša <josefprusa@me.com>
   5 // Václav 'ax' Hůla <axtheb@gmail.com>
   6 // http://www.reprap.org/wiki/Prusa_Mendel
   7 // http://github.com/prusajr/PrusaMendel
   8
   9 include <configuration.scad>
  10 use <bushing.scad>
  11 use <inc/bearing-guide.scad>
  12 use <y-drivetrain.scad>
  13
  14 //height and width of the x blocks depend on x smooth rod radius
  15 x_box_height = 52 + 2 * bushing_xy[0];
  16 x_box_width = (bushing_xy[0] <= 4) ? 17.5 : bushing_xy[0] * 2 + 9.5;
  17 echo(x_box_width);
  18 bearing_height = max ((bushing_z[2] > 30 ? x_box_height : (2 * bushing_z[2] + 8)), x_box_height);
  19
  20 module x_end_motor(){
  21
  22     mirror([0, 1, 0]) {
  23
  24         x_end_base([3, 3, min((bushing_xy[0] - 3) * 2, 3), 2], len=42, offset=-5, thru=false);
  25
  26
  27         translate([0, -z_delta - 2, 0]) difference(){
  28             union(){
  29                 intersection() {
  30                     translate([-15, -34, 30]) cube([20, 60, x_box_height], center = true);
  31                     union() {
  32                         translate([-14, -16 + z_delta / 2, 24]) cube_fillet([17.5, 10.5 + z_delta, 55], center = true, vertical=[0, 0, 3, 3], top=[0, 3, 6, 3], $fn=16);
  33                         //lower arm holding outer stepper screw
  34                         translate([-10.25, -34, 9]) intersection(){
  35                             translate([0, 0, -5]) cube_fillet([10, 37, 28], center = true, vertical=[0, 0, 0, 0], top=[0, 3, 5, 3]);
  36                             translate([-10/2, 10, -26]) rotate([45, 0, 0]) cube_fillet([10, 60, 60], radius=2);
  37                         }
  38                     }
  39                 }
  40                 translate([-16, -32, 30.25]) rotate([90, 0, 0])  rotate([0, 90, 0]) nema17(places=[1, 0, 1, 1], h=11);
  41             }
  42
  43             // motor screw holes
  44             translate([21-5, -21-11, 30.25]){
  45                 // belt hole
  46                     translate([-30, 11, -0.25]) cube_fillet([11, 36, 22], vertical=0, top=[0, 1, 0, 1], bottom=[0, 1, 0, 1], center = true, $fn=4);
  47                 //motor mounting holes
  48                 translate([-29.5, 0, 0]) rotate([0, 0, 0])  rotate([0, 90, 0]) nema17(places=[1, 1, 0, 1], holes=true, shadow=5.5, $fn=small_hole_segments, h=8);
  49             }
  50         }
  51         //smooth rod caps
  52         //translate([-22, -10, 0]) cube([17, 2, 15]);
  53         //translate([-22, -10, 45]) cube([17, 2, 10]);
  54     }
  55 }
  56
  57 module x_end_base(vfillet=[3, 3, 3, 3], thru=true, len=40, offset=0){
  58
  59     difference(){
  60         union(){
  61             translate([-10 - bushing_xy[0], -10 + len / 2 + offset, 30]) cube_fillet([x_box_width, len, x_box_height], center=true, vertical=vfillet, top=[5, 3, 5, 3]);
  62
  63             translate([0, 0, 4 - bushing_xy[0]]) {
  64                 //rotate([0, 0, 0]) translate([0, -9.5, 0])
  65                 translate([z_delta, 0, 0]) render(convexity = 5) linear(bushing_z, bearing_height);
  66                 // Nut trap
  67                 translate([-2, 18, 5]) cube_fillet([20, 14, 10], center = true, vertical=[8, 0, 0, 5]);
  68                 //}
  69             }
  70         }
  71         // here are bushings/bearings
  72         translate([z_delta, 0, 4 - bushing_xy[0]]) linear_negative(bushing_z, bearing_height);
  73
  74         // belt hole
  75         translate([-5.5 - 10 + 1.5, 22 - 9 + offset, 30]) cube_fillet([max(idler_width + 2, 11), 55, 27], center = true, vertical=0, top=[0, 1, 0, 1], bottom=[0, 1, 0, 1], $fn=4);
  76
  77         //smooth rods
  78         translate([-10 - bushing_xy[0], offset, 0]) {
  79             if(thru == true){
  80                 translate([0, -11, 6]) rotate([-90, 0, 0]) pushfit_rod(bushing_xy[0] * 2 + 0.2, 50);
  81                 translate([0, -11, xaxis_rod_distance+6]) rotate([-90, 0, 0]) pushfit_rod(bushing_xy[0] * 2 + 0.2, 50);
  82             } else {
  83                 translate([0, -7, 6]) rotate([-90, 0, 0]) pushfit_rod(bushing_xy[0] * 2 + 0.2, 50);
  84                 translate([0, -7, xaxis_rod_distance+6]) rotate([-90, 0, 0]) pushfit_rod(bushing_xy[0] * 2 + 0.2, 50);
  85             }
  86         }
  87         translate([0, 0, 5 - bushing_xy[0]]) {  // m5 nut insert
  88             translate([0, 17, 0]) rotate([0, 0, 10]){
  89                 //rod
  90                 translate([0, 0, -1]) cylinder(h=(4.1 / 2 + 5), r=3, $fn=32);
  91                 //nut
  92                 translate([0, 0, 9]) cylinder(r=4.6, h=14.1, center = true, $fn=6);
  93
  94             }
  95         }
  96     }
  97     //threaded rod
  98     translate([0, 17, 0]) %cylinder(h = 70, r=2.5+0.2);
  99 }
 100
 101 module x_end_idler(){
 102     difference() {
 103         x_end_base(len=48 + z_delta / 3, offset=-10 - z_delta / 3);
 104         // idler hole
 105         translate([-20, -15 - z_delta / 2, 30]) {
 106             rotate([0, 90, 0]) cylinder(r=m4_diameter / 2, h=33, center=true, $fn=small_hole_segments);
 107             translate([15 - 2 * single_wall_width, 0, 0]) rotate([90, 0, 90]) cylinder(r=m4_nut_diameter_horizontal / 2, h=3, $fn=6);
 108
 109         }
 110         translate([-6 - x_box_width, 11, 29.5 - (max(idler_bearing[0], 16) / 2)]) cube([x_box_width + 1, 11, 1.5 + max(idler_bearing[0], 16)]);
 111     }
 112         %translate([-14, -9, 30.5 - (max(idler_bearing[0], 16) / 2)]) x_tensioner();
 113 }
 114
 115 module x_tensioner(len=62, idler_height=max(idler_bearing[0], 16)) {
 116         idlermount(len=len, rod=m4_diameter / 2, idler_height=idler_height, narrow_len=46, narrow_width=idler_width + 2 - single_wall_width);
 117 }
 118
 119
 120 *translate([-40, 0, 4 - bushing_xy[0]]) x_tensioner();
 121 translate([0, -80, 0]) mirror([1, 0, 0]) x_end_idler(thru=true);
 122 translate([-50, 0, 0]) mirror([1, 0, 0]) translate([-50, 0, 0])
 123     x_end_motor();
 124
 125 module pushfit_rod(diameter, length){
 126     cylinder(h = length, r=diameter/2, $fn=30);
 127     translate([0, -diameter/4, length/2]) cube_fillet([diameter, diameter/2, length], vertical = [0, 0, 1, 1], center = true, $fn=4);
 128
 129     translate([0, -diameter/2-1.2, length/2]) cube([diameter - 1, 1, length], center = true);
 130 }
 131
 132 if (idler_bearing[3] == 1) {
 133     translate([-25, -30 - idler_bearing[0] / 2, 0]) {
 134         render() bearing_guide_inner();
 135         translate([idler_bearing[0]+10, 0, 0])
 136             render()bearing_guide_outer();
 137     }
 138 }