Yazı Objelerinde Türkçe Karakter Çevirme Makrosu(Text Object Turkish Character Conversion Macro)

Yazı Objelerindeki Türkçe Karakterleri Otomatik Çeviren Makro

Automatically Convert Turkish Characters in Text Objects with This Macro

Bu makro, Netcad ortamında yalnızca yazı (text) objeleri üzerinde çalışarak Türkçe karakterleri (Ğ, Ü, Ş, İ, Ç, Ö) Latin alfabesindeki karşılıklarıyla (G, U, S, I, C, O) değiştirir. Harita, plan veya proje dosyalarında metin standartlaştırma işlemlerini hızlandırır. Özellikle veri aktarımı, dışa aktarma veya farklı sistemlerle uyumluluk sağlama süreçlerinde büyük kolaylık sağlar. Kullanıcı dostu arayüzü sayesinde, seçilen yazı objelerini tarar ve karakter dönüşümünü hatasız gerçekleştirir. 🗂️

This macro operates exclusively on text objects in the Netcad environment, converting Turkish characters (Ğ, Ü, Ş, İ, Ç, Ö) to their Latin alphabet equivalents (G, U, S, I, C, O). It streamlines text standardization in maps, plans, or project files. Ideal for data transfer, export, or compatibility with other systems, its user-friendly interface scans selected text objects and performs flawless character conversion. 🗂️

• Yazı Objesi Seçimi: Makro, Netcad’de bir seçim kümü oluşturur ve kullanıcıdan yalnızca yazı objelerini seçmesini ister.
• Metin Analizi: Seçilen her yazı objesi tek tek incelenir ve içerdiği metin okunur.
• Karakter Dönüşümü: Türkçe karakterler (ör. Ğ, Ü, Ş) Latin karşılıklarıyla (G, U, S) değiştirilir.
• Güncelleme ve Yenileme: Dönüştürülen metinler orijinal objelere kaydedilir ve ekran yenilenir.
• Sonuç: Tüm seçili yazı objelerindeki metinler standartlaştırılmış karakterlerle güncellenir.
• Makro, döngü yapısıyla her yazı objesini ayrı ayrı işler ve hata oluşumunu engeller. Kullanıcı, işlemi başlattıktan sonra otomatik tamamlanmayı bekler. ⚙️

• Text Object Selection: The macro creates a selection set in Netcad and prompts the user to select only text objects.
• Text Analysis: Each selected text object is examined, and its text content is read.
• Character Conversion: Turkish characters (e.g., Ğ, Ü, Ş) are replaced with their Latin equivalents (G, U, S).
• Update and Refresh: Converted texts are saved to the original objects, and the screen is refreshed.
• Result: All selected text objects are updated with standardized characters.
• The macro processes each text object individually in a loop, preventing errors. The user initiates the process and waits for automatic completion. ⚙️

Netcad Makro, Yazı Objesi, Türkçe Karakter Çevirme, Metin Standartlaştırma, Otomasyon, Harita Düzenleme, Veri Aktarımı, Karakter Dönüşümü, Netcad Otomasyonu, Metin Düzenleme, Proje Standartlaştırma, Türkçe Karakter Düzeltme, Hızlı Metin İşleme, CAD Otomasyonu, Harita Verimliliği

Netcad Macro, Text Object, Turkish Character Conversion, Text Standardization, Automation, Map Editing, Data Transfer, Character Conversion, Netcad Automation, Text Editing, Project Standardization, Turkish Character Correction, Fast Text Processing, CAD Automation, Map Efficiency

📝 Netcad NVB Code

Sub Main

  With Netcad

  Dim secimkumesi,obje,i,z

  set secimkumesi = .newselectionset

  set obje=.newobject

  if secimkumesi.select("Seçim",array(otext)) then

  for i=0 to secimkumesi.NE-1
     dim str
      z=secimkumesi.getselectedobject(i,obje)
      str=obje.s
         'Yazı objelerindeki Türkçe karakterleri düzelt
         str=str

         str=replace(str,"Ğ","G")
         str=replace(str,"ğ","g")

         str=replace(str,"Ü","U")
         str=replace(str,"ü","u")

         str=replace(str,"ö","o")
         str=replace(str,"Ö","O")

         str=replace(str,"Ç","C")
         str=replace(str,"ç","c")

         str=replace(str,"ş","s")
         str=replace(str,"Ş","S")

         str=replace(str,"ı","i")
         str=replace(str,"İ","I")

         obje.s=str
        .PutObject .curobjpos, obje

   
   .putobject z,obje

  Next

    secimkumesi.redrawandrewind

  End if

  End With

End Sub

netcad-yazi-turkce-karakter-duzelt