Ive been trying to do this for ages an it was driving me nuts... too many steps with accudraw to go wrong, found a few clues in old posts and filled in the blanks
keyin ROTATE VIEW ELEMENT; %d;%d;ACTIVE ANGLE PT2
( THE ABOVE COULD BE SET TO AN F KY IF YOU USE IT ALOT)
You'll be prompted t select an element ( text or line or shape) to set the view rotation
Then you'll need to Tentatative twice on the reference line element ( the one you want to rotate to) one end first and then the other end last
now you active angle is the angle of the reference line
next we click on the rotate icon and it has the new angle set, so now click on the text or element you want rotated
now key in vi=top to return the view ot original state and our text or line as adopted the angle of the reference element line...
I tried to make another keyin
rotate icon;%d;vi=top
but it works like this select the text to rotate, data point in the view and reset button mouse. then it rotates the text to right angle and sets view back to normal but doesnt
work if you use your mouse buttons in any other order it fails to do what you want cant work out why but works.. other wise the rotate bit can view top can just be done by hand or icons etc
Autocad has all this much easier R for rotate and option is reference so r and two clicks and done...
I wish we had a simple tool or macro with two clicks...
Unknown said:it doesn't work for me with tag text
The ActiveAngleAssistant macro is designed to rotate only text and cell elements. There's no reason that I can see why it can't be modified to rotate tag elements as well.
Regards, Jon Summers LA Solutions
now your just teasing me Jon .. sort of a vba carrot on a microstation stick.. oh darn it I forgot say I;m using Mstn V8i SS3...
Lorys
Started msnt work 1990 - Retired Nov 2022 ( oh boy am I old )
But was long time user V8iss10 (8.11.09.919) dabbler CE update 16 (10.16.00.80)
MicroStation user since 1990 Melbourne Australia.click link to PM me
Unknown said:But you can use Accudraw to rotate text to align with elements. I do it all the time: select text, pick the rotate command, pick the text center, then use perpendicular snap to upper or lower "text box/line" and then rotate perpendicular to element to be aligned with. I put that all in shortkeys so it's not much of a hassle if you have only a few texts to align.
you wanna share that short keys sequence..
No problem :-)
I assigned "rotate element" to STRG+F6 (STRG+Shift+F6 would be rotate+copy), "activate Accudraw" to F8 and keyboard shortcut "snap perpendicular" to key <. Fyi: I added lots of function shortcuts to all keys I can easily reach with my left hand whilst leaving my right hand on the mouse to speed up working.
So I choose STRG+F6, click on the text, choose its center, F8 to activate Accudraw, < to choose the text border and again < to choose the reference point on the element (or whatever reference point you want to use).
Unknown said:I forgot say I'm using Mstn V8i SS3
I didn't mention MicroStation CONNECT. VBA is pretty much the same. In fact, I used MicroStation V8i SS3 to examine the code, so we're stuck in the same time warp.