Applies To
	Product(s):	MicroStation
	Version(s):	08.11.09.357
	Environment:	Windows 7 32 bit
	Area:	Text
	Subarea:	N\A
	Original Author:	Judy Wong, Bentley Technical Support Group

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 AskInga 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 management 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