Nokta Adlarını Küçük Harfe Çevirme Makrosu (Point Names to Lowercase Conversion Macro)

📝 Netcad ile Nokta Adlarını Küçük Harfe Çevirme: Hızlı ve Pratik Çözüm!

📝 Convert Point Names to Lowercase with Netcad: Fast and Practical Solution!

Bu makro, Netcad yazılımında seçilen noktaların adlarını (pname) küçük harfe çevirmek için tasarlanmıştır. Özellikle büyük harf içeren nokta adlarını standardize etmek isteyen kullanıcılar için oldukça kullanışlıdır. Makro, Türkçe karakterler olan \”İ\” ve \”I\” harflerini doğru bir şekilde \”i\” ve \”ı\” harflerine dönüştürür ve ardından tüm nokta adını küçük harfe çevirir. Netcad’in seçim seti (SelectionSet) ve nesne (Object) özelliklerini kullanarak hızlı bir şekilde çalışır. Bu işlem, büyük veri setlerinde bile etkili ve hatasız sonuçlar verir. Kullanıcı dostu arayüzü sayesinde, noktaları seçip işlemi kolayca tamamlayabilirsiniz. 🛠️

This macro is designed to convert the names (pname) of selected points in Netcad software to lowercase. It is highly useful for users who need to standardize point names containing uppercase letters. The macro correctly converts Turkish characters \”İ\” and \”I\” to \”i\” and \”ı\” respectively, then transforms the entire point name to lowercase. Utilizing Netcad’s SelectionSet and Object features, it operates efficiently even with large datasets, delivering accurate results. With its user-friendly interface, you can select points and complete the process effortlessly. 🛠️

Makro, Netcad ortamında çalışır ve şu adımları izler:

İşlem tamamlandıktan sonra ekran yenilenir ve kaynaklar serbest bırakılır.
Bu makro, özellikle büyük projelerde nokta adı düzenlemelerini hızlandırmak için idealdir. Netcad’in güçlü altyapısını kullanarak, kullanıcı hatalarını en aza indirir ve zamandan tasarruf sağlar. 🚀

Kullanıcıdan küçük harfe çevrilecek noktaları seçmesi istenir.

Seçilen her bir nokta nesnesi (object) için, nokta adı (pname) alınır.

Türkçe karakterler dikkate alınarak \”İ\” harfi \”i\”ye, \”I\” harfi ise \”ı\”ya dönüştürülür.

Ardından, lcase fonksiyonu ile tüm nokta adı küçük harfe çevrilir.

Değiştirilen nesne, Netcad veritabanına geri yazılır.

The macro operates within the Netcad environment and follows these steps:
Prompts the user to select points to convert their names to lowercase.
For each selected point object, retrieves its name (pname).
Converts Turkish characters \”İ\” to \”i\” and \”I\” to \”ı\”.
Uses the lcase function to convert the entire point name to lowercase.
Writes the modified object back to the Netcad database.
Refreshes the screen and releases resources upon completion.
Ideal for large projects, this macro streamlines point name editing, minimizes user errors, and saves time using Netcad’s robust infrastructure. 🚀

nokta adı düzenleme, küçük harfe çevirme, Netcad makro, Türkçe karakter desteği, veri standardizasyonu, CAD yazılımı, otomasyon, Netcad VBScript, nokta seçimi, metin düzenleme

point name editing, lowercase conversion, Netcad macro, Turkish character support, data standardization, CAD software, automation, Netcad VBScript, point selection, text editing

📝 Netcad NVB Code

'Yazan: Şaban GÜL, sabangul67@gmail.com, sabangul.com
'Yazan: Sabri Aydın
'Tarih: 05.11.2008
'Dil: VB
'Amaç: Nokta adlarını küçük harfe çevirmek
Sub Main
Dim i,j,o,SEL,u
with Netcad
set SEL = .NewSelectionSet
set o = .NewObject
if SEL.SELECT("Küçük harfe çevrilecek noktaları seçiniz. [SAGULCAD]",array(opoint)) then
for i = 0 to SEL.NE-1
j = SEL.GetSelectedObject(i, o)
o.pname=Replace(o.pname,"İ","i")
o.pname=Replace(o.pname,"I","ı")
o.pname=lcase(o.pname)
.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-nokta-kucuk-harf