VBA Microstation: Sukurkite išmatavusį žemėlapį

Prieš kelias dienas jis parodė, kaip kurti Spausdinkite maketus naudojant "Microstation". Prieš šią galimybę tvarkant lakštus ir modelius, reikėjo padaryti tai senamadiškas, sukuriant blokus (ląsteles) ir atliekant turinio apipjaustymą.

Atgal nuo mano minutės Sabbatical, Pavyzdys, kurį jums parodysiu šiuo atveju, yra sukurta programa "Visual Basic" iš Microstation, kuriame sugeneruotas ribotas žemėlapis, arba kaip to reikalauja kai kurie kadastro skyriai. Idealiai tinka kadastriniams skyriams, kurie turėtų sukonstruoti žemėlapį pagal pareikalavimą, pagal mastą, paslaugą, už kurią jie moka, tačiau, jei ne automatizuota, užima daug laiko.

Ante turėjau vaizdo įrašą, kurį laikinai išleidžiau, tačiau čia švietimo tikslais aš palieku tai, kaip jis buvo sukurtas ir pritaikytas.

Įėjimai.

  • Dgn, susijęs ūkio lygiu
  • Prieigos duomenų bazė, kurioje buvo ploto stulpelis, perimetro ir diapazono koordinatės. Tada prisijungti prie kitos duomenų bazės, kurioje buvo nurodyti mokesčių mokėtojų (žmonių) pavadinimai, nuo kadastrinių raktų.
  • A .cel failas, kuriame yra rėmelio elementas (blokas), kurio skalė 1: 100, šiaurės simbolis ir mazgai, skirti pridėti duomenų iš duomenų bazės. Tai turėtų būti vieta, kur saugomos registruotos bibliotekos (darbo vieta / konfigūracija / langelis)

"VBA" formatas buvo suformuotas pagal kaukės formą pagal savivaldybės, kuri ketina ją naudoti, kadastro kodeksą. Joje galima pridėti pastabų ir parinkčių, kad jas būtų galima įterpti kaip Anotacijos Savininkų vardai, kadastriniai raktai arba tik nuosavybės numeris.

Kaip paleisti.

Nustačius charakteristikas, paspaudžiamas mygtukas "generuoti sertifikatą", o sistema atlieka įprastas operacijas, kurios būtų atliekamos rankiniu būdu, jei neturės programos.

Apribotas žemėlapis

Kadangi jis vykdomas naudojant naują failą (darbą), sistema atlieka šiuos veiksmus:

  • Referencinis žemėlapis nurodo susietą žemėlapį, kuriame yra sklypas
  • Apskaičiuokite diapazoną nuo koordinačių, kuriose yra sklypas, kad nustatytumėte tinkamą skalę
  • Tada sukurkite tvorą aplink turtą, kurio dydis atitinka šešias dalis, taigi jums nereikia dirbti su visu žemėlapiu
  • Tada atlikite a klipas Kuriuose yra tik būtini sluoksniai, pastato ribos, pastatų numeriai, blokų ribos ir gatvių pavadinimai. Šiame procese, operacija pavyzdys yra laiko, nes topologines kriterijai nėra gerai tinka prie šių žemėlapių, o susiejimo centroidas susijęs ribas, verčia atlikti pervedimą Flirtas krašto į centroidė ir tai, Vieno žemėlapio, o ne zonos ar kvadranto failų valdymas, apsunkina analizę.
  • Tada ji apskaičiuoja skalę, nurodydama bloko (skalės) dydį 1: 100, kad žinotumėte, ar jis užimtas didesniam ar mažesnio dydžio, ir talpina langelį.
  • Tuomet jis generuoja tvorą riboto žemėlapio rėmuose ir perpjauna perteklių.

Rezultatas.

Čia mes turime tai, kadastrinis pažymėjimas, kurio modulyje buvo įterpiami duomenys, tokie kaip projekto vykdytojas, savivaldybės logotipas, apskaičiuotas plotas, skalė, lapo numeris ir apibūdinimas, kurį mes nurodome.

Apribotas žemėlapis

Antrame lape jis generuoja skirtingų stočių, atstumų ir krypčių koordinates, kurios buvo sugeneruotos iš skrydžio iš vidinio tvoros nuosavybėje, taško ir viršūnių skaičiaus nustatymo laikrodžio kryptimi, iš kurios ji yra. daugiau į vakarus. Jei reikia, nes daugiakampis turi daug viršūnių, jis generuoja reikiamus lapus.

Apribotas žemėlapis

Ekstremaliais atvejais, kai ant labai plataus gatvės esančių pernelyg arti sklypų, buvo sukurtos tokios galimybės, kad priverstų kitą mastelį arba sugeneruotų skalę 1: 125, iš kurios apskaičiuojama sistema. Pavyzdžiui, jūs turite tai padaryti, nes matote, kad gretimos kitos gatvės pusės neatitinka tokio masto.

Programa veikia "Microstation Geographics V8", nors laikui bėgant tai buvo padaryta ir tūkstančiai kitų dalykų, kuriuos tą dieną aš tikiuosi kalbėti.

3 Atsakymai į "VBA Microstation: Sukurti ribotą žemėlapį"

  1. Ar galėtumėte pasakyti, kur aš galiu nusipirkti tą makrokomandą? Ir to cosnto prašau? Apkabinamas dėkingas už dėmesį

  2. Tai man sako, kad galvos skausmas man patinka, kad galėčiau palikti ribotą žemėlapį tikslų, tiesą puikus procesas jajajjaja

Palikite atsakymą

Jūsų elektroninio pašto adresas nebus skelbiamas.

Ši svetainė naudoja "Akismet", kad sumažintų šlamštą. Sužinokite, kaip apdorojami jūsų komentarų duomenys.