VBA Microstation: Generer begrenset kart

For noen dager siden viste jeg hvordan jeg skulle generere layouter for utskrift ved hjelp av Microstation. Før dette alternativet for håndtering av ark og modeller eksisterte, var det nødvendig å gjøre det på den gamle måten ved å generere blokker (celler) og klippe innhold.

Tilbake fra mitt minutt sabbatsår, det eksempelet jeg viser deg denne gangen er et program utviklet på Visual Basic Microstation, der det genereres et avgrenset kart, eller som noen matrikkelsertifikater kaller det. Ideell for matrikkelavdelinger, som må generere et kart på forespørsel, i stor skala, en tjeneste som de tar betalt for, men som, hvis ikke automatisert, tar lang tid.

Ante hadde en video som jeg fjernet midlertidig, men for pedagogiske formål her forlater jeg hvordan den ble utviklet og tilpasset.

Inngangene.

• En dgn, koblet på gårdsnivå
• En Access-database som inneholder områdekolonnen, omkretsen og områdekoordinatene. Deretter blir du med i en annen database som hadde navnene på skattebetalerne (folkene), fra matrikkelnøkkelen.
• En .cel-fil som inneholder rammecellen (blokk), skalert 1: 100, nord-symbol og noder for å legge til data fra databasen. Dette må plasseres på stedet der de registrerte bibliotekene er lagret (arbeidsområde / konfigurasjon / celle)

I VBA ble det laget et fangstskjema med maskeformat i henhold til matrikkelkoden til kommunen som skulle bruke den. Det har et mellomrom for å legge til observasjoner og alternativer som skal settes inn som merknader navnene på eierne, kadastralnøklene eller eiendommens nummer.

Hvordan det utføres

Når egenskapene er utpekt, trykkes "generere sertifikat" -knappen, og systemet utfører normale operasjoner som ville bli gjort manuelt hvis søknaden ikke er tilgjengelig.

Siden det kjører på en ny fil (jobb), gjør systemet følgende:

• Referanse flamme det koblede kartet som inneholder plottet
• Beregn rekkevidde fra koordinatene som inneholder plottet, for å etablere riktig skala
• Deretter lager du et gjerde rundt eiendommen, med størrelsen som tilsvarer seks egenskaper, slik at du ikke må jobbe med hele kartet
• Så gjør han en klipp som bare inneholder de nødvendige lagene, eiendomsgrensene, gårdstallene, eplegrensene og gateneavnene. I denne prosessen er tidkrevende fordi de topologiske kriteriene ikke er godt egnet til disse kartene, i stedet for å knytte tyngdepunktet knyttet grensene, presser å foreta en overføring Flørting kanten til tyngdepunktet og det faktum driften eksempel Å administrere et enkelt kart i stedet for filer av soner eller kvadranter gjør analysen tungvint.
• Beregn deretter skalaen, og referer til størrelsen på blokken (celle) skalaen 1: 100 for å vite om den inntar det som gjør den større eller mindre og plasserer cellen.
• Deretter genererer et gjerde i rammen av det som inneholder det begrensede kartet, og kutte overskytdet.

Resultatet

Der har vi det, et kadastral sertifikat, i hvis modul vi har satt inn data som prosjektets utførende institusjon, kommunens logo, det beregnede området, skalaen, tallet på arket og beskrivelsen som vi angir.

På et annet ark genererer du tabellen over koordinater for de forskjellige stasjonene, avstandene og lagrene som ble generert i fly fra et indre gjerde på eiendommen, og plasserer et punkt og et antall toppunkt i retning med klokken fra der det er plassert. lenger vest. Hvis nødvendig, fordi polygonet har mange hjørner, genererer du de nødvendige arkene.

I ekstreme tilfeller, av pakker som går for nærme, som ligger ved siden av en veldig bred gate, ble alternativene opprettet for å tvinge følgende skala eller generere en skala 1: 125 som systemet beregnet fra. Eksemplet krever at du gjør dette, fordi de ser at naboene på den andre siden av gaten ikke kommer ut i den skalaen.

Søknaden fungerer på Microstation Geographics V8, selv om dette over tid ble gjort og tusen andre ting for den prosessen som jeg en dag håper å snakke.