VBA Microstation: məhdudlaşdırılmış xəritə yaradın

Bir neçə gün əvvəl necə qurulacağımı göstərdim çap üçün layouts Microstation istifadə. Çarşaflar və modellərlə işləmək üçün bu seçimdən əvvəl, bloklar (hüceyrələr) və kəsmə məzmunu yaradaraq köhnə şəkildə etmək lazım idi.

Mənim dəqiqəmdən geri dön sabbatalı, bu dəfə sizə göstərdiyim nümunə, inkişaf etmiş bir tətbiqdir Visual Basic Sınırlı bir xəritənin yaradıldığı və ya bəzi kadastr sertifikatlarının dediyi Mikrostasiya. İstədiyinə görə bir xəritəni miqyasda hazırlamalı olan kadastr şöbələri üçün idealdır, onlar üçün xidmət aldıqları, lakin avtomatlaşdırılmadığı təqdirdə uzun müddət tələb olunur.

Ante müvəqqəti olaraq qaldırdığım bir videoya sahib idi amma təhsil məqsədləri üçün burada necə inkişaf etdirildiyini və özelleştirildiğini buraxdım.

Girişlər.

• Bir dgn, təsərrüfat səviyyəsində bağlıdır
• Sahə sütunu, ətrafı və aralıq koordinatlarını ehtiva edən bir Access verilənlər bazası. Sonra kadastr açarından vergi ödəyicilərinin (şəxslərin) adları olan başqa bir verilənlər bazasına qoşulun.
• Çərçivə hüceyrəsini (blokunu), ölçüsü 1: 100, şimal simvolunu və verilənlər bazasından məlumat əlavə etmək üçün qovşaqları olan bir .cel faylı. Bu qeydiyyatdan keçmiş kitabxanaların saxlanıldığı yerə qoyulmalıdır (iş sahəsi / konfiqurasiya / hücrə)

VBA-da, istifadə ediləcək bələdiyyənin kadastr koduna görə maska ​​formatı ilə bir tutma forması hazırlanmışdır. Kimi əlavə ediləcək müşahidələr və seçimlər əlavə etmək üçün bir yer var əlavə edir sahiblərinin adları, kadastr düymələri və ya əmlak nömrəsi yalnız.

Necə icra edilir

Xüsusiyyətləri müəyyən edildikdən sonra, "sertifikat yaratmaq" düyməsinə basılır və sistem ərizə mövcud olmadıqda əl ilə ediləcək normal əməliyyatları həyata keçirir.

Yeni bir faylda (iş) olduğundan sistem aşağıdakıları edir:

• Arxivi ehtiva edən əlaqəli xəritə alov alov
• Məbləği ehtiva edən koordinatların aralığını müvafiq miqyasda qurmaq üçün hesablayın
• Daha sonra bütün xəritələ işləməməsi üçün, əmlakın ətrafında bir çit yaradın, altı xüsusiyyətə bərabər ölçüdə
• Sonra bir edir kəsmək yalnız lazımi qat, əmlak sərhədləri, təsərrüfat nömrələri, alma sahələri və küçə adları ehtiva edir. Bu prosesdə, nümunə ilə əməliyyat təxirə salınır, çünki topoloji meyarları bu xəritələrdə çox sərfəli deyil, sərhədləri bağladıqları sütunları birləşdirməklə, hüduddan santroidə keçid keçirməyə məcbur edir və faktiki olaraq, Zonaların və ya quadranların faylları əvəzinə bir xəritə idarə etməsi təhlili çətinləşdirir.
• 1: 100 blokunun (hüceyrə) miqyasının ölçüsünün ölçüsünü hesablamaq, daha böyük və ya kiçik olmağı və hüceyrəni yerləşdirdiklərini bilmək üçün.
• Sonra məhdudlaşdıran xəritəni ehtiva edən çərçivədə bir çarx yaradın və çoxu kəsin.

Nəticə

Orada biz var, data modul layihəsinin bələdiyyə logo, hesablanmış sahəsi, miqyası, yarpaq sayı və təsviri üçün həyata agentliyi kimi daxil olan kadastr sertifikatı göstərir.

İkinci bir vərəqdə mülkün daxili çəpərindən tez bir zamanda meydana çıxan fərqli stansiyaların, məsafələrin və rulmanların koordinatlar cədvəlini yaradın, yerləşdiyi yerdən saat yönündə bir nöqtə və bir vertex nömrəsi qoyun. daha qərbdə. Lazım gələrsə, çoxbucaqlının bir çox zirvəsi olduğundan lazımlı təbəqələri yaradın.

Həddindən artıq vəziyyətlərdə, çox yaxın bir küçənin yanında olan bağlamalar üçün aşağıdakı miqyasın məcbur edilməsi və ya sistemin hesablandığı 1: 125 ölçüsünün yaradılması üçün variantlar yaradıldı. Nümunə işi bunu etməyi tələb edir, çünki küçənin digər tərəfindəki qonşuların bu miqyasda çıxmadığını görürlər.

Tətbiq Microstation Geographics V8 üzərində işləyir, baxmayaraq ki zamanla bu həyata keçirildi və bu müddət üçün min bir şey danışacağımı ümid edirəm.