Türkçe Karakter Düzeltme Makrosu (Turkish Character Correction Macro) – tüm objeler – all object

Yazı, Nokta ve Alan Objesi Adlarında Türkçe Karakterleri Düzelten Makro ile Veri Yönetimini Kolaylaştırın! 🚀

Simplify Data Management with a Macro that Corrects Turkish Characters in Text, Point, and Area Object Names!

Bu makro, Netcad platformunda yazı (text), nokta (point) ve alan (area) objelerinin adlarında bulunan Türkçe karakterleri (Ğ, Ü, Ö, Ç, Ş, İ vb.) otomatik olarak Latin alfabesindeki karşılıklarıyla (G, U, O, C, S, I vb.) değiştirir. Örneğin, “Şehir Merkezi” adını “Sehir Merkezi”, “Çeşme” adını “Cesme” veya “Bölge İdaresi” adını “Bolge Idaresi” olarak düzenler. Bu işlem, veri paylaşımı, dışa aktarım veya sistem uyumluluğu gibi süreçlerde Türkçe karakterlerden kaynaklanan sorunları çözer. Makro, seçilen objelerin adlarını tarar, Türkçe karakterleri tespit eder ve yerine uygun Latin harflerini yerleştirir. Kullanıcı dostu arayüzü ve hızlı çalışmasıyla, özellikle GIS uzmanları, mühendisler ve şehir plancıları için büyük bir zaman tasarrufu sağlar. Büyük veri setleriyle çalışırken veri bütünlüğünü korur ve iş akışını optimize eder.

This macro automatically replaces Turkish characters (e.g., Ğ, Ü, Ö, Ç, Ş, İ) in the names of text, point, and area objects within the Netcad environment with their Latin alphabet equivalents (e.g., G, U, O, C, S, I). For example, it converts “Şehir Merkezi” to “Sehir Merkezi,” “Çeşme” to “Cesme,” or “Bölge İdaresi” to “Bolge Idaresi.” This resolves issues caused by Turkish characters during data sharing, exporting, or system compatibility. The macro scans the names of selected objects, identifies Turkish characters, and replaces them with appropriate Latin letters. With its user-friendly interface and fast operation, it saves significant time for GIS professionals, engineers, and urban planners. It ensures data integrity and optimizes workflows, especially when handling large datasets.

• Seçim: Kullanıcı, Netcad’de düzenlemek istediği objeleri (alan, yazı, nokta vb.) seçer.
• Tarama: Makro, seçilen her objenin pname (ad) özelliğini alır.
• Düzeltme: Türkçe karakterler (Ğ, Ü, Ö, Ç, Ş, İ vb.) Latin karşılıklarıyla (G, U, O, C, S, I vb.) değiştirilir.
• Güncelleme: Yeni adlar objelere atanır ve Netcad veritabanına kaydedilir.
• Yenileme: Ekran yenilenir, değişiklikler görselleştirilir.
• Önce: Bir yazı objesinin adı “Şehir Merkezi”, bir nokta objesinin adı “Çeşme”, bir alan objesinin adı “Bölge İdaresi”. Sonra: Makro çalıştıktan sonra sırasıyla “Sehir Merkezi”, “Cesme”, “Bolge Idaresi” olur.

• Obje Türü Kontrolü: Eğer yalnızca belirli obje türlerini (örneğin, sadece yazı veya sadece nokta) hedeflemek isterseniz, Array(opAll) yerine Array(opText) (yazı için) veya Array(opPoint) (nokta için) gibi spesifik obje türlerini kullanabilirsiniz.
• Hata Önleme: Seçim yapılmadan çalıştırıldığında makro, If secimkumesi.Select koşulu sayesinde hata vermez.
• Performans: Büyük veri setlerinde çalışırken, Netcad’in performansına bağlı olarak işlem süresi artabilir.

The macro is written in VBScript for the Netcad platform. It operates through the following steps:

• The user selects the objects to be edited in Netcad.
• The macro scans the names of the selected objects one by one.
• Turkish characters (e.g., “Ş”, “Ç”, “İ”) are identified and replaced with their Latin equivalents (e.g., “S”, “C”, “I”).
• The updated object names are saved back to the Netcad database.
• Finally, the screen is refreshed to display the changes.
• This process is fast, error-free, and requires no user intervention. The macro only affects selected objects, ensuring data integrity.

Türkçe Karakter Düzeltme, Netcad Makro, Veri Düzenleme, GIS Makro, Otomasyon, Yazı Objesi, Nokta Objesi, Alan Objesi

Turkish Character Correction, Netcad Macro, Data Management, GIS Macro, Automation, Text Object, Point Object, Area Object

📝 Netcad NVB Code

' Yazan : 
' Tarih : 30.03.2010 (Düzenleme: 14.05.2025)
' Açıklama : Yazı, nokta ve alan objesi adlarında Türkçe karakter düzeltme makrosu

Sub Main

  With Netcad

    Dim secimkumesi, obje, i, z

    Set secimkumesi = .NewSelectionSet
    Set obje = .NewObject

    ' Kullanıcıdan obje seçimi (alan, yazı, nokta vb. tüm objeler için)
    If secimkumesi.Select("Seçim", Array(opline,otext,opoint)) Then

      For i = 0 To secimkumesi.NE - 1
        Dim str
        z = secimkumesi.GetSelectedObject(i, obje)
        str = obje.pname
msgbox ( sadece alanlarda yaptım )
        ' Türkçe karakterleri düzelt
        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")

        ' Yeni obje adını kaydet
        obje.pname = str
        .PutObject z, obje

      Next

      ' Ekranı yenile
      secimkumesi.RedrawAndRewind

    End If

  End With

End Sub

netcad-tum-objelerde-turkce-karakter-cevir