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

Nokta Adlarını Hızlı ve Kolay Büyük Harfe Çevirin! 🚀

Transform Point Names to Uppercase Quickly and Easily!

Bu makro, NetCAD ortamında seçilen noktaların adlarını (pname) büyük harfe çevirir. Kullanıcı dostu bir arayüzle, belirli noktaları seçmenize olanak tanır ve seçilen her noktanın adını otomatik olarak büyük harfe dönüştürür. Özellikle büyük projelerde, nokta adlarını standartlaştırmak ve okunabilirliği artırmak için oldukça kullanışlıdır. NetCAD kullanıcıları için zaman tasarrufu sağlar ve veri düzenlemesini kolaylaştırır.

This macro converts the names (pname) of selected points in the NetCAD environment to uppercase. With a user-friendly interface, it allows you to select specific points and automatically transforms their names to uppercase. It’s particularly useful in large projects to standardize point names and improve readability. It saves time and simplifies data organization for NetCAD users.

Makro çalıştırıldığında, kullanıcıdan büyük harfe çevrilecek noktaları seçmesi istenir. Seçilen her noktanın adı (pname) UCase fonksiyonu ile büyük harfe dönüştürülür. Dönüştürülen isimler NetCAD veritabanına kaydedilir. İşlem tamamlandıktan sonra, ekran yenilenir ve mevcut pencere korunur. Bellek yönetimi için kullanılan nesneler (selection set, object, window) temizlenir.
Bu makro, hızlı ve hatasız bir şekilde nokta adlarını düzenler, projelerinizde profesyonel bir görünüm sağlar.

When the macro is run, it prompts the user to select points to convert to uppercase. Each selected point’s name (pname) is converted to uppercase using the UCase function. The updated names are saved to the NetCAD database. After completion, the screen is refreshed, and the current window is preserved. Objects used (selection set, object, window) are cleared for memory management.
This macro organizes point names quickly and accurately, ensuring a professional look for your projects.

nokta adları, büyük harf, NetCAD makro, veri düzenleme, CAD otomasyon, Şaban GÜL, SAGULCAD, proje yönetimi, harita mühendisliği, CAD yazılımı

point names, uppercase, NetCAD macro, data organization, CAD automation, Şaban GÜL, SAGULCAD, project management, surveying engineering, CAD software

📝 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 noktaları seçiniz. [SAGULCAD]",array(opoint)) then
       for i = 0 to SEL.NE-1
         j = SEL.GetSelectedObject(i, o)
         o.pname=ucase(o.pname) ' Nokta 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-nokta-adi-buyuk-harf