Tek Tuşla Projeksiyon Ayarlama / Düzeltme

Makro Hakkında:
Netcad projenizin projeksiyonunu ayarlamak sıkıcı geliyor olabilir. Bu makro ile Tek Tuş ile projeksiyon ayarı yapmaya yarar.

  • Projeksiyon ayarı için makroda  pc.ProjectionType =3 satırını bulunuz. Burada kendi isteğinize göre düzenleme yapınız.
    • UTM 3 için 3
    • UTM 6 için 2
    • Coğrafi için 1 giriniz. 
  • Datum Ayarı için makroda pc.Datum = 1 satırını bulunuz. Burada kendi isteğinize göre düzenleme yapınız.
    • Wgs için 0
    • ITRF İÇİN 1
    • ED50 İÇİN 4 giriniz.
  • Dilim numarası için pc.Zone = 42 satırını bulunuz ve burada 42 yazan yeri isteğinize göre düzenleyiniz.

Daha fazla datum ve projeksiyon kodu için bu linki ziyaret ediniz.

Uyarılar:

  • Makrolar ile kesinlikle oynama yapmayınız.
  • Makro oluşturduktan sonra kontrol ediniz.
ÜCRETSİZ MAKROLARIN DEVAMI İÇİN ÖNEMLİ RİCA:

Makro bir çok kişinin işine yarayacak bir makro ve biz bu makroyu sizler için yazdık, malum iş yoğunluğu pek fazla kişiye ulaşamıyoruz. Sizden ricamız bu ücretsiz hizmetin devamı için bu makroların olduğu sayfaları facebook gibi sosyal medyada, haritacılık gruplarında paylaşarak daha fazla kişiye ulaştırmanız ve herkesin faydalanmasını sağlamanız.



Netcad Nvb Kodu   ( Drive ile indir )
Sub Main

with netcad
” www.sabangul.com.tr Web Sayfasından İndirilmiştir
‘ Şaban GÜL , Harita Mühendisi
‘ Her Türlü Hata, İstek ve Öneriler İçin
‘ haritaakademi@gmail.com veya sagulnet@gmail.com
‘ adresine durumu anlatan bir e-posta gönderiniz.
dim pc
set pc = Netcad.NewProjection
”Dikkat : Datum listesine aşağıdaki adresten ulaşabilirsiniz.
‘ http://sabangul.com.tr/nc-pro-datum

” Projeksiyon Ayarı
” Burada projeksiyon için bir kod giriniz
” Örnek: UTM 3 için 3 giriniz. UTM 6 için 2 giriniz. Coğrafi için 1 giriniz.
pc.ProjectionType =3
” Datum Ayarı
” Burada datum için bir kod giriniz
” Örnek: ITRF için 1, ED50 için 4 , WGS için 0 giriniz.
pc.Datum = 1
” Dilim Ayarı
” Burada dilim için bir kod giriniz
” Örnek: Ankara için 33 girin, Siirt için 42 girin.
pc.Zone = 42

pc.SetToCurrentProject false ‘ projenin dönüşmesini engellemek için konuldu

end with

msgbox ” Projeksiyon Başarıyla Tanımlandı “,0,”Dahası: www.sabangul.com.tr”
end sub

Makro ile ilgili uyarılar:
  • Makroyu kullanmadan önce açıklama ve uyarıları mutlaka okuyunuz.
  • Makrolar belirli aralıklarla güncellenir. Bu Sayfayı takip etmenizi ve güncel makroları kullanmanızı tavsiye ediyoruz. Güncel makroların gelişmiş, hatalardan arındırılmış ve yeni versiyonlara uygun olacağını unutmayınız.
  • Netcad Makroları Sadece Netcad Yazılımında Çalışır.
  • Bu Netcad Makrosunu kullanırken lütfen Netcad projenizi yedekleyiniz.
  • Bu Netcad Makroları VB Programlama dili ile yazılmıştır.
  • Netcad Makrolarını kullanımından tamamen kullanıcı sorumludur. Ortaya çıkabilecek tüm hataları kabul etmiş sayılırsınız.
  • Bu Netcad makrosu Kadastro, Orman, 2B,Halihazır, Kamulaştırma, Değerleme, Coğrafi Bilgi Sistemi, İmar Planı, Etüt Proje İşleri gibi bir çok alanda rahatlıkla kullanabilirsiniz.
  • Makrolar ile ilgili tüm soru, görüş ve önerileriniz, ekletmek veya değiştirmek istediğiniz tüm noktalar için, yeni makrolar için bize haritaakademi@gmail.com adresine ileti göndererek ulaşınız.
  • Netcad Makroları size ücretsiz sunulur ve kesinlikle eposta ekinde veya diğer sosyal medya araçları ( whastup,facebook,twitter vb. ) ile gönderilmez. Netcad makroları ile birşeyler talep ettiyseniz sizlere sadece eposta adresinize durum ile ilgili ileti gönderilir, indirme linki ve makrolar ilgili internet sayfamızda paylaşılır.
  • Netcad Makrolarını .nvb formatında indirerek indirdiğiniz ortaya çıkabilecek her türlü olumsuzluğu ve cihazınıza gelebilecek tüm sorumluluğu aldığınızı belirtmek isteriz.
Etiketler
Basit düzey makro, Netcad, Makro, Pratik Netcad, Netcad Araçları, Netcad tabaka, netcad seçim, Pratik Netcad, Netcadde nasıl yapılır,netcad menü, netcad araç, nvb, ücretsiz makro, harita makro, tek tuş, otomatik, projeksiyon, ayar

 

Yazar: Şaban GÜL

Amacımız herkese yardımcı olabilmek. Haritacılık ile sınırlı kalmayıp birçok sektöre girmeye RAMAK kaldı :)

1 thought on “Tek Tuşla Projeksiyon Ayarlama / Düzeltme

    Gökhan

    (18 Ekim 2017 - 08:42)

    Merhaba öncelikle emekleriniz için teşekür ediyorum ancak bir sorunla karşılaştım
    Benim kullandığım netcad 7.6 versiyonu ve çalıştırdığım makro hata vermiyor ancak projeksiyon
    ayarıda yapmıyor malesef.
    Yardımcı olursanız sevinirim
    İyi günler

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.