VBA Microstation: chegaralangan xarita yaratadi

Bir necha kun oldin qanday qilib ishlab chiqarishni ko'rsatdi bosma nashrlar Microstation yordamida. Varaqlar va modellar bilan ishlash uchun ushbu parametr mavjud bo'lmasdan oldin, uni bloklar (katakchalar) va qirqish tarkibini hosil qilib, eski usulda bajarish kerak edi.

Mening daqiqamdan orqaga sabbatli, sizni bu borada ko'rsatgan namunadir, u ishlab chiqilgan dasturdir Visual Basic Cheklangan xarita tuzilgan yoki ba'zi bir kadastr sertifikatlari chaqirgan Microstation. Kadastr bo'limlari uchun juda mos keladi, ular buyurtma bo'yicha xaritani miqyosda tuzishlari kerak, ular uchun xizmat olinadi, ammo avtomatlashtirilmasa uzoq vaqt talab etiladi.

Ante meni vaqtincha olib tashlagan videolga ega edi, ammo ta'lim maqsadlarida men uni ishlab chiqishga va sozlashni qoldirdim.

Kirish.

• Fermerlar darajasida bog'langan bir dgn
• Maydon ustuni, perimetri va koordinatalarini o'z ichiga olgan Access ma'lumotlar bazasi. Keyin kadastr kalitidan soliq to'lovchilarning (odamlarning) ismlari bo'lgan boshqa ma'lumotlar bazasiga qo'shiling.
• 1: 100 o'lchamdagi ramka xujayrasi (blok), ma'lumotlar bazasidan ma'lumotlarni qo'shish uchun tugunlar va shimoliy belgini o'z ichiga olgan .cel fayli. Buni ro'yxatdan o'tgan kutubxonalar saqlanadigan joyga qo'yish kerak (ish maydoni / konfiguratsiya / katak)

VBA-da, uni ishlatmoqchi bo'lgan munitsipalitet kadastr kodiga muvofiq niqob formati bilan tortib olish shakli qilingan. U erda kuzatuvlar va variantlarni qo'shish uchun bo'sh joy mavjud izohlar egalari nomlari, kadastr kalitlari yoki mulk raqamlari.

Qanday ishlash kerak.

Belgilangan xususiyatlar aniqlangandan so'ng, "sertifikat yaratish" tugmasini bosiladi va tizim dasturga ega bo'lmasa qo'lda bajariladigan normal operatsiyalarni bajaradi.

Yangi fayl (ish) bo'yicha bajarilgani uchun tizim quyidagilarni bajaradi:

• Yo'naltirilgan xarita chizg'ichni o'z ichiga olgan chegaralangan xaritaga ishora qiladi
• Tegishli o'lchovni o'rnatish uchun chizganni o'z ichiga olgan koordinatalar oralig'ini hisoblang
• So'ngra mulk atrofidagi devorni yarating, uning miqdori oltitaga teng, shuning uchun butun xarita bilan ishlash shart emas
• Keyin u bir narsani qiladi clip faqat kerakli qatlamlarni o'z ichiga oladi, chegaralarni qurish, qurilish raqamlari, bloklar chegaralari va ko'cha nomlari. Ushbu jarayonda misol bilan operatsiya kechiktirildi, chunki topologik mezonlar ushbu xaritalarda juda cheklangan emas, balki chegaralarni chegaraga cheklab qo'ygan, balki chegara va markazdan ko'chirishga majbur bo'lgan chegaralarni bog'lash o'rniga, Mintaqa yoki quadrant fayllari o'rniga bitta xaritani boshqarish tahlilni noqulay qiladi.
• Keyinchalik, o'lchamni hisoblab, blok (o'lchab) o'lchamini (o'lcham) 1: 100 deb bilish uchun u katta yoki kichikroq bo'lishi yoki hujayralarni joylashtirishi kerakmi?
• Keyin chegaralangan xaritani o'z ichiga olgan doirada devor hosil qiling va ortiqcha kesib oling.

Natija.

U erda bizda, kadastr sertifikati mavjud bo'lib, unda modulga loyihaning ijro etuvchi muassasi, belediyenin logotipi, hisoblangan maydon, o'lchov, barg raqami va biz ko'rsatadigan ta'rif kabi ma'lumotlar kiritilgan.

Ikkinchi varaqda mulkdagi ichki to'siqdan uchish paytida hosil bo'lgan turli xil stantsiyalar, masofalar va podshipniklar koordinatalari jadvalini yarating, nuqta va tepaliklarni topilganidan soat yo'nalishi bo'yicha joylashtiring. yanada g'arbiy. Agar kerak bo'lsa, ko'pburchak juda ko'p tepalikka ega bo'lganligi sababli, kerakli varaqlarni yarating.

Haddan tashqari holatlarda, juda yaqin ko'chaning yonida joylashgan, juda yaqin ko'chadan keladigan posilkalar uchun quyidagi o'lchovni majburlash yoki tizim hisoblab chiqqan 1: 125 o'lchovni yaratish imkoniyatlari yaratildi. Misol misolida buni qilish kerak, chunki ular ko'cha narigi tomonidagi qo'shnilar bunday miqyosda chiqmasligini ko'rishmoqda.

Ilova Microstation Geographics V8-da ishlaydi, garchi vaqt o'tishi bilan ushbu jarayon uchun bu va boshqa minglab ishlar amalga oshirilgan bo'lsa-da, bir kun gapirishga umid qilaman.