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...
no it didnt try making it into a zip and upload that...
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
I just uploaded it, I think. It said "uploading 54%" then I saw nothing, pressed reply but can't tell if anything is attached.
Sorry, I've been out. Here is the mvba I have been using. Like I said earlier, I wasn't sure if you got answer to your initial question. I'm not sure where I got it, you may already have it. As far as adding the keyin, I use the mvba for other things but thanks for the handy keyin!
does it work if the view is rotated
Unknown said:I run the mvba and all of the elements are now rotated to the active angle
can you try adding keyin "ACT AN PT2;%D;%D; " in front of the script to run the vba f key to make it work with one Fkey and 2 data points?