M
Michael J. Carter
I downloaded the Exchange MSA guide [1] and played around with the Visio
document.
It includes a shape called "-30 Deg Bus". When you right click on the shape,
the context menu has an option to swith 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.
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
document.
It includes a shape called "-30 Deg Bus". When you right click on the shape,
the context menu has an option to swith 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.
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