VBA Microstation: Bumuo ng bounded map

Ang ilang araw na nakalipas ay nagpakita kung paano gumawa print layout gamit ang Microstation. Bago ang pagpipiliang ito para sa paghawak ng mga sheet at modelo ay kinakailangan, kinakailangang gawin ito sa dating paraan sa pamamagitan ng pagbuo ng mga bloke (mga cell) at pag-clipping ng nilalaman.

Bumalik mula sa aking minuto sabbatical, ang halimbawa na ipapakita ko sa iyo sa pagkakataong ito ay isang application na binuo sa Visual Basic ng Microstation, kung saan nabuo ang isang may hangganan na mapa, o bilang tawag sa ilang mga sertipiko ng cadastral. Tamang-tama para sa mga kagawaran ng cadastre, na dapat makabuo ng isang mapa kapag hiniling, sa sukat, isang serbisyo kung saan sisingilin sila ngunit kung hindi awtomatiko ay tumatagal ng mahabang panahon.

Si Ante ay nagkaroon ng isang video na pansamantala kong inalis, ngunit para sa mga layuning pang-edukasyon dito ay iniwan ko ang paraan na ito ay binuo at na-customize.

Ang mga input.

• Ang isang, naka-link sa antas ng sakahan
• Isang Access database, na naglalaman ng haligi ng lugar, perimeter, at mga coordinate ng saklaw. Pagkatapos ay sumali sa isa pang database na mayroong mga pangalan ng mga nagbabayad ng buwis (mga tao), mula sa cadastral key.
• Isang .cel file na naglalaman ng frame cell (block), na-scale 1: 100, hilagang simbolo, at mga node para sa pagdaragdag ng data mula sa database. Dapat itong ilagay sa lugar kung saan nakaimbak ang mga nakarehistrong aklatan (workspace / configure / cell)

Sa VBA isang form sa pagkuha ang ginawa gamit ang isang format ng mask alinsunod sa cadastral code ng munisipyo na gagamitin ito. Mayroon itong puwang upang magdagdag ng mga obserbasyon at mga pagpipilian na maipapasok bilang mga anotasyon ang mga pangalan ng mga may-ari, ang mga kadistral na susi o ang numero ng ari-arian lamang.

Paano tumakbo.

Kapag ang mga katangian ay itinalaga, ang pindutan ng "bumuo ng sertipiko" ay pinindot at ang sistema ay ang mga normal na operasyon na gagawin nang manu-mano sa kaso ng hindi pagkakaroon ng application.

Dahil ito ay isinagawa sa isang bagong file (trabaho), ang sistema ay ginagawa ang mga sumusunod:

• Ang tinukoy na mapa ay tumutukoy sa nakatali na mapa na naglalaman ng balangkas
• Kalkulahin ang saklaw mula sa mga coordinate na naglalaman ng balangkas, upang maitatag ang angkop na sukat
• Pagkatapos ay lumikha ng isang bakod sa paligid ng ari-arian, na may sukat katumbas ng anim na maraming, kaya hindi mo kailangang gumana sa buong mapa
• Pagkatapos siya ay gumagawa ng isang klip na naglalaman lamang ng kinakailangang mga layer, pagtatayo ng mga hangganan, mga numero ng gusali, mga hangganan ng mga bloke at mga pangalan ng kalye. Sa prosesong ito, ang operasyon na may halimbawa ay naantala dahil ang pamantayan ng topological ay hindi sapat sa mga mapa na ito, sa halip na ligating ang centroid na hangganan ng mga hangganan, na napipilitang gumawa ng paglipat mula sa ligue ng hangganan sa centroid at ang katotohanan ng ang pamamahala ng isang solong mapa sa halip ng mga zone o quadrant file ay gumagawa ng pag-aaral na masalimuot.
• Pagkatapos ay kinakalkula nito ang laki, na ginagawang isang sanggunian ng sukat ng block (scale) 1: 100 upang malaman kung ito occupies upang gawin itong mas malaki o mas maliit at ilagay ang cell.
• Pagkatapos ay bumuo ng isang bakod sa frame ng kung ano ang naglalaman ng bounded mapa, at kunin ang labis.

Ang resulta.

Mayroong mayroon kami, isang sertipiko ng kadastre, kung saan ang module ay naipasok na data tulad ng pagpapatupad ng institusyon ng proyekto, ang logo ng munisipalidad, ang kinakalkula na lugar, ang laki, dahon bilang at ang paglalarawan na aming ipinahiwatig.

Sa isang pangalawang sheet, bumuo ng talahanayan ng mga coordinate ng iba't ibang mga istasyon, distansya at bearings na nabuo sa mabilisang mula sa isang panloob na bakod sa pag-aari, paglalagay ng isang punto at isang bilang ng vertex sa isang direksyon sa direksyon mula sa isang nahanap. karagdagang kanluranin. Kung kinakailangan, dahil ang polygon ay maraming mga vertex, bumuo ng mga kinakailangang sheet.

Para sa matinding mga kaso, ng mga parsela na lumalabas nang napakalapit, na nasa tabi ng isang napakalawak na kalye, pagkatapos ay nilikha ang mga pagpipilian upang pilitin ang sumusunod na sukat o upang makabuo ng isang scale 1: 125 kung saan kinakalkula ang system. Ang kaso ng halimbawa ay nangangailangan ng paggawa nito, sapagkat nakikita nila na ang mga kapit-bahay sa kabilang panig ng kalye ay hindi lumalabas sa sukatang iyon.

Gumagana ang application sa Microstation Geographics V8, kahit na sa paglipas ng panahon nagawa ito at isang libong iba pang mga bagay para sa prosesong iyon na balang araw nais kong magsalita.