Harita Programı

Yazar: Nazım KOCAMAZ
Kaynak:


(Kontrol panelinize girerek; takip ettiğiniz tüm sayfaları görüp istediğinizi silebilirsiniz)

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.

[img][/img]


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 10000 noktadır.

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

Bu sitedeki download edilebilir AutoCAD çizimleri, görüntüler, fotoğraflar, animasyonlar, videolar, sesler, müzikler, metinler ve "küçük uygulamalar" dahil, tüm içeriğin izin alınmadan kopyalanması, dağıtılması, yayınlanması veya başka uygulamalarda kullanılması kesinlikle yasaktır.

Download

Harita Programı