Instant Isometrics

Started by JuneTheSecond, February 19, 2017, 06:33:45 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

JuneTheSecond

A bug that makes twist the shape has been fixed.
If the last row of a geometry section refers to the first row,
the last row moved twice to the new location.

Best Regards,

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

JuneTheSecond

Though this macro is practically quite useless, now I feel it gave me an opportunity to study about elliptical arc and nurbs function deeper than before.
Thank you everybody. :) :) :)
Best Regards,

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

JuneTheSecond

Here is a VBA macro that makes a grouped shapes isometric style, and their shaped examples.
Best Regards,

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

Yacine

Haven't checked if you implemented it yet (sorry for my lazyness), but I think that the isometric angle is very important for implementing a viable flexible solution. In a previous project I used to work with both 0/90/45 and 0/60/60.
As a generalisation one may think of generic "free" angles as well.
Just a thought. Sorry.
Yacine

JuneTheSecond

Thank you, Yacine for your always good advice.
Any way it is a big challenge to me, I shall study more.
Best Regards,

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

JuneTheSecond

Here is another trial VBA macro.
This macro simply convert a one-dimensional shape into two-dimensional shape.
Of course, Visio has a menu to convert a 1-d shape to a 2-d shape.
But this the control frame of the converted shape is also inclined, if 1-d shape is inclined.
In order to stand the frame upright, you have to use Unnion or Joint operation.
But these operations delete all the inner data, such as shape data and user defined data.
My macro escapes it as it does not use joint nor union, but uses my mathematical rotation macro.
The converted 2-d shape has always a frame upright.
Here is a short video that explain how the macro works.
https://youtu.be/dOG0DOhB1w0
   
Best Regards,

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

JuneTheSecond

Here is one more VBA trial example.
This macro rotates all geometries in a Shape.
Also the macro to rotate geometries mathematically is used.
Here is a short video at https://youtu.be/Ir3tGIL0JMk .
Please enjoy.
Best Regards,

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

JuneTheSecond

Here is another trial drawing to rotate geometries in a shape.
And have a short video at
https://youtu.be/5YM4vQZMDfs .

Please, enjoy.
Best Regards,

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

JuneTheSecond

I am sorry my macro has some bugs, and has modified now.
And a new video at https://youtu.be/8RsD5_E1NXQ .
Please, enjoy.
Best Regards,

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

JuneTheSecond

I've changed my Visio into English version .
Visio pro for Office 365.
Then I revised the video now at https://youtu.be/0Jd484xf9Kk .
Please , enjoy.
Best Regards,

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

JuneTheSecond

I have refactored my VBA macro by a set of functions,

Function XRotate(X As Double, Y As Double, ang As Double, LocPinX As Double)
    XRotate = X * Cos(ang) - Y * Sin(ang) + LocPinX
End Function

Function YRotate(X As Double, Y As Double, ang As Double, LocPinY As Double)
    YRotate = X * Sin(ang) + Y * Cos(ang) + LocPinY
End Function

Now, Sin and Cos funtions dissapeared in my macro in other parts.
Best Regards,

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

Gregory Jackson

Is there a 64 Bit version I'm getting an error stating the scripts are fro 32 bit not 64 bit?

JuneTheSecond

Best Regards,

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