VBA Microstation: Generar mapa acotado

Hace unos días mostraba como generar layouts para impresión usando Microstation.  Antes de existir esta opción de manejo de sheets y models, era necesario hacerlo a la antigua generando bloques (cells) y haciendo recorte de contenido.

De vuelta de mi minuto sabático, el ejemplo que les muestro en esta ocasión es una aplicación desarrollada sobre Visual Basic de Microstation, en el que se genera un mapa acotado, o como le llamen algunos certificado catastral.  Ideal para los departamentos de catastro, que deben generar un mapa a petición, a escala, servicio por el que cobran pero que si no se automatiza toma mucho tiempo.

Ante tenía un video que quité de forma temporal, pero para fines educativos aquí les dejo la forma como se desarrolló y personalizó.

Los insumos.

• Un dgn, ligado a nivel de predios
• Una base de datos Access, que contenía la columna de área, perímetro y coordenadas de rango.  Luego un join a otra base de datos que tenía los nombres de los contribuyentes (personas), a partir de la clave catastral.
• Un archivo .cel que contiene la celda (bloque) de marco, con escala 1:100, símbolo del norte y nodos para agregar datos desde la base de datos.  Este debe ponerse en el lugar donde están almacenadas las librerías registradas (workspace/configuration/cell)

En la VBA se hizo un formulario de captura con un formato de máscara de acuerdo a la clave catastral del municipio que lo iba a utilizar.  Tiene un espacio para agregarle observaciones y opciones para que se inserten como anotaciones los nombres de los propietarios, las claves catastrales o el número de predio solamente.

Como se ejecuta.

Una vez designadas las características, se presiona el botón “generar certificado” y el sistema hace operaciones normales que se harían de forma manual en caso de no tener la aplicación.

Puesto que se ejecuta sobre un archivo nuevo (work), el sistema hace lo siguiente:

• Llama de referencia el mapa ligado que contiene la parcela
• Calcula el rango a partir de las coordenadas que contienen la parcela, para establecer la escala apropiada
• Luego crea un fence al rededor del predio, con el tamaño equivalente a seis predios, para no tener que trabajar con todo el mapa
• Luego hace un clip que contiene solo las capas necesarias, linderos de predios, números de predios, linderos de manzanas y nombres de calles. En este proceso, la operación con el ejemplo es tardada pues los criterios topológicos no son muy adecuados en estos mapas, en lugar de ligar el centroide ligaron los linderos, lo que obligó a hacer una transferencia de ligue de lindero a centroide y el hecho de manejar un solo mapa en lugar de archivos de zonas o cuadrantes hace el análisis engorroso.
• Entonces calcula la escala, haciendo una referencia del tamaño del bloque (cell) escala 1:100 para saber si ocupa hacerlo más grande o más pequeño y coloca la celda.
• Luego genera un fence en el marco de lo que contiene el mapa acotado, y corta el sobrante.

El resultado.

Allí lo tenemos, un certificado catastral, en cuyo módulo se han insertado datos como la institución ejecutora del proyecto, el logo de la municipalidad, el área calculada, la escala, número de hoja y la descripción que indicamos.

En una segunda hoja genera el cuadro de coordenadas de las diferentes estaciones, distancias y rumbos que se generaron al vuelo a partir de un fence interno en el predio, colocando un punto y un número de vértice en sentido del reloj a partir del que se encuentra más hacia el oeste.  Si es necesario, porque el polígono tiene muchos vértices, genera las hojas necesarias.

Para casos extremos, de parcelas que salen demasiado cerca, que están al lado de una calle muy ancha, entonces se crearon las opciones para forzar la escala siguiente o generar una escala 1:125 de la que el sistema calculó.  El caso del ejemplo requiere hacerle esto, pues vean que los colindantes de el otro lado de la calle no salen a esa escala.

La aplicación funciona sobre Microstation Geographics V8,  aunque con el tiempo se hizo esto y mil cosas más para aquel proceso del que un día espero hablar.