Actually, Visio 2003 only comes with a handful of 3-d network shapes. You
can find more of them by downloading the Exchange MSA guide [1] and
extracting them from that document.
One interesting item is a shape called "-30 Deg Bus". This is the one they
use to create the nice isometric angled network lines. However, I don't
think it quite works the way it should. For example, when you right click on
the shape, the context menu has an option to switch between 45/90 degree
segments. Unfortunately, these are not the isometric angles you want. It
should be 30/60.
Anyway, I've modified the ShapeSheet formulas for this shape to give you
true 30/60 degree angles. The menu now includes a checkmark instead of
toggling.
I also fixed a couple of other problems as well, such as the line segments
are now relative to left edge, so resizing the shape won't move the
segments. There was another problem with one of the segments only being
visible when it was on the opposite side.
Some things I would like to add is a way to make all line segments the same
length. Also a way to evenly distribute all the line segments.
Anyway, if you would like a copy of this shape, just email me
(
[email protected])
If you're interested in how it works, these are the changes I made.
Actions.Row_1:
Action: =SETF("User.OffsetAngle", 30)
Menu: = "30 deg. Angle"
Checked: =User.OffsetAngle=30
Actions.Row_2:
Action: =SETF("User.OffsetAngle", 60)
Menu: = "60 deg. Angle"
Checked: =User.OffsetAngle=60
Added User-defined Cell:
User.OffsetTan: =TAN(RAD(User.OffsetAngle))
Changed Controls.X Behavior: 2 (Offset from left edge)
Changed Geometry forumulas (repeat for 2 - 9)
LineTo: =GUARD(Geometry2.X1-(Geometry2.Y1/User.OffsetTan))
LineTo: =0
[1]
http://www.microsoft.com/downloads/...22-F6FF-4F66-93A2-86659E900303&displaylang=en