Tabaka Adlarını Büyük Harfe Çevirme Makrosu (Layer Name to Uppercase Macro)

Netcad’de Tabaka Adlarını Büyük Harfe Çeviren Pratik VBScript Makrosu 🚀

Practical VBScript Macro to Convert Layer Names to Uppercase in Netcad 🚀

Bu makro, Netcad yazılımında kullanılan tabaka (layer) adlarını hızlı ve etkili bir şekilde büyük harfe çevirir. Türkçe karakterler (Ü, Ğ, İ, Ş, Ç, Ö vb.) içeren tabaka adlarını, ASCII uyumlu karakterlere (U, G, I, S, C, O) dönüştürerek standart bir format sağlar. Bu işlem, özellikle projelerde tabaka adlarının düzenli ve uyumlu olmasını isteyen harita mühendisleri için oldukça kullanışlıdır. Makro, tüm tabaka adlarını tarar, Türkçe karakterleri değiştirir ve adları büyük harfe çevirir. Hızlı, güvenilir ve kullanımı kolay bir araçtır. 🛠️

This macro quickly and effectively converts layer names in Netcad software to uppercase. It transforms Turkish characters (Ü, Ğ, İ, Ş, Ç, Ö, etc.) into ASCII-compatible characters (U, G, I, S, C, O), ensuring a standardized format. Ideal for survey engineers who need consistent and organized layer names in their projects, this macro scans all layer names, replaces Turkish characters, and converts them to uppercase. It’s fast, reliable, and easy to use. 🛠️

Makro, Netcad yazılımında çalışan bir VBScript kodudur ve tabaka adlarını düzenlemek için tasarlanmıştır. Çalışma mantığı şu şekildedir:

Netcad’deki tüm tabakalar döngüye alınır.
Her tabaka adı tek tek kontrol edilir.
Türkçe karakterler (Ü, Ğ, İ, Ş, Ç, Ö vb.) ilgili ASCII karakterleriyle değiştirilir (örneğin, Ü → U, Ş → S).
Küçük harfler büyük harfe çevrilir.
Yeni tabaka adı kaydedilir ve işlem diğer tabakalara devam eder.
Bu makro, özellikle büyük projelerde tabaka adlarını standartlaştırmak ve okunabilirliği artırmak için idealdir. Netcad kullanıcıları, bu makroyu çalıştırarak zaman tasarrufu sağlar ve projelerini daha düzenli hale getirir. ⚙️

*The macro is a VBScript code designed to organize layer names in Netcad software. Here’s how it works:

All layers in Netcad are looped through.
Each layer name is checked individually.
Turkish characters (Ü, Ğ, İ, Ş, Ç, Ö, etc.) are replaced with their ASCII equivalents (e.g., Ü → U, Ş → S).
Lowercase letters are converted to uppercase.
The updated layer name is saved, and the process continues with the next layer.
This macro is perfect for standardizing layer names in large projects, improving readability, and saving time for Netcad users. ⚙️*

Netcad makro, tabaka adı düzenleme, büyük harf makrosu, Türkçe karakter dönüştürme, harita mühendisliği, VBScript, proje düzenleme

Netcad macro, layer name editing, uppercase macro, Turkish character conversion, survey engineering, VBScript, proje organization

📝 Netcad NVB Code

' 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

for i= 0 to .NumLayers-1

with nclayermanager

 dim n
 n=   .Layer(i).name

      n = replace(n,"Ü","U")
      n = replace(n,"Ğ","G")
      n = replace(n,"İ","I")
      n = replace(n,"ı","I")
      n = replace(n,"Ş","S")
      n = replace(n,"Ç","C")
      n = replace(n,"Ö","O")
      n = replace(n,"ü","u")
      n = replace(n,"ğ","g")
      n = replace(n,"ş","s")
      n = replace(n,"ö","o")
      n = replace(n,"ç","c")
 .Layer(i).name = n

end with

next

end with

End Sub

netcad-tabaka-ad-buyuk-harf