Alan Adı Küçük Harfe Çevirme Makrosu (Convert to Polygon Name Lowercase Macro)

Alan Objelerinde Harfleri Küçük Harfe Çeviren Pratik Çözüm 🚀

A Practical Solution to Convert Field Objects to Lowercase 🚀

Bu makro, NetCAD ortamında seçilen alan objelerinin isimlerini (pname) tamamen küçük harfe çevirir. Türkçe karakterler olan “İ” ve “I” harflerini doğru bir şekilde “i” ve “ı” olarak dönüştürür. Kullanıcı dostu bir arayüzle, seçilen objeler üzerinde hızlı ve hatasız bir şekilde işlem yapar. Özellikle büyük veri setlerinde manuel düzenleme zahmetini ortadan kaldırarak zaman tasarrufu sağlar. Türkçe karakter uyumluluğu sayesinde, yerel projelerde sıkça karşılaşılan sorunları çözer.

This macro converts the names (pname) of selected field objects in the NetCAD environment to lowercase. It accurately transforms Turkish characters “İ” to “i” and “I” to “ı”. With a user-friendly interface, it processes selected objects quickly and error-free. It saves time by eliminating manual editing in large datasets and resolves common issues in local projects with Turkish character compatibility.

Makro, NetCAD ortamında bir seçim kümesi (SelectionSet) oluşturur ve kullanıcıdan küçük harfe çevrilecek objeleri seçmesini ister. Seçilen her obje için:

Güncellenen obje, NetCAD veritabanına geri yazılır.
İşlem tamamlandıktan sonra ekran yenilenir ve kaynaklar serbest bırakılır. Bu süreç, veri tutarlılığını korurken hızlı bir şekilde tamamlanır.

Objenin adı (pname) alınır.

Türkçe karakterler “İ” ve “I” sırasıyla “i” ve “ı” ile değiştirilir.

Tüm harfler lcase fonksiyonu ile küçük harfe çevrilir.

The macro creates a selection set in the NetCAD environment and prompts the user to select objects to convert to lowercase. For each selected object:

The object’s name (pname) is retrieved.
Turkish characters “İ” and “I” are replaced with “i” and “ı”, respectively.
All characters are converted to lowercase using the lcase function.
The updated object is written back to the NetCAD database.
After completion, the screen is refreshed, and resources are released, ensuring data consistency and efficiency.

küçük harfe çevirme, NetCAD makro, Türkçe karakter, veri düzenleme, otomasyon, alan objeleri, VBScript, hızlı çözüm, veri tutarlılığı,

lowercase conversion, NetCAD macro, Turkish characters, data editing, automation, field objects, VBScript, quick solution, data consistency

📝 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("Küçü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 yapar
o.pname=Replace( o.pname,"I","ı") ' Türkçe I harfini ı yapar
o.pname=lcase(o.pname) ' Tüm harfleri küçü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-kucuk-harf