Rotating Gears Script

[doughd]

If you go to Vectorworks2009/Extras/Goodies/ you will find documents that have scripts written that allow you to animate 2d objects. Is there a way to animate 3D objects?? If so, how? I'm relatively new at Vectorscript writing.

[mike m oz]

The capabability to animate 3D objects already exists via the AnimationWorks add on: http://www.ozcad.com.au/otherproducts/vwaddonsAW.html

[ccroft]

If you're interested in the code that makes this happen, option-double-click (Alt?...don't know windows) 'Rotate' in the palette.

Most of this is about the dialog. The code that makes the animation is towards the end, after the row of =====, starting with BEGIN: {Maine}

'recordH :=' etc is about retrieving the last used setting of the slider. This value is written to the record 'Gear Record' before the second to last 'END' with SetRField(etc).

REPEAT (and so-forth) UNTIL (and so-on) actually makes the animation happen..

If you already know all this, please forgive me for stating the bloody obvious.

Doing the same in 3D might be slightly more complicated. I don't know since I haven't written much that operates on 3D objects.

Charles