scad/belt-guide-624.scad

   1 //
   2 // Parametric belt guide for 624, 623 bearings and their ilk.
   3 //
   4
   5 layer_height = 0.3;
   6 hotend_width = 0.5;
   7
   8 wall= hotend_width*3;
   9 clearence= hotend_width/2;
  10
  11 // for 624 bearings:
  12 bearing_d = 13;
  13 bearing_h = 5;
  14 bearing_inside_d = 4;
  15
  16 // for 623 bearings:
  17 //bearing_d = 10;
  18 //bearing_h = 4;
  19 //bearing_inside_d = 3; // hole diameter of the bearing
  20
  21 guide_outer_d = 16.5;
  22 guide_outer_h = 8.7; // total height wanted for the assembled belt guide
  23
  24 module belt_guide_base() {
  25  cylinder(r=guide_outer_d/2, h=guide_outer_h/2, $fn=50);
  26  // outer flange
  27  cylinder(r=guide_outer_d/2+(hotend_width*4), h=3*layer_height, $fn=50);
  28 }
  29
  30 module belt_guide_holes(){
  31  // hole for the bearing:
  32  #translate([0,0,guide_outer_h/2 - bearing_h/2 - layer_height]) cylinder(r=bearing_d/2+clearence, h=bearing_h, $fn=50);
  33  // hole for the rod through:
  34  translate([0,0,-1]) cylinder(r=bearing_d/2-wall, h=10, $fn=50);
  35 }
  36
  37 // Final part
  38 module belt_guide(){
  39  difference(){
  40   belt_guide_base();
  41   belt_guide_holes();
  42  }
  43 }
  44
  45 belt_guide();
  46
  47