Aşağıdaki basit Harita programı Visual Basic for Applications (VBA) dili ile yazılmıştır.

Programı yükleme:

VISUAL BASIC;
Visual Basic programlarını yüklemek için Autocad in Tools/Macro/Load Project penceresinden bilgisayarınızdaki *.dvb uzantılı visual basic dosyasını seçip açılan makro uyarı penceresinden Enable Macro (Makrolar Aktif Olsun) seçeneğini işaretleyerek programı aktif hale getirebilirsiniz. (Burada dikkat edeceğiniz konu bilmediğiniz makroları çalıştırmamaktır, Kötü niyetli makrolar olabilir.)

Burada benin hazırladığım programlar ekranda çift tık yapılınca çalışır. Bunları incelemek isterseniz Autocad de Visual Basic e menüden, Tools/Macro/ Visual Basic Editor Tıklayarak ulaşabilirsiniz.


Yükelendikten sonra ekrana çift tıklandığında aktif hale geçer ve aşağıdaki form görünür.



BU PROGRAM AUTOCAD ÜZERİNDE HARİTA HESAPLARINI YAPAR.

(Aşağıda adı geçen hesapları kullanacak olan kişiler harita ile ilgili olacaklarından, bu hesapları yakinen bilmektedirler. Bu yüzden hesapların ne olduğu ve ne işe yaradığı konusu tek tek açıklanmamıştır.)


4 sıralık mevcut csv formatında korumuş olduğunuz bir dosyayı açar [ No, Y, X, H ]


Çalışmakta olduğunuz dosyayı csv formatında korur.

Autocad ortamında kolay şev taraması yapar, Sırasıyla önce şev üstü noktaları daha sonra şev altı noktaları seçilir, çizim “ŞEV_TARAMASI” isimli 1 yeni layer açar. Butona basıp komut satırını takip edin.




Autocad ortamında kolay münhali çizmek için 1’lik ve 5’lik çizgilerin geçtiği noktaları işaretler, "MÜNHALİ_KOTLAR", "MÜNHALİ_1_NOKTALAR", "MÜNHALİ_5_NOKTALAR", "MÜNHALİ_1_ÇİZGİLER" ve "MÜNHALİ_5_ÇİZGİLER" adıyla 5 yeni layer açar. Butona basıp komut satırını takip edin.


Yan nokta hesabı yapmak için kullanılır. Yeni koordinesi hesaplanacak noktanın numarası, Dik ayağı ölçüsü ve Dik boyu ölçüsü yazılır, tamam butonuna basılır. Yan Nokta hesabından çıkış, Nokta No kutusuna Bir şey yazmadan ENTER tuşuna basarak çıkılır. Butona basıp komut satırını takip edin.


Dik ayağı Dik boyu ölçülerini hesaplamak için kullanılır. Dik Ayağı/Dik Boyu hesabından çıkış Başlangıç veya Bitiş noktasını tekrar seçerek yapılır. Butona basıp komut satırını takip edin.


Autocad üzerinde koordinat okumak için kullanılır. Koordinat okumak için önce nokta no kutusuna Nokta adı yazarak koordinesini öğrenmek ve makine ya girişini yapmak için bir nokta seçiniz. Koordinat okumaktan çıkış, Nokta No kutusuna Bir şey yazmadan ENTER tuşuna basarak yapılır. Butona basıp komut satırını takip edin.

Yan nokta, dik ayağı dik boyu ve koordinat okuma işleminde ; “YENİ_YÜZEY_YARAT ", YENİ_YÜZEY_YARAT ", YENİ_YÜZEY_YARAT ", YENİ_YÜZEY_YARAT " ve YENİ_YÜZEY_YARAT " adıyla 5 yeni layer açar. Konut satırını takip edip ona göre işlem yapınız. Programda Nokta adı olarak yalnız N,P ve K diye isim veriniz “N101,p1897,K4 veya 8561 gibi,"

Program kapasitesi 10.000 noktadır.

Hazırlayan:
B.Nazım KOCAMAZ
20.12.2003
0 532 769 13 44

tag: harita programı, harita lispi, harita hesaplama, harita hesabı yapmak, harita hesabi nasil yapilir

Yazar: Nazım KOCAMAZ
İçerik: DVB (Visual Basic for Applications) formatında VISUAL BASIC makro dosyası
Tag: harita programı, harita lispi, harita hesaplama, harita hesabı yapmak, harita hesabi nasil yapilir