Author Topic: Instant Isometrics  (Read 2990 times)

0 Members and 1 Guest are viewing this topic.

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #15 on: April 15, 2017, 03:49:14 PM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #16 on: April 16, 2017, 03:21:57 AM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #17 on: April 20, 2017, 07:24:44 AM »
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

  • Hero Member
  • *****
  • Posts: 2306
Re: Instant Isometrics
« Reply #18 on: April 20, 2017, 07:32:50 AM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #19 on: April 24, 2017, 05:30:51 AM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #20 on: April 24, 2017, 05:53:07 AM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #21 on: April 25, 2017, 06:04:10 AM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #22 on: May 09, 2017, 07:59:40 PM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #23 on: May 10, 2017, 02:33:17 AM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #24 on: May 11, 2017, 07:07:15 PM »
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

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #25 on: May 18, 2017, 06:32:48 AM »
I have refactored my VBA macro by a set of functions,
Code: [Select]
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/

rabalam

  • Jr. Member
  • **
  • Posts: 44
    • Art Empowers WorldWide
Re: Instant Isometrics
« Reply #26 on: October 06, 2017, 05:18:21 PM »
Is there a 64 Bit version I'm getting an error stating the scripts are fro 32 bit not 64 bit?

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 999
    • Visio Shapes, Stencils and Sample Drawings
Re: Instant Isometrics
« Reply #27 on: October 06, 2017, 07:07:47 PM »
No, I have not.
Best Regards,

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