Author Topic: Multi Gears using SETATREF Function and Cell.Result Property  (Read 23360 times)

0 Members and 1 Guest are viewing this topic.

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
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

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #1 on: May 18, 2015, 11:11:50 PM »
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
« Last Edit: May 18, 2015, 11:17:37 PM by JuneTheSecond »
Best Regards,

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

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #2 on: May 20, 2015, 10:35:18 PM »
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

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 4400
  • Ideas Visio-lized into solutions
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #3 on: May 22, 2015, 03:20:30 PM »
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

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #4 on: May 23, 2015, 06:19:20 AM »
Thank you wapperdude.
I have to study more hard.
Best Regards,

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

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #5 on: May 24, 2015, 07:54:18 AM »
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

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 4400
  • Ideas Visio-lized into solutions
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #6 on: May 24, 2015, 03:54:35 PM »
Wow!  The gears mesh perfectly!  Very well done.
Visio 2019 Pro

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #7 on: May 24, 2015, 07:27:22 PM »
Thank you for your suggestion!
And please enjoy another video.
https://youtu.be/h1489pTf5_c
Best Regards,

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

wapperdude

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 4400
  • Ideas Visio-lized into solutions
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #8 on: May 24, 2015, 07:51:11 PM »
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

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #9 on: May 26, 2015, 06:28:12 AM »
I've modified a little the shape of teeth of gears for better looking of gear meshing.
« Last Edit: May 26, 2015, 06:32:25 AM by JuneTheSecond »
Best Regards,

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

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #10 on: May 29, 2015, 01:45:37 AM »
I've made a planetary gear.
Please enjoy a short video in You Tube.
https://youtu.be/kiikmrPeS8I
Best Regards,

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

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #11 on: June 06, 2015, 05:03:17 AM »
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

  • Hero Member
  • *****
  • Posts: 2984
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #12 on: June 06, 2015, 05:36:04 AM »
Sorry, but the only comment that came in my mind is: "You are crazy".
Great job.
Yacine

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #13 on: June 08, 2015, 02:32:06 AM »
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

  • Jr. Member
  • **
  • Posts: 57
Re: Multi Gears using SETATREF Function and Cell.Result Property
« Reply #14 on: November 19, 2015, 09:13:52 PM »
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!