VBA Microstation: Generar mapa acotat

Fa uns dies mostrava com generar layouts per a imprimir usant Microstation. Abans d'existir aquesta opció de maneig de sheets i models, calia fer-ho a l'antiga generant blocs (cells) i fent retallada de contingut.

De tornada de la meva minut sabàtic, L'exemple que els mostro en aquesta ocasió és una aplicació desenvolupada sobre Visual Basic de Microstation, en el qual es genera un mapa acotat, o com li diguin alguns certificat cadastral. Ideal per als departaments de cadastre, que han de generar un mapa a petició, a escala, servei pel qual cobren però que si no s'automatitza pren molt de temps.

Davant tenia un vídeo que vaig treure de forma temporal, però per a fins educatius aquí els deixo la forma com es va desenvolupar i va personalitzar.

Els inputs.

  • Un dgn, lligat a nivell de predis
  • Una base de dades Access, que contenia la columna d'àrea, perímetre i coordenades de rang. Després un join a una altra base de dades que tenia els noms dels contribuents (persones), a partir de la clau cadastral.
  • Un arxiu .cel que conté la cel·la (bloc) de marc, amb escala 1: 100, símbol del nord i nodes per afegir fitxers des de la base de dades. Aquest ha de posar-se al lloc on estan emmagatzemades les llibreries registrades (espai de treball / configuration / cell)

A la VBA es va fer un formulari de captura amb un format de màscara d'acord a la clau cadastral del municipi que ho anava a utilitzar. Té un espai per agregar observacions i opcions perquè s'insereixin com anotacions els noms dels propietaris, les claus cadastrals o el nombre de predi només.

Com s'executa.

Un cop designades les característiques, es pressiona el botó "generar certificat" i el sistema fa operacions normals que es farien de forma manual en cas de no tenir l'aplicació.

mapa acotat

Ja que s'executa sobre un arxiu nou (work), el sistema fa el següent:

  • Crida de referència el mapa lligat que conté la parcel·la
  • Calcula el rang a partir de les coordenades que contenen la parcel·la, per establir l'escala apropiada
  • Després crea un fence al voltant de la possessió, amb la mida equivalent a sis predis, per no haver de treballar amb tot el mapa
  • Després fa un presilla que conté només les capes necessàries, límits de predis, números de predis, límits de pomes i noms de carrers. En aquest procés, l'operació amb l'exemple és trigada doncs els criteris topològics no són molt adequats en aquests mapes, en lloc de lligar el centroide van lligar els límits, el que va obligar a fer una transferència de lligui de límit a centroide i el fet manejar un sol mapa en lloc d'arxius de zones o quadrants fa l'anàlisi molest.
  • Llavors calcula l'escala, fent una referència de la mida del bloc (cell) escala 1: 100 per saber si ocupa fer-lo més gran o més petit i col·loca la cel·la.
  • Després genera un fence en el marc del que conté el mapa acotat, i talla el sobrant.

El resultat.

Allà el tenim, un certificat cadastral, en el mòdul s'han inserit dades com la institució executora del projecte, el logotip de la municipalitat, l'àrea calculada, l'escala, número de full i la descripció que indiquem.

mapa acotat

En un segon full genera el quadre de coordenades de les diferents estacions, distàncies i rumbs que es van generar al vol a partir d'un fence intern en el predi, col·locant un punt i un nombre de vèrtex en sentit del rellotge a partir del qual es troba més cap a l'oest. Si cal, perquè el polígon té molts vèrtexs, genera els fulls necessàries.

mapa acotat

Per a casos extrems, de parcel·les que surten massa a prop, que estan al costat d'un carrer molt ample, llavors es van crear les opcions per forçar l'escala següent o generar una escala 1: 125 de la qual el sistema va calcular. El cas de l'exemple requereix fer-li això, doncs vegin que els confrontants de l'altre costat del carrer no surten a aquesta escala.

L'aplicació funciona sobre Microstation Geographics V8, encara que amb el temps es va fer això i mil coses més per aquell procés del que un dia espero parlar.

3 Replies to "VBA Microstation: Generar mapa acotat"

  1. Podries dir on puc comprar aquesta macro? i el cosnto de la mateixa si us plau? una abraçada gràcies per l'atenció prestada

  2. es em fa que va ser una quebradera de cap m'agrada això per poder deixar el mapa acotat exacte veritat excel·lent procés jajajjaja

Deixa una resposta

La seva adreça de correu electrònic no es publicarà.

Aquest lloc té validesa Akismet per reduir el correu brossa. Aprèn com es processen les dades dels teus comentaris.