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.
Try key-in: ALIGNEDGE
It is in the Manipulate Tools. Align Elements by Edge. It works for text too.
Do you know the "align" command in AutoCAD?
AlignEdge (MicroStation) is not the same because it does not rotate the selected elements just move them.
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)
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.
Microstation 08.11.09.919Power GeoPak 08.11.09.918Power InRoads 08.11.09.918
Thank you Barry
Ian Lapper said:Thank you Barry
MaryB said:Thank you!!!
You're both welcome