The Smell of Molten Projects in the Morning

Ed Nisley's Blog: Shop notes, electronics, firmware, machinery, 3D printing, laser cuttery, and curiosities. Contents: 100% human thinking, 0% AI slop.

Tag: CNC

Making parts with mathematics

  • Canon NB-5L Battery Dimensions

    Having acquired a bunch of cheap batteries from the usual eBay suppliers for my new Canon SX230HS pocket camera, it’d be nice to measure their actual (and undoubtedly pathetic) capacity, which implies the need for a holder to make firm contact with the terminals. Sounds like a 3D printer might come in handy for that, doesn’t it?

    The first step: measure the dimensions of actual batteries:

    NB-5L Battery Dimensions
    NB-5L Battery Dimensions

    The terminals lie on what looks to be hard 1/8 inch centers, which must be pure coincidence. They’re recessed anywhere from 0.75 mm to 1.0 mm, depending on who made the thing, into the battery’s endplate.

    The Canon charger has three spring-loaded bent-wire contacts, arranged so the (-) terminal touches first as the battery slides into the holder, then (+), and finally the thermistor (T), with about 0.5 mm between each pair. That spring loading provides enough force to hold the battery in the charger.

    FWIW, the thermistor is 7.5 kΩ w.r.t. (-) at room temperature.

    The plan so far: use three big old gold-plated terminal pins as contacts, with flexible wires to a PowerPole connector that matches the battery tester. Cross-drill the pins to fit music wire lever springs, because the contact spacing is smaller than the smallest coil springs in the Big Box o’ Little Springs. I only need two terminals, so maybe I can force-fit a pair of small coil springs in there, which would be nice.

  • Stepper Dynamometer: Sync Wheel

    This is a modification of that sync gadget to work on the prototype stepper dynamometer. The key differences:

    • The wheel has a notch rather than a flag
    • The opto switch mounts on a sturdy post

    The wheel fits the shaft with a 4-40 setscrew to hold it in place. The post has 4-40 mounting holes for one of those optical switches, plus a big hole for the wiring. The solid models look about like you’d expect:

    Wheel and post solid model
    Wheel and post solid model

    I located the post’s holes on the baseplate with a spindly pair of transfer punches, after transferring the wheel’s centerline by eyeballometric guesstimation:

    Locating holes with transfer punches
    Locating holes with transfer punches

    Then aligned the baseplate on the Sherline, located the holes, and drilled ’em with manual CNC to get the proper spacing:

    Drilling opto switch post holes
    Drilling opto switch post holes

    And then it went together quite smoothly:

    Dyno with sync wheel
    Dyno with sync wheel

    What’s really nice about 3D printing is you can build stuff like this without too much fuss & bother: figure out the solid model, walk gingerly through the software minefield, and (usually) assemble the parts later that day.

    A bit of wiring to power the LED and pull up the phototransistor should do the trick.

    The OpenSCAD code, including a few tweaks that rationalize spacings and sizes and suchlike:

    // Optical Interrupter for stepper dynamometer
    // Suited for low speed demonstrations!
    // Ed Nisley KE4ZNU August 2011
    
    include </home/ed/Thing-O-Matic/lib/MCAD/units.scad>
    include </home/ed/Thing-O-Matic/Useful Sizes.scad>
    
    // Layout options
    
    Layout = "Build";					// Build Show Wheel Switch
    
    //- Extrusion parameters - must match reality!
    //  Print with +2 shells and 3 solid layers
    
    ThreadThick = 0.33;
    ThreadWidth = 2.0 * ThreadThick;
    
    HoleWindage = 0.3;
    
    function IntegerMultiple(Size,Unit) = Unit * ceil(Size / Unit);
    
    Protrusion = 0.1;
    
    //- Wheel dimensions
    
    ShaftDia = (3/8) * inch;
    ShaftHeight = 27.39;					// from motor mount assembly
    
    HubDia = IntegerMultiple(ShaftDia,ThreadWidth) + 15*ThreadWidth;
    HubLength = IntegerMultiple(10.0,ThreadThick);		// total, not added to plate
    
    SetScrewOffset = 2*Tap4_40;
    SetScrewDia = Tap4_40;
    
    WheelRadius = IntegerMultiple(24.0,ThreadWidth);
    WheelThick = IntegerMultiple(1.5,ThreadThick);
    
    CutoutAngle = (2/50)*360;
    CutoutWidth = WheelRadius*tan(CutoutAngle);
    CutoutDepth = 6.0;
    
    echo(str("Wheel radius: ",WheelRadius," dia: ",2*WheelRadius," thick: ",WheelThick));
    echo(str("Hub sidewall:",(HubDia - ShaftDia)/2));
    echo(str("Cutout width: ",CutoutWidth," angle: ",CutoutAngle," depth: ",CutoutDepth));
    
    //- Optical switch dimensions
    
    OSBaseLength = (31/32) * inch;
    OSBaseWidth = (1/4) * inch;
    OSBaseThick = 0.100 * inch;
    
    OSLeadSpace = 0.300 * inch;							// leads fit though this opening
    
    OSHolesOC = (3/4) * inch;							// switch mounting holes
    OSHoleDia = Tap4_40;
    
    SwHeight = IntegerMultiple((ShaftHeight + OSBaseWidth),ThreadThick);
    SwWidth = IntegerMultiple(OSBaseLength,ThreadWidth);
    SwThick = IntegerMultiple(OSBaseWidth,ThreadWidth);
    
    SwBaseWidth = 4*SwThick;							// pillar base width
    SwBaseOC = IntegerMultiple(2.5*SwThick,1.0);		// base screw spacing
    
    echo(str("Pillar height: ",SwHeight," width: ",SwWidth," thick: ",SwThick));
    echo(str("       base screws: ",SwBaseOC," OC"));
    
    //----------------------
    // Useful routines
    
    module PolyCyl(Dia,Height,ForceSides=0) {			// based on nophead's polyholes
    
      Sides = (ForceSides != 0) ? ForceSides : (ceil(Dia) + 2);
    
      FixDia = Dia / cos(180/Sides);
    
      cylinder(r=(FixDia + HoleWindage)/2,
               h=Height,
    	   $fn=Sides);
    }
    
    module ShowPegGrid(Space = 10.0,Size = 1.0) {
    
      Range = floor(50 / Space);
    
    	for (x=[-Range:Range])
    	  for (y=[-Range:Range])
    		translate([x*Space,y*Space,Size/2])
    		  %cube(Size,center=true);
    
    }
    
    module Sector(OutR,InR,Thick,Angle) {
    
      difference() {
    	cylinder(r=OutR,h=Thick);
    	cylinder(r=InR,h=Thick);
    
    	rotate([0,0,CutoutAngle/2])
    	  translate([0,OutR,Thick/2])
    		cube([OutR*2,OutR*2,Thick],center=true);
    	rotate([0,0,-CutoutAngle/2])
    	  translate([0,-OutR,Thick/2])
    		cube([OutR*2,OutR*2,Thick],center=true);
      }
    }
    
    //-- Interrupter Wheel
    
    module Wheel() {
    
      difference() {
    	union() {
    	  cylinder(r=WheelRadius,h=WheelThick);			// base plate
    	  cylinder(r=HubDia/2,h=HubLength);				// hub
    	}
    
    	translate([0,0,-Protrusion])						// shaft hole
    	  PolyCyl(ShaftDia,(HubLength + 2*Protrusion));
    
    	translate([0,0,(HubLength - SetScrewOffset)])
    	  rotate([0,270,0])
    		PolyCyl(SetScrewDia,HubDia);
    
    	translate([0,0,-Protrusion])						// sector cutout
    	  Sector((WheelRadius + Protrusion),
    			(WheelRadius - CutoutDepth),
    			(WheelThick + 2*Protrusion),
    			CutoutAngle);
      }
    
    }
    
    //-- Optical Switch Mount
    
    module SwitchMount() {
    
      difference() {
    	union() {											// mounting pillar
    	  translate([0,0,SwHeight/2])
    		cube([SwThick,SwWidth,SwHeight],center=true);
    	  translate([0,0,SwThick/2])
    		cube([SwBaseWidth,SwWidth,SwThick],center=true);
    	}
    
    	translate([0,0,ShaftHeight]) {
    	  translate([-(SwThick/2 + Protrusion),0,0])		// lead clearance slot
    		rotate([0,90,0])
    		  scale([(OSBaseWidth/OSLeadSpace),1,1])
    			PolyCyl(OSLeadSpace,(SwThick + 2*Protrusion));
    
    	  for (y=[-1,1])									// switch screws
    		translate([0,(y*OSHolesOC/2),0])
    		  rotate([0,90,0])
    			cylinder(r=Tap4_40/2,h=(SwThick + 2*Protrusion),center=true,$fn=6);
    	}
    
    	for (x=[-1,1])										// base screws
    	  translate([(x*SwBaseOC/2),0,-Protrusion])
    		rotate([0,0,(x-1)*90])							// get points outward
    		  PolyCyl(Clear4_40,(SwThick + 2*Protrusion));
      }
    
    }
    
    //-------------------
    // Build it!
    
    ShowPegGrid();
    
    if (Layout == "Build") {
      translate([0,WheelRadius,0])
    	Wheel();
      translate([0,-SwWidth,0])
    	SwitchMount();
    }
    
    if (Layout == "Wheel")
      Wheel();
    
    if (Layout == "Switch")
      SwitchMount();
    
    if (Layout == "Show") {
      translate([0,WheelThick/2,ShaftHeight])
    	rotate([90,0,0])
    	  Wheel();
      translate([(WheelRadius + OSBaseThick + SwThick/2),0,0])
    	SwitchMount();
    }
    

    The sizes differ slightly from the photos, but you’d never see the difference.

  • OpenSCAD vs. Skeinforge 40: Bogus G-Code

    My first pass at the NEMA 17 motor mount bracket used additive modeling, glomming together several blocks made from cube primitives:

    • The motor mounting plate, less five holes
    • Two side struts to stiffen the motor plate
    • The baseplate, minus two mounting holes

    Makes perfect sense to me; perhaps I’m an additive kind of guy. That produced an OpenSCAD model with positive surfaces for the various parts and negative surfaces inside the holes:

    NEMA 17 Mount - additive model
    NEMA 17 Mount – additive model

    Compile that through CGAL, export as STL, inhale into RepG 25, and you (well, I) get what looks to be a fine object in the preview pane:

    NEMA 17 RepG preview - additive
    NEMA 17 RepG preview – additive

    Then run it through Skeinforge 40, which emits a flurry of messages along these lines:

    [19:11:08] Warning, the triangle mesh slice intersects itself in getLoopsFromCorrectMesh in triangle_mesh.
    [19:11:08] Something will still be printed, but there is no guarantee that it will be the correct shape.
    [19:11:08] Once the gcode is saved, you should check over the layer with a z of:
    [19:11:09] 0.165
    

    The usual searching suggested that sometimes Skeinforge has problems with coincident surfaces, such as between the motor mount plate and the struts and the base, or coincident edges where two blocks abut. Judging from the messages, the problem ran all the way to the top of the struts. Oddly, Skeinview didn’t show any problems, so the G-Code was (presumably) OK.

    Error messages tend to make me twitchy, though. I modified the OpenSCAD code to extend the struts 0.1 mm inside the base and ran that model through the software stack, which produced not a single complaint about anything, anywhere.

    Success!

    However, painful experience has caused me to review the G-Code for every single object with the Skeinlayer plugin, which, right on cue, revealed this interesting anomaly:

    NEMA 17 Mount - Skeinview - Bad gcode
    NEMA 17 Mount – Skeinview – Bad gcode

    That happened for every layer in the square motor mount plate: the lower right corner is fine, the upper left seems to be the negative of the actual solid model. The holes are filled, the plate is empty. The Skirt outline ignores the smaller holes, goes around the large one, and continues on its merry way.

    I putzed around for a while and discovered that the failure seems acutely sensitive to the side strut thickness. Yeah, like that makes any sense.

    Any variations along those lines that I tried generated either:

    • A flurry of mesh error messages, with seemingly good G-Code
    • No error messages whatsoever, with totally bogus G-Code

    Running the STL files through netfabb Cloud Service produced the same diagnostic for both:

    Number of holes: 3
    Number of shells: 2
    Mesh is not manifold and oriented.
     We unfortunately have not yet enough experience with the occuring server loads, that we can securely enable shell merging at the moment.
    

    However, the repaired STL files produce correct G-Code: evidently OpenSCAD spits out bogus STL data. The fact that RepG/SF treats the two files differently suggests improved diagnostics would be in order, but that’s in the nature of fine tuning.

    So I junked the additive model and went subtractive, chewing the recesses out of one huge block:

    NEMA 17 Stepper Mount - solid model
    NEMA 17 Stepper Mount – solid model

    That worked:

    Number of holes: 0
    Number of shells: 1
    Mesh is manifold and oriented.
    

    I like processes that don’t emit error messages or result in mysterious failures, although it’s not obvious that subtractive modeling will always produce correct results. Heck, I’m not sure I can think in terms of negative volumes all that well.

    The OpenSCAD code for the additive model, with a highlight on the conditional that will trigger the two errors:

    // NEMA 17 stepper motor mount
    // Ed Nisley KE4ZNU August 2011
    
    include </home/ed/Thing-O-Matic/lib/MCAD/units.scad>
    
    //-- Layout Control
    
    Layout = "Build";				// Build Show None
    
    Examine = "None";				// Mount Stand None
    
    //-- Extrusion parameters
    
    ThreadThick = 0.33;
    ThreadWT = 2.0;
    ThreadWidth = ThreadThick * ThreadWT;
    
    HoleWindage = 0.3;			// enlarge hole dia by this amount
    
    function IntegerMultiple(Size,Unit) = Unit * ceil(Size / Unit);
    
    //-- Useful sizes
    
    Tap2_56 = 0.070 * inch;
    Clear2_56 = 0.082 * inch;
    Head2_56 = 0.156 * inch;
    Head2_56Thick = 0.055 * inch;
    Nut2_56Dia = 0.204 * inch;
    Nut2_56Thick = 0.065 * inch;
    
    Tap3_48 = 0.079 * inch;
    Clear3_48 = 0.096 * inch;
    Head3_48 = 0.184 * inch;
    Head3_48Thick = 0.058 * inch;
    Nut3_48Dia = 0.201 * inch;
    Nut3_48Thick = 0.073 * inch;
    
    Tap4_40 = 0.089 * inch;
    Clear4_40 = 0.110 * inch;
    Head4_40 = 0.211 * inch;
    Head4_40Thick = 0.065 * inch;
    Nut4_40Dia = 0.228 * inch;
    Nut4_40Thick = 0.086 * inch;
    
    Tap10_32 = 0.159 * inch;
    Clear10_32 = 0.190 * inch;
    Head10_32 = 0.373 * inch;
    Head10_32Thick = 0.110 * inch;
    Nut10_32Dia = 0.433 * inch;
    Nut10_32Thick = 0.130 * inch;
    
    NEMA17_ShaftDia = 5.0;
    NEMA17_ShaftLength = 24.0;
    NEMA17_PilotDia = 0.866 * inch;
    NEMA17_PilotLength = 0.080 * inch;
    NEMA17_BCD = 1.725 * inch;
    NEMA17_BoltDia = 3.5;
    NEMA17_BoltOC = 1.220 * inch;
    
    //-- Mount Sizes
    
    MountSide = IntegerMultiple(NEMA17_BCD,ThreadWidth);
    MountThick = IntegerMultiple(8.0,ThreadThick);
    
    MountBoltDia = 3.0;
    
    StrutThick = IntegerMultiple(5.0,ThreadWidth);
    StrutHeight = MountSide;
    
    StandThick = IntegerMultiple(4.0,ThreadWidth);
    
    UprightLength = IntegerMultiple(MountSide + 2*StrutThick,5);
    
    StandBoltAllowance = IntegerMultiple(Head10_32,5);
    StandBoltOC = UprightLength + 2*StandBoltAllowance;
    
    StandLength = IntegerMultiple(StandBoltOC + 2*StandBoltAllowance,ThreadWidth);
    StandWidth = IntegerMultiple(2*StandBoltAllowance,ThreadThick);
    
    echo(str("Stand Base: ",StandLength," x ",StandWidth));
    echo(str("Stand Bolt OC: ",StandBoltOC));
    
    //-- Convenience values
    
    Protrusion = 0.1;		// make holes look good and joints intersect properly
    
    BuildOffset = 3 * ThreadWidth;
    
    //----------------------
    // Useful routines
    
    module PolyCyl(Dia,Height,ForceSides=0) {			// based on nophead's polyholes
    
      Sides = (ForceSides != 0) ? ForceSides : (ceil(Dia) + 2);
    
      FixDia = Dia / cos(180/Sides);
    
      cylinder(r=(FixDia + HoleWindage)/2,
               h=Height,
    	   $fn=Sides);
    }
    
    module ShowPegGrid(Space = 10.0,Size = 1.0) {
    
      Range = floor(50 / Space);
    
    	for (x=[-Range:Range])
    	  for (y=[-Range:Range])
    		translate([x*Space,y*Space,Size/2])
    		  %cube(Size,center=true);
    
    }
    
    //----------------------
    // Motor Mount plate
    
    module MotorMount() {
    
      difference() {
    	translate([0,0,MountThick/2])
    	  cube([MountSide,MountSide,MountThick],center=true);
    if (true) {
    	translate([0,0,-Protrusion])
    	  PolyCyl(NEMA17_PilotDia,(MountThick + 2*Protrusion));
    }
    else {
    	translate([0,0,MountThick - NEMA17_PilotLength])
    	  PolyCyl(NEMA17_PilotDia,(NEMA17_PilotLength + Protrusion));
    	translate([0,0,-Protrusion])
    	  PolyCyl(1.5*NEMA17_ShaftDia,(MountThick + 2*Protrusion));
    }
    	for (x=[-1,1])
    	  for (y=[-1,1])
    		translate([x*NEMA17_BoltOC/2,y*NEMA17_BoltOC/2,-Protrusion])
    		  PolyCyl(MountBoltDia,(MountThick + 2*Protrusion));
      }
    
    }
    
    //----------------------
    // Stand to support the plate
    
    module Stand() {
    
      difference() {
    
    	union() {
    	  translate([0,0,StandThick/2])
    		cube([StandLength,StandWidth,StandThick],center=true);
    	  for (x=[-1,1])						// side support struts
    if (true)	// this causes bizarre negative rendering and a diagonal negative section
    		translate([(x*((MountSide + StrutThick)/2)),0,
    				  (StandThick + StrutHeight/2 - Protrusion/2)])
    		  cube([StrutThick,StandWidth,(StrutHeight + Protrusion)],center=true);
    else	// this generates "triangle slice mesh intersects iself"
    		translate([(x*((MountSide + StrutThick)/2)),0,
    				  (StandThick + StrutHeight/2)])
    		  cube([StrutThick,StandWidth,StrutHeight],center=true);
    	}
    
    	for (x=[-1,1])
    	  translate([x*StandBoltOC/2,0,-Protrusion])
    		PolyCyl(Clear10_32,StandThick + 2*Protrusion);
      }
    }
    
    //----------------------
    // Combined for single build
    
    module Combined() {
    
    //  union() {
    	translate([-MountSide/2,0,0])
    	  MotorMount();
    
    	translate([StandThick,0,StandWidth/2])
    	  rotate([90,0,270])
    		Stand();
    
    //  }
    }
    
    //----------------------
    // Lash everything together
    
    ShowPegGrid();
    
    if (Examine == "Mount")
      MotorMount();
    
    if (Examine == "Stand")
      Stand();
    
    if (Layout == "Build" && Examine == "None") {
      translate([MountSide/2,0,0])
    	Combined();
    }
    
    if ((Layout == "Show") && Examine == "None") {
      translate([-StandWidth/2,0,StandThick])
    	rotate([0,90,0])
    	  Combined();
    }
    

    OpenSCAD depends on CGAL for all the 3D heavy lifting, which puts any STL export problems further upstream.  I suppose I could open Yet Another RepG ticket to get better diagnostics, but the others haven’t gotten much attention so far and I suppose it’s not really their problem anyway.

  • Stepper Dynamometer Mechanics

    Combine two of those mounts with one of those couplers, add two NEMA 17 steppers (the one on the right is that one), slide a baseplate underneath, sprinkle with various screws, and shazam you get a stepper motor dynamometer:

    Stepper Dynamometer
    Stepper Dynamometer

    The baseplate puts the mounts 65 mm apart on the 10-32 screw centers, which is entirely a function of the coupler length, and is easy with manual CNC on the Sherline.

    Changing the motors is straightforward: loosen coupler setscrew, remove base screws, slide motor away from coupler, remove mount screws. Won’t happen that often, methinks.

    The general idea is to drive one stepper with a known current, apply a known resistive load to the other motor’s windings, and then plot torque vs. speed. It won’t be quite that simple, of course, but should produce some interesting data.

     

  • Stepper Motor Shaft Coupler

    This simple cylinder connects two NEMA 17 stepper motors together:

    Stepper Shaft Coupler
    Stepper Shaft Coupler

    It’s quick-and-dirty:

    • Cut 2+ inches of 0.375 drill rod, face both ends
    • Drill #8 = 0.199 inch = 5.06 mm (because #9 = 0.196 inch = 4.98 mm is a bit too snug)
    • Cross-drill #41 in the Sherline (because #43 makes for stiff tapping)
    • Tap 4-40 for the setscrews
    • File off rough edges, run #8 drill through the bore to clean out tapping chips &c

    Now, you probably don’t want to do this in real life, because you want a coupler with a bit of compliance to soak up the inevitable misalignment and dampen the mechanical resonances.

  • NEMA 17 Stepper Motor Mount

    This mount will hold a NEMA 17 stepper firmly in place so I can attach things to the shaft:

    NEMA 17 Mount on build plate
    NEMA 17 Mount on build plate

    The baseplate holes fit 10-32 screws, which work in the plastic sheet that will go below this thing, and the motor mount plate holes fits 3 mm bolts for the motors. Washers under the heads, of course. Build with three additional shells, three solid layers, and 0.25 fill for useful rigidity; the flanges came out completely solid.

    Somewhat to my surprise, this didn’t show any signs of delamination due to the rather low 190 °C extrusion temperature. The flanges aren’t all that massive, though, so perhaps trouble still lies await.

    The OpenSCAD solid model uses subtractive construction, for reasons that I’ll go into later:

    NEMA 17 Stepper Mount - solid model
    NEMA 17 Stepper Mount – solid model

    The OpenSCAD source code:

    // NEMA 17 stepper mount for dynamometer
    // Ed Nisley KE4ZNU August 2011
    
    include </home/ed/Thing-O-Matic/lib/MCAD/units.scad>
    
    //-- Layout Control
    
    Layout = "Build";				// Build Show
    
    //-- Extrusion parameters
    
    ThreadThick = 0.33;
    ThreadWT = 2.0;
    ThreadWidth = ThreadThick * ThreadWT;
    
    HoleWindage = 0.3;			// enlarge hole dia by this amount
    
    function IntegerMultiple(Size,Unit) = Unit * ceil(Size / Unit);
    
    //-- Useful sizes
    
    Tap10_32 = 0.159 * inch;
    Clear10_32 = 0.190 * inch;
    Head10_32 = 0.373 * inch;
    Head10_32Thick = 0.110 * inch;
    Nut10_32Dia = 0.433 * inch;
    Nut10_32Thick = 0.130 * inch;
    
    NEMA17_ShaftDia = 5.0;
    NEMA17_ShaftLength = 24.0;
    NEMA17_PilotDia = 0.866 * inch;
    NEMA17_PilotLength = 0.080 * inch;
    NEMA17_BCD = 1.725 * inch;
    NEMA17_BoltDia = 3.5;
    NEMA17_BoltOC = 1.220 * inch;
    
    //-- Mount Sizes
    
    MountWidth = IntegerMultiple(NEMA17_BCD,ThreadWidth);		// use BCD for motor clearance
    MountThick = IntegerMultiple(8.0,ThreadThick);				// for stiffness
    
    MountBoltDia = 3.0;
    
    StandThick = IntegerMultiple(5.0,ThreadWidth);				// baseplate
    
    StrutThick = IntegerMultiple(4.0,ThreadWidth);				// sides holding motor mount
    
    UprightLength = MountWidth + 2*StrutThick;
    
    StandBoltHead = IntegerMultiple(Head10_32,5);				// bolt head rounded up
    StandBoltOC = IntegerMultiple(UprightLength + 2*StandBoltHead,5);
    
    StandLength = StandBoltOC + 2*StandBoltHead;
    StandWidth = IntegerMultiple(2*StandBoltHead,ThreadThick);
    
    StandBoltClear = (StandLength - UprightLength)/2;			// flat around bolt head
    
    MotorRecess = StandWidth - MountThick;
    
    echo(str("Stand Base: ",StandLength," x ",StandWidth," x ",StandThick));
    echo(str("Stand Bolt OC: ",StandBoltOC));
    echo(str("Strut Thick: ",StrutThick));
    
    //-- Convenience values
    
    Protrusion = 0.1;		// make holes look good and joints intersect properly
    
    BuildOffset = 3 * ThreadWidth;
    
    //----------------------
    // Useful routines
    
    module PolyCyl(Dia,Height,ForceSides=0) {			// based on nophead's polyholes
    
      Sides = (ForceSides != 0) ? ForceSides : (ceil(Dia) + 2);
    
      FixDia = Dia / cos(180/Sides);
    
      cylinder(r=(FixDia + HoleWindage)/2,
               h=Height,
    	   $fn=Sides);
    }
    
    module ShowPegGrid(Space = 10.0,Size = 1.0) {
    
      Range = floor(50 / Space);
    
    	for (x=[-Range:Range])
    	  for (y=[-Range:Range])
    		translate([x*Space,y*Space,Size/2])
    		  %cube(Size,center=true);
    
    }
    
    //----------------------
    // Combined stand and mounting plate
    
    module Combined() {
    
      difference() {
    	translate([StandThick/2,0,StandWidth/2])
    	  cube([(MountWidth + StandThick),StandLength,StandWidth],center=true);
    	translate([-Protrusion/2,0,StandWidth - (MotorRecess - Protrusion)/2])
    	  cube([(MountWidth + Protrusion),MountWidth,(MotorRecess + Protrusion)],center=true);
    	translate([0,0,-Protrusion])				// pilot hole
    	  PolyCyl(NEMA17_PilotDia,(MountThick + 2*Protrusion));
    	for (x=[-1,1])								// motor bolt holes
    	  for (y=[-1,1])
    		translate([x*NEMA17_BoltOC/2,y*NEMA17_BoltOC/2,-Protrusion])
    		  PolyCyl(MountBoltDia,(MountThick + 2*Protrusion));
    	for (y=[-1,1])								// cutouts over bolts
    	  translate([-Protrusion/2,
    				y*((StandLength - StandBoltClear)/2 + Protrusion),
    				StandWidth/2])
    		cube([(MountWidth + Protrusion),
    			 (StandBoltClear + Protrusion),
    			 (StandWidth + 2*Protrusion)],center=true);
    	for (y=[-1,1])								// stand bolt holes
    	  translate([(MountWidth/2 - Protrusion),y*StandBoltOC/2,StandWidth/2])
    		rotate([0,90,0])
    		  PolyCyl(Clear10_32,StandThick + 2*Protrusion,8);
    
      }
    
    }
    
    //----------------------
    // Lash everything together
    
    ShowPegGrid();
    
    if (Layout == "Build") {
      translate([0,0,0])
    	Combined();
    }
    
    if (Layout == "Show") {
      translate([-StandWidth/2,0,(StandThick + MountWidth/2)])
    	rotate([0,90,0])
    	  Combined();
    }
    
  • Thing-O-Matic: Broken G91 Relative Motion

    It would be handy, while doing the fast / coarse home stuff, to switch to G91 relative positioning mode and back off the switches by 2 mm by using a simple G0 X2 Y2 Z-2 that doesn’t depend on knowing the exact coordinates of the endpoint, but it seems relative positioning doesn’t work for any but the most trivial cases.

    After some fiddling, this short routine produces a very fast, very long, fully coordinated XY move to some position in the +X +Y direction at the G1 X2 F100 command after the G91 command sets relative motions; it should move 2 mm away from the X switch. When the machine arrives at the new (unexpected) position, it then does the expected slow 2 mm Y and Z moves:

    G21 (set units to mm)
    G90 (set positioning to absolute)
    (- coarse home axes)
    G162 Z F1000 (home Z to get nozzle out of danger zone)
    G161 Y F4000 (retract Y to get X out of front opening)
    G161 X F4000 (now safe to home X)
    (- back off switches)
    G91
    G1 X2 F100
    G1 Y2 F100
    G1 Z-2 F100
    G90

    I gave up and used an absolute move with hardcoded XYZ coordinates that should be pretty close to the stored values.

    There’s a RepG ticket for that.

    Obviously, I’m going where no other Thing-O-Matic operator has gone before. I do that a lot, don’t I?