Tüm Tabakaların Renginin Değiştirilmesi (Netcad Makro)

Makro Hakkında:

  • Netcad projenizdeki tüm tabakaları tek renk yapmaya yarar
  • Renk Kodunu Girip tamama basınız. Renk kodlarını netcadde tabaka rengini tıklayarak görebilirsiniz.
  • Kilitli Tabakalarda Yapılmasın tıklarsanız kilitli tabakalarda renk değiştirme işlemi uygulanmaz
  • Basit Düzey Makro Sınıfındadır.
  • Makroda Üzerinde Çalıştığımız Gelişmeler:
    • Bu makroda geliştirmeyi düşündüğümüz herhangi bir algoritma yoktur.
  • Etiketler: Orta 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, tabaka, tabaka rengi değiştir, kilitli tabaka, toplu tabaka değiştir

Uyarılar:

  • Yapılan işlemde önceki tabaka renkleri korunmayacaktır. Bir önceki tabaka renklerini korumak için netcad’in tabaka yapısı saklama işlevini kullanabilirsiniz.
  • Yapılan işlemde tüm tabakalar tek renk olacaktır.
  • Bu işlem tüm tabakalara uygulanır.
  • Bu İşlem Geri Alınmaz
  • Netcad makrolarında hiçbir metni veya karakteri değiştirmeyiniz. Aksi halde makro işlevsiz hale gelebilir veya hatalı işlev ile karşılaşabilirsiniz.

İndirme Linkleri:

İndirme Linki-1: Google Drive ( Harita Akademi )

Makro Açık Kaynak Kodu:

' 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.

Sub Main
 Dim i
 dim a
 dim bd,ruhan ,elifyaren
 with Netcad





set BD = Netcad.NewBDialog("Tüm Tabakaların Renginin Değiştirilmesi [Harita Akademi, Şaban GÜL]")
 BD.Getfloat "sagulnet","Renk Kodu Giriniz ( Siyah:0 )",0,0
 BD.GETCHECK "sagulnet2","Kilitli Tabakalarda Yapılmasın",1
 if BD.showmodal then
 ruhan=round(BD.ValueByName("sagulnet"),0)
 elifyaren=BD.ValueByName("sagulnet2")
 else
 exit sub
 end if
 for i= 0 to .NumLayers-1

with nclayermanager
 if elifyaren=1 and .layer(i).LockActive=TRUE then
 else
 .Layer(i).color = ruhan

end if

end with

next

.netcadcommand("REGEN")



end with

End Sub

 

Yazar: Şaban GÜL

Zonguldak doğumlu, mutlu ve gururlu Harita Mühendisiyim. Bir gün bu piyasa arazi bilecen yiğenim, totali görecen, jalon tutacan, elle kroki çizecen diyen amcalara değil; Drone uçuran, kendi yazılımlarını yapan, yazılım kullanan değil yazılım üreten, fotogrametri bilen Genç Mühendislere kalacak. İşte o zaman herşey farklı olacak. O gün geliyor

2 thoughts on “Tüm Tabakaların Renginin Değiştirilmesi (Netcad Makro)

    Enver

    (4 Ekim 2017 - 15:24)

    Meraba Şaban Bey ,
    makroyu indirdim makro menü düzenleyiciden ekledim.menü olarak geldi fakat tıkladığımda çalışmıyor.Ancak uygulama geliştirme -makro çalıştır dediğimde ise çalışıyor.normalde menü olarak ekleyemiyormuyuz.

    İyi çalışmalar,kolay gelsin

      Şaban GÜL

      (4 Ekim 2017 - 14:34)

      Ekleyebilirsiniz, farklı bir durum söz konusu sanırım. Makrolar menü olarak eklenebilir

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.