Here is the version fixed for 64 bits (hopefully, pls check)

Thanks Nikolay,

Do you have the 64 bit version for "Instant Isometrics 7.vsd" too?  Maybe "Instant Isometrics 8.vsd" instead ?

Fixed also (it's the same code).
Attached is "Instant Isometrics 8.vsd"

BTW I think this feature could be a nice addition to VSU, wouldn't it? 

Quote from: Nikolay on July 31, 2024, 05:17:05 PMBTW I think this feature could be a nice addition to VSU, wouldn't it? 

Great idea 👍 

Quote from: Nikolay on July 31, 2024, 05:17:05 PMFixed also (it's the same code).
Attached is "Instant Isometrics 8.vsd"

BTW I think this feature could be a nice addition to VSU, wouldn't it? 

I totally agree.   Did you try it (I mean using the "View Direction... and GO") ?

Yes, tested on local x86 and x64. Seems to work fine for me.
I have dropped a new shape from a stencil, and clicked "GO". The macro properly transformed the shape (group) to isometrics.

From the "technical" point of view, I'm really bad at math, JuneTheSecond is just a genius.
The best I could do is try to port the code to C# to include in the VSU.

I always got the "Something Strange!" pop-up" when I copy shape from the left.

For me it's all good:


You can try to debug, as following:

1. Open the VBA editor (Alt+F11)
2. Comment out the line with error handling, this one (in Module1):

' On Error GoTo ErrHnd 

3. Try again and see where the error happens exactly.

This text "Something Strange" comes up if any error happens, as far as I was able to figure out from the code.

The error handler is located into the CommandButton1_Click()

I'll do some tests and keep you in touch.

Thanks!

The problem is located into Module1, rotate (see line below)
shp.CellsSRC(visSectionFirstComponent + iGeom - 1, iRow, 0).FormulaU = "WIDTH*" & (X(1) * Cos(ang) - Y(1) * Sin(ang) + LocPinX) / Width610

What is the error you get?

I mean, this line by itself is fine; it works for me.
Could be (theoretically): Your language settings (what are they, i.e. what language do you use?) Your Visio version (what is it?). The shape you are dropping (which one do you drop?).. or something else...
Still hard to tell what the problem is

The problem is the "," instead of "." when converting double to string.
After some Replace() it works:

"WIDTH*" & Replace((X(1) * Cos(ang) - Y(1) * Sin(ang) + LocPinX) / Width, ",", ".")

Working fine now... I'll remember that one.

Thanks for your help (and others too).

This "." vs "," and ";" vs "," is really annoying. Half of the world is using "." and another half ","

It is sad you need to watch out for that stuff all the time...
Most code is jut not tested with different locale.

Something to take a notice of when porting to C# for VSU 

Anyway - an easy fix is just change that "." to "," in your local language settings.
Or set the system to a different language (German or Japanese - take a pick?) 

Another one to keep in mind.

Thanks Nikolay.