Free VBA to delete duplicated vertices from elements

A small VBA application to remove unnecessary vertices from line strings and shapes. Other part of the element remains the same.

Fell FREE to use it!

(No other hidden functions in the macro)

Tested on Bentley PowerCivil v8i

 

The problem: the shape (or line string) contains neighbouring vertices at the same coordinates. When you select the element and put the mouse over the vertex, there are more than one "Handle" item at the same location.

Solution:

- Save the attached mvba (at the bottom of this page)

- Open Utilities >> Macro >> Project Manager

Load the mvba file beginning with Delete_Duplicated_Vertices, then push Run

In the Macros dialog, select Delete_Duplicated_Vertices again and Run

Here is the "face" of the app.

Grey fields become active if you click on the "Place a red circle..." option

The app can do 4 things:

- Do Nothing: press Cancel

- Delete duplicated vertices, without mark them: switch off the tick, then "Delete Now!"

- Delete duplicated vertices AND mark them: switch on the tick, then "Delete Now!"

- Don't delete vertices, just mark them: switch on the tick, then "Only place a circle"

 

If you choose the marker option, you can give the name of the marker's level (it will ad to the file, if it isn't yet), and the size of the circle (radius in master unit).

 

At the end, a message box tells what happened. If you want to go back, press the normal Undo function.

The markers look like theese:

At the end the shape good, there is only 1 Handle at the corners. 

 

Delete_Duplicated_Vertices_v2.0.mvba