Is there a similar key-in in MicroStation about "Align" command of AutoCAD?
Or do I have to move the element first and then rotate it with 3 points?
I have tried the key-in: DWG ALIGN unsuccesful.
thanks.
Barry that is cheating........ custom tool but nice one. next question is where do the users find it
Joan Martínez Serra said:But is it a custom tool?
Yes it's a custom tool that I made yesterday. I couldn't quite recall how AutoCAD's align tool worked so I watched a video to refresh my memory and after seeing its operation I was pretty certain the same could thing could be achieved in MicroStation so creating this tool it was more a personal challenge to see if I could.
Ian Lapper said:Barry that is cheating........ custom tool but nice one. next question is where do the users find it
Well, I hadn't really intended on making the tool for public use but I guess there is no problem letting it be available for anyone that want's to use it. While it is functional and appears to be working perfectly fine, I've got some tidying up to do with its coding before I would want to make it available for download.
Ok, I have reviewed and tidied up the code this morning. Attached is the MVBA file and a basic replication of the AutoCAD Align icon is also provided for anyone that wishes to use it (refer to the help file for how to use the Customize Dialog to import icons and create a custom Tool/Toolbar)
AlignByPoints.mvbaAlignbyPoints.ico
For those of you not familiar using 3rd Party VBA Tools read on (Note I am only providing instructions for V8i as I do not use CONNECT Edition though I'm sure the process will be somewhat similar):
Note: an alternative approach replacing steps 1-4 is to use the following keyin and copy your chosen folder path from the result in the message center:
expand echo $(MS_VBASEARCHDIRECTORIES)
To run the tool manually use this keyin:
vba run [AlignByPoints]modMain.Locate
If you are creating a custom tool via the Customize Dialog (recommended) use this keyin:e,vba run [AlignByPoints]modMain.Locatelike so....:
e,vba run [AlignByPoints]modMain.Locate
The tool has been coded to only work with the following Element Types:
The tool is currently designed for 2D only (results in a 3D file are yet untested but may work as expected) although I plan to develop it further for 3D use and perhaps also include the option to keep the original element in place as well i.e. making it copy instead of move. The tool will also now remain active instead of having to restart it each time as could be seen in the previous YouTube video (right-clicking after aligning an element will end the tool and revert to the Element Selection command).
I've eliminated the only testing error I found earlier but if you discover something that doesn't appear to be working, let me know.
Go to this thread about Active Angle Assistant. You should be able to do what you need with this tool.
communities.bentley.com/.../connect-active-angle-assistant
Microstation CONNECT 10.17.00.209
ORD CONNECT 2021 R1 10.10.1.3
Microstation v8i SS 10 08.11.09.919
Power InRoads v8i 08.11.09.615
ProjectWise 10.0.3.453
Thank you!!!
MaryB
Power GeoPak 08.11.09.918Power InRoads 08.11.09.918OpenRoads Designer 2021 R2