3D Rotation Shapes in Visio 2007 or 2010

[JuneTheSecond]

Here are shapes that can rotate like in 3D space.
Select a shape on drawing page, slide vertical and holizontal controll points.
They rotate in both Visio 2007 and Visio 2010.
They are almost same as in Visio 2013 issue.
New shapes are color cube and rectangle with round corner.
They do not rotate in Visio 2003,
because I used EVALCELL function and ARG function
in many cells that Visio 2003 does not support.
Colors of the color cube can be changed with Visio fill menu.
The radius of round corner can be changed in the shape data table.
The curve of corner is elipticalarc.
For me the culculation of ellipticalarc is not easy,
and then it will twists at certain angles when perspective angle
is not zero. When twisted, you can adjust the arc by changing
the aspect ratio of the arc.

[Paul Herber]

Amazing, Junichi, just amazing.

[cliff50]

  Fantastic June,  can't wait to download it  and take it for a "spin " pardon my pun     not having seen 2013    I am thinking it must have shapes that act very similar as you suggested. 

 The eliptical arc problem I am having trouble with.  it seems to me that visio have an in built function in the  ( my memory is being taxed here)  a b c d cells of shape geometry row -> elipticalarcto  which accepts parameters from other cells within the shapesheet

[JuneTheSecond]

Now, the elliptical arc does not twist.
I've got calculation for cells C and D,
 correct angle and aspect rario.
Rotate shapes with control points
holizontal and vertical.
Please enjoy.

[JuneTheSecond]

And here is 3D rectangle with 4 round corners.

[cliff50]

  awesome Junichi ....  my compliments to the chef 

[JuneTheSecond]

If you take extremely wide perspective angle, the corner arc twists.
It is because the angle and aspect ratio are regarded as the same for all corner arcs.
But it is approximate assumption.

Here is improved rectangle with 4 corners.
Improved shape has arcs that have different angle and aspect ratio.
Arc does not twist when in 140 degrees in perspective angle.
However, improved shape requires 4 times as much data in the shape sheet.
Which do you like best?

[JuneTheSecond]

Now I am adding 3D shapes with various color faces.
I am starting with convexed type figures, as the treatment for hidden surface is relatively simple.
But for concaved type figures like a star, I have not yet found any simple way.

[JuneTheSecond]

I've got an idea for the star shape.
Each edge has multiple faces that have different z-order.
Just one of the faces is turned visible in any rotation angle.
For star shape each edge has only 2 faces,
one is shown in 0-180 degrees in y-direction angle,
another is shown in 180-360 degrees.
I am going to try for other types of shapes.

[cliff50]

Hi Junichi, for my  curiosity ...are you using the formula ->  IF(User.IsPerspective,User.ep7,User.eo7) in the Geometry10.NoFill as a trigger to determine if the "concave" surface is visiable or not ?

Are the coloured rectangles, seperate 2D shapes which are attached to the "concave" areas of the star framework ?

Cheers Cliff

[JuneTheSecond]

IF(User.IsPerspective,User.ep7,User.eo7)
is checking only a flat plane is visible or invisible
from the viewpoint.
Separate 2 sheets of rectangle are atattched to Geometry10.
Each has the prefixed z-order so that it may be visible under or above other geometry's rectangle.
One of them has correct z-order, if the rotation angle to y-direction is from o to 180 degrees.
Another has z-order for 180 to 360 degrees.
One of them has the formula in Geometry1.NoShow 
OR(Sheet.1!Geometry10.NoFill,Sheet.1!User.North).
Another has
OR(Sheet.1!Geometry10.NoFill,Sheet.1!User.North).
If one is visible, another is not visible.

[JuneTheSecond]

I made a macro to generate 3D rotatable color shapes from Visio shape.
It has 3 options, convex, star and concave.
In option convex it automatically generates 3D shapes.
In other options you need to adjust z-order of the faces once.
Once you adjust z-order generated shapes always rotate normally.
The color of faces are automatically generated by Visio random function.
You can change each face color with Visio fill color menu.

Attatched Visio drawing has many various 3D shapes generated with this macro.

Please, enjoy creating your own 3D shapes.

[JuneTheSecond]

Here are Shapes generated from Polygons with Visio Guy’s Polygon Maker.
http://www.visguy.com/2006/11/24/polygon-maker/

[JuneTheSecond]

And here is a 20 teeth gear.

[JuneTheSecond]

The macro is improved for more complicated concave polygons.