VBA Microstation: Matgrong Kaart generéieren

E puer Deeg ze weisen wéi wéi se generéieren drucken mat Microstation. Ier et dës Optioun war fir Placken a Modeller ze behandelen, war et noutwendeg et op den ale Wee ze maachen andeems Blocen (Zellen) generéiert ginn an den Inhalt geknipst goufen.

Back from my minute Sabbat, d'Beispill ech Iech op dëser Geleeënheet eng Applikatioun op visuell Grondleegend vu Microstation, an där eng begrenzte Kaart generéiert gëtt, oder wéi verschidde Kadasterzertifikater et nennen. Ideal fir Kadasterdepartementer, déi op Ufro eng Kaart musse generéieren, an der Skala, e Service fir deen se bezuelen awer deen, wann net automatiséiert, laang dauert.

Ante huet e Video, dat ech temporär entlooss gouf, awer fir Schoulzwecker benotzt ech de Wee wéi et entwéckelt a personaliséiert gouf.

Déi Inputen.

• Een Dgn, mat engem Haff am Haff
• Eng Access-Datebank, déi d'Gebittkolonn, de Perimeter, an d'Bandkoordinaten enthält. Dann eng Verbindung zu enger anerer Datebank déi d'Nimm vun de Steierzueler (Leit) hat, vum Kadaster.
• Eng .cel Datei mat der Framezell (Block), skaléiert 1: 100, Nordsymbol a Kniet fir d'Daten aus der Datebank bäizefügen. Dëst muss op d'Plaz gesat ginn, wou déi registréiert Bibliothéiken gespäichert sinn (Aarbechtsberäich / Konfiguratioun / Zell)

Am VBA gouf eng Fondform mat engem Maskeformat gemat dem Kadaster Code vun der Gemeng gemaach, dee se benotze géif. Et huet e Raum fir Observatiounen ze addéieren an Optiounen ze ginn agefouert als Annotatiounen den Numm vun de Besëtzer, de Kadastertuerm oder d'Proprietairen.

Wéi geet et.

Wann d'Charakteristiken uginn ginn, gëtt de Knäpp "Zertifika generéieren" gedréckt an d'System funktionnéiert normale Operatiounen déi manuell manuell gemaach gi sinn, wann net mat der Applikatioun.

Well se op enger neier Datei (Aarbecht) ausgezeechent gëtt, funktionéiert de System folgend:

• Referenzéiert map steet zur verbonnen Kaart mat dem Diagramm
• Kalkulatioun de Beräich vun de Koordinaten, déi de Besetzungsvirgang enthale sinn, déi entspriechend Skala festzeleeën
• Da schreift e Sag ronderëm d'Propriétéit, mat der Gréisst mat 6 Lëschen äusgeliewend, also musst Dir net mat der ganzer Kaart arbeiten
• Duerno mécht en Clip déi just déi noutwendeg Schichten enthalen, d'Grenze bauen, d'Zuelen, d'Grenze vu Blödelen an d'Stroossennamen. An dësem Prozess, ass d'Operatioun Beispill Zäit-Konsuméiere well de topological Critèrë sinn och net un dës Kaarten geegent, amplaz verbënnt der centroid de Grenze Hausnummeren, Zweekampf en Transfert ze maachen fir d'centroid an der Tatsaach Flirting Wäitschoss D'Verwaltung vun enger eenzeger Kaart anstatt Zone oder Quadrant Dateien léisst d'Analyse ëm hir Aarbecht.
• Da rechent der Skala, eng Referenz Spär Gréisst (Zell) Niveau 1 Mëtt spazéieren: 100 ze gesinn wann Deals et méi grouss oder méi kleng maachen an der Zell Plaz.
• Dann maachen en Zait am Frame vun deem wat d'Begrenzte Kaart enthält an den Iwwerfloss ze schneiden.

D 'Resultat.

Do hu mir et, eng Kadastergemengen Certificat, an déi Donnéeën Modul wéi d'Ausféiere Agence fir de Projet hin ass, de Logo vun der Gemeng, déi berechent Beräich, Skala, Leaf Zuel an Beschreiwung unzeginn.

Op engem zweete Blat, generéiert d'Tabell vu Koordinaten vun de verschiddene Statiounen, Distanzen a Lager, déi am Fluch aus engem internen Zait op der Immobilie generéiert goufen, a plazéiert e Punkt an eng Zuel vu Wirbelen a riets Richtung vu wou et méi westlech. Wann néideg, well de Polygon vill Wirbelen huet, generéiert déi néideg Blieder.

Fir extrem Fäll, vu Päck déi ze no kommen, déi niewent enger ganz breeder Strooss sinn, da goufen d'Optiounen erstallt fir déi folgend Skala ze forcéieren oder eng Skala 1: 125 ze generéieren aus där de System berechent huet. De Fall vum Beispill erfuerdert dëst ze maachen, well se gesinn datt d'Noperen op der anerer Säit vun der Strooss net an där Skala erauskommen.

D'Applikatioun funktionnéiert op Microstation Geographics V8, och wa mat der Zäit dëst gemaach gouf an dausend aner Saache fir dee Prozess deen een Dag hoffen ech ze schwätzen.