VBA Microstation: Menjana peta yang dibatasi

Beberapa hari yang lalu saya menunjukkan bagaimana untuk menghasilkan susun atur untuk percetakan menggunakan Microstation. Sebelum ada pilihan untuk mengendalikan helaian dan model, perlu dilakukan dengan cara lama, menghasilkan blok (sel) dan kandungan kliping.

Kembali dari minit saya sabatikal, contoh yang saya tunjukkan kepada anda kali ini ialah aplikasi yang dibangunkan Visual Basic Microstation, di mana peta terikat dihasilkan, atau seperti yang disebut oleh beberapa sijil kadaster. Sesuai untuk jabatan kadaster, yang mesti menghasilkan peta berdasarkan permintaan, pada skala, perkhidmatan yang mereka kenakan tetapi yang, jika tidak automatik, memerlukan waktu yang lama.

Ante mempunyai video yang saya hapus sementara, tetapi untuk tujuan pendidikan di sini saya meninggalkan cara bagaimana ia telah dibangunkan dan disesuaikan.

Inputnya.

• Dgn, dikaitkan dengan tahap ladang
• Pangkalan data Access, yang mengandungi koordinat lajur, perimeter, dan rentang kawasan. Kemudian bergabung dengan pangkalan data lain yang mempunyai nama pembayar cukai (orang), dari kunci kadaster.
• Fail .cel yang mengandungi sel bingkai (blok), skala 1: 100, simbol utara, dan nod untuk menambahkan data dari pangkalan data. Ini mesti diletakkan di tempat di mana perpustakaan berdaftar disimpan (ruang kerja / konfigurasi / sel)

Dalam VBA, bentuk tangkapan dibuat dengan format topeng sesuai dengan kod kadaster kota yang akan menggunakannya. Ia memiliki ruang untuk menambahkan pemerhatian dan pilihan untuk dimasukkan sebagai anotasi nama pemilik, kunci kadaster atau nombor harta sahaja.

Bagaimana ia dilaksanakan?

Sebaik sahaja ciri-ciri telah ditetapkan, butang "menjana sijil" ditekan dan sistem menjalankan operasi normal yang akan dilakukan secara manual jika aplikasi tidak tersedia.

Oleh kerana ia berjalan pada fail baru (kerja), sistem melakukan yang berikut:

• Rujukan api peta berkaitan yang mengandungi plot
• Hitung jarak dari koordinat yang mengandungi plot, untuk menetapkan skala yang bersesuaian
• Kemudian buat pagar sekitar harta, dengan saiz bersamaan dengan enam harta, supaya tidak perlu bekerja dengan seluruh peta
• Kemudian dia membuat music yang mengandungi hanya lapisan yang diperlukan, sempadan harta, nombor ladang, sempadan epal dan nama jalan. Dalam proses ini, operasi dengan contoh itu tertunda kerana kriteria topologi tidak begitu mencukupi dalam peta ini, dan bukannya melegitkan centroid yang mengikat sempadan, yang terpaksa membuat pemindahan link dari sempadan ke centroid dan fakta mengurus peta tunggal dan bukannya fail zon atau quadrants membuat analisa rumit.
• Kemudian kirakan skala, membuat rujukan saiz skala (sel) skala 1: 100 untuk mengetahui jika ia menduduki menjadikannya lebih besar atau lebih kecil dan meletakkan sel.
• Kemudian menghasilkan pagar dalam bingkai apa yang mengandungi peta yang dibatasi, dan potong lebihan.

Hasilnya

Di sana kita memilikinya, sijil kadaster, dalam modul yang kita masukkan data seperti institusi pelaksana projek, logo perbandaran, kawasan yang dikira, skala, jumlah lembaran dan perihalan yang kami nyatakan.

Pada helaian kedua, hasilkan jadual koordinat dari stesen, jarak dan galas yang berlainan yang dihasilkan dengan cepat dari pagar dalaman di harta tanah, meletakkan titik dan nombor bucu mengikut arah jam dari tempat ia berada lebih jauh ke barat. Sekiranya perlu, kerana poligon mempunyai banyak bucu, buat helaian yang diperlukan.

Untuk kes yang melampau, bungkusan yang keluar terlalu dekat, di sebelah jalan yang sangat luas, maka pilihan dibuat untuk memaksa skala berikut atau untuk menghasilkan skala 1: 125 dari mana sistem dikira. Contohnya memerlukan melakukan ini, kerana mereka melihat bahawa jiran di seberang jalan tidak keluar pada skala itu.

Aplikasi ini berfungsi pada Microstation Geographics V8, walaupun lama-kelamaan ini dan seribu perkara lain dilakukan untuk proses itu yang suatu hari nanti saya harap dapat berbicara.