Microstación VBA: xera un mapa acochado

Fai uns días mostrábase como xerar esquemas de impresión usando Microstation. Antes desta opción de manipular follas e modelos, era necesario facelo anticuado xerando bloques (celas) e facendo recortes de contido.

De volta do meu minuto sabático, o exemplo que che mostro nesta ocasión é unha aplicación desenvolvida Visual Basic de Microstation, na que se xera un mapa acoutado ou como o chama algún certificado catastral. Ideal para os departamentos de catastro, que deberían xerar un mapa a petición, a escala, servizo para o que cobran pero que, se non automatizado leva moito tempo.

Ante tiña un vídeo que eliminei temporalmente, pero con fins educativos aquí deixo o camiño que foi desenvolvido e personalizado.

As entradas.

  • Un dgn, vinculado a nivel de explotación
  • Base de datos de acceso, que contiña a columna de área, coordenadas de perímetro e intervalo. A continuación, unirse a outra base de datos que tiña os nomes dos contribuíntes (persoas), da clave catastral.
  • Un ficheiro .cel que contén a cela de marco (bloque), con escala 1: 100, símbolo do norte e nodos para engadir datos da base de datos. Debe colocarse no lugar onde se almacenan as bibliotecas rexistradas (espazo de traballo / configuración / cela)

No VBA realizouse un formulario de captura cun formato de máscara segundo o código catastral do municipio que o utilizaría. Ten un espazo para engadir observacións e opcións para que poidan ser inseridos como anotacións os nomes dos propietarios, as claves catastrais ou o número de propiedade só.

Como executar.

Unha vez que as características son designadas, presionamos o botón "xerar certificado" e o sistema fai operacións normais que se farían manualmente en caso de non ter a aplicación.

mapa confinado

Xa que se executa nun novo ficheiro (traballo), o sistema fai o seguinte:

  • O mapa referido refírese ao mapa vinculado que contén a trama
  • Calcule o rango das coordenadas que conteñen a trama, para establecer a escala adecuada
  • A continuación, cree unha cerca sobre a propiedade, cun tamaño equivalente a seis lotes, polo que non tes que traballar co mapa completo
  • Entón fai un clip que contén só as capas necesarias, construíndo límites, números de construción, límites de bloques e nomes de rúas. Neste proceso, a operación co exemplo retrasa porque os criterios topolóxicos non son moi adecuados nestes mapas, en lugar de ligar o centroide, delimitaban os límites, o que obrigaba a facer unha transferencia de ligazón de límite ao centroide eo feito de Xestionar un só mapa en lugar de ficheiros de zona ou cuadrante fai que a análise sexa complicado.
  • Entón calcula a escala, facendo unha referencia do tamaño do bloque (escala) 1: 100 para saber se ocupa para facelo máis grande ou máis pequeno e coloca a cela.
  • A continuación, xera unha cerca no cadro do que contén o mapa delimitado e recorta o excedente.

O resultado.

Aí temos, un certificado catastral en que módulo se inseriron datos como a institución executora do proxecto, o logotipo do municipio, a área calculada, a escala, o número de folla ea descrición que indicamos.

mapa confinado

Nunha segunda folla xera cadro de coordenadas das estacións diferentes, distancias e instrucións que se xeran en tempo real a partir dunha reixa interior no lugar, a colocación dun punto e un número de vértice no sentido horario da atopada máis ao oeste. Se é necesario, xa que o polígono ten moitos lados, que xera as follas necesarias.

mapa confinado

Para casos extremos de parcelas que están moi preto, están ao lado dunha ampla rúa, a continuación, as opcións foron creadas para forzar a seguinte escala é xerar un 1 escala: 125 do sistema calculado. O exemplo require facelo porque eles ven á beira do outro lado da rúa, non vaia nesa escala.

A aplicación funciona en Microstation Geographics V8, aínda que co paso do tempo isto foi feito e mil cousas máis para ese proceso que algún día espero falar.

3 respostas a "Microstation VBA: xerar mapa delimitado"

  1. Podería dicirme onde podo mercar esa macro? e o cosnto dela por favor? Un abrazo, grazas pola atención.

  2. me fai que fose unha dor de cabeza que me guste para que poida deixar o mapa acoutado exactamente o excelente proceso xajajija

Deixa unha resposta

Enderezo de correo electrónico non será publicado.

Este sitio usa Akismet para reducir o spam. Aprende a procesar os teus datos de comentarios.