A fake Spindle that holds a pen to draw pcb board instead of milling

working video: http://youtu.be/mdT-6VdgRn0

Hardware/Development/Spindle Pen/SpindlePen.scad

@@ -0,0 +1,175 @@
+//By Glen Chung, 2013.
+//Dual licenced under Creative Commons Attribution-Share Alike 3.0 and LGPL2 or later
+
+include <polyScrewThread_r1.scad>
+
+
+$fn=200;
+
+radius=52/2;
+height=100;
+thick=3;
+pen_hole_radius=15/2;
+pen_radius=9.2/2;
+
+
+module spindle_shell(radius, thick, height) {
+  hole_radius = height / 12;
+  difference() {
+    union() {
+      if(1) difference() {
+        cylinder(r=radius, h=height);
+
+        translate([0,0,thick])
+          cylinder(r=radius-thick, h=height+0.1);
+
+        //holes
+        for (angle = [0, 90, 180, 270])
+          rotate([0,0,angle+45])
+            translate([0,0,height/2])
+            scale([1.0,1.0,height/(radius-0)/2])
+            translate([radius-thick,0,0])
+            rotate([-90,0,0])
+            scale([1.5,2,1])
+              sphere(r=hole_radius);
+      }
+      cylinder(r=22/2,h=8);
+    }
+    translate([0,0,-2])
+      spindle_top_screw(pen_hole=11,height=21,with_hole=false);
+
+    for(x=[radius, -radius])
+      for(y=[radius, -radius])
+        translate([x/2,y/2,-1])
+          cylinder(r=2, h=8);
+  }
+}
+
+module spindle_top_screw(pen_hole=10, thick=3, height=18, head_thick=6, with_hole=true) {
+  if(1) difference() {
+    if(1) translate([0,0,-head_thick])
+      hex_screw(pen_hole+2*thick+1,4,55,height,1.5,2,pen_hole+2*thick+4,head_thick,0,0);
+    if(with_hole)
+      translate([0,0,-2+12])
+        cylinder(r=(pen_hole+1)/2, h=height+3);
+  }
+
+  translate([0,0,-2+12])
+    scale([1,1,1.5])
+      difference() {
+        sphere(r=(pen_hole-3)/2);
+
+        translate([0,0,-6])
+          cube([10,10,10],center=true);
+
+        translate([0,0,pen_hole*0.6])
+          cube([pen_hole,pen_hole,pen_hole],center=true);
+      }
+}
+
+module pen_holder_single(thick, width, height) {
+  difference() {
+    translate([-thick,0,0])
+      cube([thick*2, width, height]);
+
+	translate([2*thick,0,0])
+      rotate([0,0,atan((thick/2)/width)])
+        translate([-thick,0,-height/2])
+          cube([thick*2, width*2, height*2]);
+
+	translate([-2*thick,0,0])
+      rotate([0,0,-atan((thick/2)/width)])
+        translate([-thick,0,-height/2])
+          cube([thick*2, width*2, height*2]);
+
+    rotate([-40,0,0])
+      translate([-thick,0,0])
+        cube([thick*2, width*2, height*2]);
+  }
+}
+
+module pen_holder_four(height=60, radius=radius, thick=thick) {
+  difference() {
+    for(angle = [0, 90, 180, 270])
+      rotate([0,0,angle])
+        translate([0,-(radius-thick/2),0])
+          rotate([0,0,-atan((pen_radius+0.4)/(radius-thick))])
+            pen_holder_single(thick*0.8, radius, height);
+
+    cylinder(r=pen_radius, h=150);
+  }
+}
+
+module probe_holder()
+{
+  height = 20;
+  probe_radius = 2/2;
+  probe_hole_radius = probe_radius + 0.8/2;
+  difference() {
+    union(){
+      difference() {
+        cylinder(r=pen_radius+thick, h=height);
+	    translate([0,0,-thick/2])
+          cylinder(r=pen_radius-0.05, h=height+thick);
+		translate([-(pen_radius+thick),0,height])
+		  scale([1.6,4,1.5])
+            sphere(r=pen_radius+thick);
+      }
+      translate([pen_radius+5, 0, 0])
+      {
+        difference(){
+          cylinder(r=probe_hole_radius+2.2, h=height);
+          translate([0,0,-thick/2])
+            cylinder(r=probe_hole_radius, h=height+thick);
+	    }
+      }
+    }
+    translate([pen_radius+5*2, 0 , height/2])
+	  scale([2,4,1.8])
+        sphere(r=(probe_hole_radius+2));
+	translate([-10,-pen_radius/2,-1])
+	  cube([10, pen_radius, height]);
+	translate([pen_radius+5, -probe_hole_radius*.8, height/2])
+	  cube([10, probe_hole_radius*1.6, height]);
+  }
+  translate([20, 0, 0])
+  difference() {
+    cylinder(r=probe_radius+2.2, h=6);
+	translate([0,0,2])
+      cylinder(r=probe_radius, h=6);
+	translate([0,-probe_radius/2, 2])
+	  cube([10, probe_radius, height]);
+  }
+}
+
+module pen_holder() {
+  difference() {
+    union() {
+      spindle_shell(radius, thick, height);
+
+      translate([40, 0, 6])
+        spindle_top_screw(head_thick=6);
+
+      translate([0,0,height-90])
+        pen_holder_four(height=90);
+
+      //pen
+      if(0) translate([0,0,16])
+        cylinder(r=pen_radius, h=135);
+    }
+    if(0) translate([0,0,-1]) cube([radius*2,radius*2,height+2]);
+
+    for(angle = [0, 180])
+      rotate([0,0,angle])
+        rotate([0,0,-atan((pen_radius+0.4)/(radius-thick))])
+          translate([-thick,2.5*thick,height-15])
+            cube([radius+2*thick,radius,radius]);
+  }
+}
+
+pen_holder();
+
+translate([-60,0,0])
+  probe_holder();
+
+