Multi Gears using SETATREF Function and Cell.Result Property

Started by JuneTheSecond, May 17, 2015, 10:45:15 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

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

Best Regards,

Junichi Yoda
http://june.minibird.jp/

JuneTheSecond

#1
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
Best Regards,

Junichi Yoda
http://june.minibird.jp/

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.




Best Regards,

Junichi Yoda
http://june.minibird.jp/

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
Visio 2019 Pro

JuneTheSecond

Best Regards,

Junichi Yoda
http://june.minibird.jp/

JuneTheSecond

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

Junichi Yoda
http://june.minibird.jp/

wapperdude

Visio 2019 Pro

JuneTheSecond

Best Regards,

Junichi Yoda
http://june.minibird.jp/

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
Visio 2019 Pro

JuneTheSecond

#9
I've modified a little the shape of teeth of gears for better looking of gear meshing.
Best Regards,

Junichi Yoda
http://june.minibird.jp/

JuneTheSecond

Best Regards,

Junichi Yoda
http://june.minibird.jp/

JuneTheSecond

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

Junichi Yoda
http://june.minibird.jp/

Yacine

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

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.

Best Regards,

Junichi Yoda
http://june.minibird.jp/

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!