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.

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