VBA Microstation: Build Dimensioned Map

A few days ago it showed how to generate Print layouts using Microstation. Before this option of handling sheets and models, it was necessary to do it old-fashioned by generating blocks (cells) and doing content trimming.

Back from my minute sabbatical, The example I show you on this occasion is an application developed on Visual Basic of Microstation, in which a bounded map is generated, or as some cadastral certificate calls it. Ideal for cadastre departments, which should generate a map on request, at scale, service for which they charge but which if not automated takes a lot of time.

Ante had a video that I removed temporarily, but for educational purposes here I leave the way it was developed and customized.

The inputs.

  • A dgn, linked at farm level
  • An Access database, which contained the area column, perimeter and range coordinates. Then a join to another database that had the names of the taxpayers (people), from the cadastral key.
  • A .cel file that contains the frame cell (block), with scale 1: 100, symbol of the north and nodes to add data from the database. This should be put in the place where the registered libraries are stored (workspace / configuration / cell)

In the VBA a capture form was made with a mask format according to the cadastral code of the municipality that was going to use it. It has a space to add observations and options so that they can be inserted as Annotations The names of the owners, the cadastral keys or the property number only.

How to run.

Once the characteristics are designated, the button "generate certificate" is pressed and the system does normal operations that would be done manually in case of not having the application.

Bounded map

Since it is executed on a new file (work), the system does the following:

  • Referenced map refers to the bound map containing the plot
  • Calculate the range from the coordinates that contain the plot, to establish the appropriate scale
  • Then create a fence around the property, with the size equivalent to six lots, so you do not have to work with the entire map
  • Then make a clip Which contains only the necessary layers, building boundaries, building numbers, block boundaries and street names. In this process, the operation with the example is delayed because the topological criteria are not very adequate in these maps, instead of ligating the centroid bounded the boundaries, forcing to make a transfer from ligue of boundary to centroid and the fact of Managing a single map instead of zone or quadrant files makes the analysis cumbersome.
  • Then it calculates the scale, making a reference of the size of the block (scale) 1: 100 to know if it occupies to make it bigger or smaller and places the cell.
  • It then generates a fence within the frame of the bounded map, and cuts the surplus.

The result.

There we have it, a cadastral certificate, in whose module have been inserted data like the executing institution of the project, the logo of the municipality, the calculated area, the scale, leaf number and the description that we indicate.

Bounded map

In a second sheet, it generates the coordinates of the different stations, distances and directions that were generated on the flight from an internal fence in the property, placing a point and a vertex number in the direction of the clock from which it is located. more to the west. If necessary, because the polygon has many vertices, it generates the necessary leaves.

Bounded map

For extreme cases, of plots that come too close, which are next to a very wide street, then the options were created to force the next scale or generate a scale 1: 125 of which the system calculated. The case of the example requires you to do this to him, since you see that the adjoining ones of the other side of the street do not go out to that scale.

The application works on Microstation Geographics V8, although over time this was done and a thousand other things for that process that one day I hope to talk about.

3 Replies to "VBA Microstation: Generate bounded map"

  1. Could you tell me where I can buy that macro? And the cosnto of it please? A hug thanks for the attention paid

  2. It makes me that it was a headache I like that to be able to leave the bounded map exact true excellent process jajajjaja

Leave an answer

Your email address will not be published.

This site uses Akismet to reduce spam. Learn how your comment data is processed.