Katman Adlarındaki Türkçe Karakterleri Dönüştüren Makro (Layer Name Turkish Character Conversion Macro)

Katman Adlarında Türkçe Karakterleri Otomatik Dönüştürme 🚀: Netcad Makrosu ile Hızlı Çözüm

Automatic Turkish Character Conversion in Layer Names 🚀: Fast Solution with Netcad Macro

Bu makro, Netcad yazılımında kullanılan katman (layer) adlarındaki Türkçe karakterleri (Ü, Ğ, İ, ı, Ş, Ç, Ö) otomatik olarak İngilizce karşılıklarına (U, G, I, I, S, C, O) dönüştürür. Katman adlarında Türkçe karakterlerin bulunması, bazı durumlarda uyumluluk sorunlarına veya veri aktarımında hatalara yol açabilir. Bu makro, tüm katman adlarını tarar, Türkçe karakterleri algılar ve uygun İngilizce karakterlerle değiştirir. Böylece projelerinizde daha temiz ve uyumlu bir veri yapısı elde edersiniz. Harita mühendisleri ve CAD kullanıcıları için zaman tasarrufu sağlayan pratik bir araçtır.

This macro automatically converts Turkish characters (Ü, Ğ, İ, ı, Ş, Ç, Ö) in layer names within Netcad software to their English equivalents (U, G, I, I, S, C, O). Turkish characters in layer names can sometimes cause compatibility issues or errors during data transfer. The macro scans all layer names, detects Turkish characters, and replaces them with appropriate English characters. This ensures a cleaner and more compatible data structure for your projects. It is a practical, time-saving tool for surveyors and CAD users.

Makro, Netcad ortamında çalışır ve aşağıdaki adımları izler:

1. Katman Tarama: Netcad projesindeki tüm katmanları (layers) tek tek tarar.
2. Karakter Dönüşümü: Her katman adını büyük harfe çevirir (UCASE fonksiyonu ile) ve ardından Türkçe karakterleri İngilizce karşılıklarıyla değiştirir. Örneğin, \”Ş\” karakteri \”S\” ile, \”İ\” karakteri \”I\” ile değiştirilir.
3. Değişiklik Kaydetme: Dönüştürülen katman adlarını projeye kaydeder.
4. Hızlı ve Güvenilir: Tüm katmanlar için bu işlemi hızlıca gerçekleştirir ve veri kaybına yol açmaz.

Bu işlem, özellikle büyük projelerde veya yabancı yazılımlarla veri alışverişi yaparken oldukça kullanışlıdır.

The macro operates within the Netcad environment and follows these steps:

Layer Scanning: Scans all layers in the Netcad project one by one.
Character Conversion: Converts each layer name to uppercase (using the UCASE function) and replaces Turkish characters with their English equivalents. For example, \”Ş\” is replaced with \”S,\” and \”İ\” is replaced with \”I.\”
Saving Changes: Saves the converted layer names to the project.
Fast and Reliable: Performs this process quickly across all layers without causing data loss.
This process is particularly useful for large projects or when sharing data with foreign software.

Netcad Makro, Türkçe Karakter Dönüştürme, Katman Adı Düzenleme, Harita Mühendisliği, CAD Otomasyon

Netcad Macro, Turkish Character Conversion, Layer Name Editing, Surveying, CAD Automation

📝 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 = ucase(.layer(i).name) ' Katman adını büyük harfe çevirir
      n = replace(n,"Ü","U")    ' Ü karakterini U ile değiştirir
      n = replace(n,"Ğ","G")    ' Ğ karakterini G ile değiştirir
      n = replace(n,"İ","I")    ' İ karakterini I ile değiştirir
      n = replace(n,"ı","I")    ' ı karakterini I ile değiştirir
      n = replace(n,"Ş","S")    ' Ş karakterini S ile değiştirir
      n = replace(n,"Ç","C")    ' Ç karakterini C ile değiştirir
      n = replace(n,"Ö","O")    ' Ö karakterini O ile değiştirir
 
 .Layer(i).name = n        ' Yeni katman adını kaydeder

 end with

 next

 end with

End Sub

netcad-tabaka-ad-turkce-karakter-cevir