Gelişmiş Tabaka İsmi Değiştirme (Netcad Makro)

Makro Hakkında:

Netcad projenizdeki tabakaların isimlerini toplu bir şekilde değişimini, bul değiştir işlemi yapmaya, tabakanın başına veya sonuna metin eklemeye yarar.

14.02.2024 Tarihli Duyurumuz: Bu sayfadaki makrolarımız 10 yıl önce hazırlanmış olup artık desteklenmemekte ve daha geliştirilmiş versiyonu SAGULCAD modülü ile yine ücretsiz sunulmaktadır. Aşağıda verilen Bağlantılar hala çalışmaktadır fakat en geç 31.12.2025 tarihinde kaldırılması planlanmaktadır. Aynı makroyu SAGULCAD modülü içerisinde bulabileceğinizi unutmayınız. Lütfen aşağıdaki makroları kullanmayınız.

Uyarılar:

• Yapılan işlemde önceki tabaka isimleri korunmayacaktır.
• Tabaka isimlerinde lütfen türkçe veya özel karakter kullanmayınız
• Netcad en fazla 256 tabaka üretebilir. Bunu gözönünde bulundurunuz
• Netcad tabaka adı en fazla 20 karakter olabilir.
• Bu iş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,BD,BD2
 dim sagul,sagul2
 dim sabangul1,sabangul2,sabangul3,sabangul4,sabangul5
 dim sabangul,elifyaren
 with Netcad

set BD2 = Netcad.NewBDialog(\"Tabaka İsmi Değiştirme [Harita Akademi, Şaban GÜL]\")



BD2.PutPrompt \"Yapılan İşlemde Öncelikle Tabaka İsminin başına\"
 BD2.PutPrompt \"Sonra Sonuna, en son Bul Değiştir işlemleri yapılır. \"
 BD2.PutPrompt \"Metin Ekleme en fazla 3 karakter sınırındadır\"
 BD2.PutPrompt \" \"
 BD2.PutPrompt \"NETCADDE TABAKA ADI EN FAZLA 20 KARAKTERDİR.\"
 BD2.PutPrompt \" \"

if BD2.showmodal then
 else
 exit sub
 end if



set BD = Netcad.NewBDialog(\"Gelişmiş Nokta İsmi Değiştirme [Harita Akademi, Şaban GÜL]\")

BD.PutPrompt \"Tabaka Adının Başına ve Sonuna Metin Ekleme\"
 BD.Getstring \"elifyaren1\",\"Başına Ekle:\",\"\", 3
 BD.Getstring \"elifyaren2\",\"Sonuna Ekle:\",\"\", 3
 BD.PutPrompt \" \"
 BD.PutPrompt \"Tabaka Adında Bul Değiştir Yapma\"
 BD.Getstring \"elifyaren3\",\"Eski Metin:\",\"\", 50
 BD.Getstring \"elifyaren4\",\"Yeni Metin:\",\"\", 50
 BD.PutPrompt \" \"





if BD.showmodal then
 sabangul1= BD.ValueByName(\"elifyaren1\")
 sabangul2= BD.ValueByName(\"elifyaren2\")
 sabangul3= BD.ValueByName(\"elifyaren3\")
 sabangul4= BD.ValueByName(\"elifyaren4\")



for i= 0 to .NumLayers-1

with nclayermanager
 elifyaren=.Layer(i).name

sabangul= sabangul1 & elifyaren
 sabangul=sabangul & sabangul2
 sabangul=replace(sabangul,sabangul3,sabangul4)
 .Layer(i).name = sabangul

end with



next
 end if

end with

End Sub