Multi Gears using SETATREF Function and Cell.Result Property

[JuneTheSecond]

As an extension of Rack and Pinion in Transfer rotational movement to linear started by Kiler40,
I made an example drawing for gears and trains of gears.
I used SETATREF function in the shapesheet.
And used Cell.Result property in VBA macro to trigger the endless rotation of gears.
It is because Cell.Result property does not destroy SETATREF formula.
Please enjoy an explaining video in YouTube.
https://youtu.be/rQBqloZa7xE

[JuneTheSecond]

I've modified the macro to start rotation of gears.
Now gears are rotating 720 steps when VBA macro runs.
Please enjoy a video in YouTube.
https://youtu.be/nGVQlXBzXr4

[JuneTheSecond]

I've added gear tooth using custom line pattern.
Please enjoy as short video in YouTube.
https://youtu.be/AQf9puRvUp8

The problem is sometimes teeth and teeth do not meet.
I appreciate you suggestion.

[wapperdude]

Hi JuneTheSecond,

Really cool the way the gears interact.

Regarding the gear teeth "meshing", it looks like the pitch of the teeth change with circle diameter.  This will throw off the meshing.  I suspect that the line pattern needs tweaking and use "scaled" property.  I believe that will set a constant pitch between the teeth.

Wapperdude

[JuneTheSecond]

Thank you wapperdude.
I have to study more hard.

[JuneTheSecond]

Thank you wapperdude.
I git gear meshing.
Please enjoy a video in YouTube.
https://youtu.be/XZvXhM5y_IY

[wapperdude]

Wow!  The gears mesh perfectly!  Very well done.

[JuneTheSecond]

Thank you for your suggestion!
And please enjoy another video.
https://youtu.be/h1489pTf5_c

[wapperdude]

Sweet!  Yes, I did enjoy the video.  Very nice Visio development.

Made me chuckle when you typed in 3 teeth for the one gear.  Like, 3 teeth???  Really!?!  But then, watching the animation and how perfectly the teeth meshed, and seeing the effect that 3 teeth had!   This would be a good demonstration video for showing the effect of gearing.  Your table really facilitates changes. 

This is definitely one of my favorites.

Wapperdude

[JuneTheSecond]

I've modified a little the shape of teeth of gears for better looking of gear meshing.

[JuneTheSecond]

I've made a planetary gear.
Please enjoy a short video in You Tube.
https://youtu.be/kiikmrPeS8I

[JuneTheSecond]

Made a new planetary gear. Now outer ring gear is stationary.
Please enjoy a short video in YouTube.
https://youtu.be/9_i19sC1W60

[Yacine]

Sorry, but the only comment that came in my mind is: "You are crazy".
Great job.

[JuneTheSecond]

Thank you  Yacine.

Modified Visio drawing, and added video in YouTube.
https://youtu.be/hGkZpxSACHY
This video explains how to increse the number of planets and how to change number of gears.
Please enjoy.

[Bald Eagle]

Those are really nice gear sets, Mr. Yoda. 

I often (try to) use VISIO to organize my thoughts and make detailed drawings of mechanisms.
Have you thought about developing a curve to accurately reproduce teeth on involute gears?

It would also be interesting to have a readout or label that would show the number of revolutions based upon the gear designated as the drive gear.   

I've only read through a small portion of these forums, and it's always a joy to see your beautiful projects and all of your skill and talent.   Please keep up the good work - it's quite inspiring!