Problem

Any VBA to rotate text placed at arbitrary angle back to 0 or 90 degree?
Can text that is placed at an arbitrary angle be easily rotated (via
command or key-in) to sit at 0 or 90 degrees to match other text placed
horizontally, without having to delete it and then re-entering it.

Product: MicroStation V8i
Version: 08.11.09.357
Area: VBA, text, angle, rotate, align, SS3

Solution

This article maybe of use to your query: http://communities.bentley.com/
communities/other_communities/askinga/w/askinga/active-angle-assistant-macro.aspx.

1. Download 269.zip and extract the contents from the zip file.
2. Place both mvbas in the folder pointed to by MS_VBASEARCHDIRECTORIES
3. Keyin: vba load ActiveAngleAssistant to load the project, or...
4.  Configure MS_VBAAUTOLOADPROJECTS to automatically load the mvba project
upon startup.
5. Keyin: vba run getangle to open the dialog.

The VBA macro here allows you to set and get the active angle based on a
selected element such as a line, text, cell, or curve. It also contains
some cool options for rotating elements. A must have for the managment
of your active angle


Please Note: These programs are supplied as is. These programs do not
come with support. AskInga, Bentley Systems Inc., and the author of
these programs assume no liability for damages direct, indirect, or
consequential, which may result from the use of these programs. Use
these programs at your own risk.

See Also