Perspective Drawing

[JuneTheSecond]

Thank you very much Vojo.

It was not the gravity of center,
but another one that I don't know the name.
It is represented in the formula.
xo=(xa+xb+xc+xd)/4
yo=(ya+yb+yc+yd)/4
Gravity center of 4-points?
I think this point is the center of ellipse.

[JuneTheSecond]

Hi,

A man who is good in mathatics adviced me to search a counter example.
Then I made an example(image60.jpg and image61.jpg)
that the center of ellipse is 2 mm apart from the center of 4-points.
Now my hypothesis has been rejected.

[JuneTheSecond]

Hi,

This is the shape for perspective view of circle.
The shapesheet version.
The ellipse works on shapesheet, but does not need VBA macro.
The ellipse smoothly follows the move of the frame.
I've applied the technique "Ellipse in Cut Face of Oblique Pyramid".
http://www.geocities.jp/visualcalculation/english/cutfacetwistedpiramid.htm

[Visio Guy]

Hi Junichi,

I was wondering if your 3D stuff uses any new features from Visio 2010?

Very cool work, thanks for sharing with the forum!

[JuneTheSecond]

Hi,

It works on Visio 2007.
You don't need any new feature.
But you need to work hard to build
complicated shapesheet formulas.

[JuneTheSecond]

Hi,

Now, I am trying to make a cylinder in the perspective view.
I have to add manual operations yet.
I need to think of any new idea.    

[JuneTheSecond]

Hi,

Here is a shape of perspective vertical cylinder.
Size and view can be changed with control handles.

If the cylinders are connected to the vanishing points,
perspective view can be changed with arrow keys.

Please select one of the vanishing point and press any arrow key.
If you move vanishing point with mouse, the cylinders break apart.
But if you press any arrow key, they are restored again.

I studied the reason why they behave differently.
And I found the  value of PinY of ellipse cannot be transferred
correctly on mouse move, and found a trick to fix it with SETF function.

But I did not fix it, because the solution is not elegant.

  

[JuneTheSecond]

Here is Visio drawing.

[JuneTheSecond]

Hi,

I fixed the problem with SETF function to force the PinY value in some ellipse shapes, because I could not find any other solution.
Now you can change perspective view with both mouse or arrow keys.

[JuneTheSecond]

Here is Visio drawing. 

[JuneTheSecond]

Hi,

Added oblique cut face cylinders.
They are heavy, because shapesheets are too complicated,and their cells are forced to recalculate with VBA macro.
It is because some of cells do not re-calculate themselves in the shapesheets, when you change the view.  
  

[JuneTheSecond]

Hi,

Changed the view. 

[JuneTheSecond]

Here are holizontal cylinders.  
Moving vanishing points makes changed views.

[JuneTheSecond]

Here are other views without boxes.

[JuneTheSecond]

Here is an example drawing.