I have multiple lines , how can I change direction of all of them at once? Right now I'm using utilities-key-in-change direction, it's a hectic task when there are many lines. Thanks!!
Please tell us the version (e.g. v10.x.y.z) of MicroStation or other product that you are using.
The Change Curve Direction tool should work on a selection set.
Regards, Jon Summers LA Solutions
Jon, using V8i, SELECTseries3
Hi Tatyana,
I think it cannot be done manually, because you mentioned also, the direction arrow has to be clicked by mouse.
But it can be done using simple VBA macro:
Public Sub ChangeLineDirection() Dim esc As New ElementScanCriteria esc.ExcludeAllTypes esc.IncludeType msdElementTypeLine esc.IncludeType msdElementTypeLineString Dim ee As ElementEnumerator Set ee = ActiveModelReference.Scan(esc) Do While ee.MoveNext Dim line As LineElement Set line = ee.Current.AsLineElement line.Reverse line.Rewrite Loop End Sub
With regards,
Jan
Bentley Accredited Developer: iTwin Platform - AssociateLabyrinth Technology | dev.notes() | cad.point
Tatyana Hayek said:The edit curves works also, but it gives you 10,000 directional arrows to click...
Jan Šlegr said:it can be done using simple VBA macro
I've packaged Jan's suggestion into a VBA project...
The project is freeware. Extract the VBA project and put it in a well-known folder where MicroStation can find it. It should work with MicroStation V8i and MicroStation CONNECT.
If neither of the above, the tool modifies all lines in the active DGN model.
You don't have to be a VBA whizz to use this tool: just download the ZIP file and run the key-in. If you are interested in VBA the project is not locked, so you can examine its code.