Alan Adlarını Büyük Harfe Çevirme Makrosu (Convert Field Names to Uppercase)

📌 Alan Adlarını Büyük Harfe Çeviren Pratik ve Hızlı Makro Çözümü

Practical and Fast Macro Solution for Converting Field Names to Uppercase

Bu makro, Netcad ortamında seçilen nesnelerin alan adlarını (pname) büyük harfe çevirir. Türkçe karakterler olan “İ” ve “I” harflerini doğru şekilde işler (“İ” → “i”, “I” → “ı”) ve ardından tüm metni büyük harfe dönüştürür. Kullanıcı dostu bir seçim ekranı ile çalışır ve seçilen nesnelerin alan adlarını toplu olarak günceller. Netcad projelerinde veri düzenlemesini kolaylaştırır ve standart bir format sağlar

This macro converts the field names (pname) of selected objects in the Netcad environment to uppercase. It correctly handles Turkish characters “İ” and “I” (“İ” → “i”, “I” → “ı”) and then transforms the entire text to uppercase. It features a user-friendly selection interface and updates the field names of selected objects in bulk. It simplifies data organization in Netcad projects and ensures a standardized format.

Seçim Aşaması: Kullanıcıya bir seçim penceresi açılır ve “Büyük harfe çevrilecek alanları seçiniz” mesajı gösterilir. Sadece çizgi (opline) nesneleri seçilebilir. Karakter Dönüşümü: Seçilen her nesnenin alan adı (pname) alınır. Türkçe karakterler Replace fonksiyonu ile doğru şekilde dönüştürülür (“İ” → “i”, “I” → “ı”). Büyük Harfe Çevirme: Alan adı ucase fonksiyonu ile tamamen büyük harfe çevrilir. Güncelleme ve Yenileme: Değiştirilen nesneler Netcad ortamına geri yazılır, ekran yenilenir ve mevcut pencere korunur. Hafıza Temizliği: Kullanılan nesneler (seçim seti, nesne, pencere) serbest bırakılır, böylece bellek optimize edilir.

Selection Phase: A selection window prompts the user to “Select the fields to convert to uppercase.” Only line (opline) objects can be selected.
Character Conversion: The field name (pname) of each selected object is retrieved. Turkish characters are converted correctly using the Replace function (“İ” → “i”, “I” → “ı”).
Uppercase Conversion: The field name is converted to uppercase using the ucase function.
Update and Refresh: Modified objects are written back to the Netcad environment, the screen is refreshed, and the current window is preserved.
Memory Cleanup: Used objects (selection set, object, window) are released to optimize memory usage.

Netcad makro, alan adı düzenleme, büyük harf çevirme, Türkçe karakter desteği, veri standartlaştırma, otomasyon, Netcad script, veri işleme, CAD otomasyonu, makro kodları

Netcad macro, field name editing, uppercase conversion, Turkish character support, data standardization, automation, Netcad script, data processing, CAD automation, macro codes

📝 Netcad NVB Code

' Şaban GÜL, sabangul67@gmail.com, sabangul.com
Sub Main
Dim i,j,o,SEL,u
  with Netcad
     set SEL = .NewSelectionSet
     set o = .NewObject
     if SEL.SELECT("Büyük harfe çevrilecek alanları seçiniz. [SAGULCAD]",array(opline)) then
       for i = 0 to SEL.NE-1
         j = SEL.GetSelectedObject(i, o)
         o.pname=Replace(o.pname,"İ","i") ' Türkçe İ harfini i'ye çevirir
         o.pname=Replace(o.pname,"I","ı") ' Türkçe I harfini ı'ya çevirir
         o.pname=ucase(o.pname) ' Alan adını büyük harfe çevirir
         .putobject j, o
       next
     SEL.RedrawAndRewind
     set u=.GetCurrentWindow
     .SetCurrentWindow u,1
     end if
     set u=nothing
     set SEL = nothing
     set o = nothing
  end with
end sub

netcad-alan-ad-buyuk-harf