Nokta İsimlerini İlk Harf Büyük Sonra Küçük Harfe Çevirme Makrosu (Capitalize First Letter and Lowercase Rest for Point Names Macro)

🔥 Netcad\’de Nokta İsimlerini İlk Harf Büyük, Sonra Küçük Harfe Çeviren Kullanıcı Dostu VBScript Makrosu 🛠️

Streamline Point Names in Netcad with a User-Friendly VBScript Macro for Title Case Formatting

Bu makro, Netcad yazılımında seçilen nokta objelerinin isimlerini (pname) Türkçeye özgü kurallara uygun şekilde düzenler. Nokta isimlerini ilk harfi büyük, geri kalan harfleri küçük harf olacak şekilde formatlar ve Türkçe karakterler (\”İ\”, \”ı\” gibi) için doğru dönüşümleri yapar. Gereksiz boşlukları kaldırır, isimleri önce tamamen küçük harfe çevirir, ardından ilk harfi büyük harfe dönüştürür. Harita ve CAD projelerinde veri tutarlılığı sağlar, özellikle büyük veri setlerinde hızlı ve güvenilir çalışır. Kullanıcı dostu arayüzü sayesinde noktaları kolayca seçip işlem yapabilirsiniz.

This macro formats the names (pname) of selected point objects in Netcad according to Turkish language rules. It capitalizes the first letter and converts the rest to lowercase, ensuring proper handling of Turkish characters (\”İ\”, \”ı\”). It trims unnecessary spaces, converts names to lowercase initially, then capitalizes the first letter. Ideal for maintaining data consistency in mapping and CAD projects, it performs reliably even with large datasets. Its user-friendly interface allows easy point selection and processing.

Makro, Netcad ortamında şu şekilde çalışır:

İşlem tamamlandıktan sonra ekran yenilenir ve seçim seti sıfırlanır.
Makro, Netcad’in VBScript altyapısını kullanarak yüksek performansla çalışır ve büyük projelerde bile hatasız sonuçlar üretir.

Kullanıcıya noktaları seçmesi için bir arayüz sunulur (\”Başharfleri büyütülecek noktaları seçiniz\” mesajı).

Seçilen noktalar bir seçim setine (SEL) kaydedilir.

Her nokta için HarfDuzelt alt yordamı çalıştırılır.

HarfDuzelt yordamı şu işlemleri yapar:

Nokta ismini temizler (başta ve sondaki boşlukları kaldırır).

Türkçe karakterleri doğru şekilde dönüştürür (\”İ\” → \”i\”, \”I\” → \”ı\”).

İsmi tamamen küçük harfe çevirir.

İlk harfi büyük harfe dönüştürür (örneğin, \”i\” → \”İ\”, \”ı\” → \”I\”).

Türkçe karakter kurallarına uygun olarak son ismi oluşturur ve noktaya uygular.

How It Works: The macro operates in Netcad as follows:
Prompts the user to select points via an interface (\”Select points to capitalize\”).
Stores selected points in a selection set (SEL).
Runs the HarfDuzelt subroutine for each point.
The HarfDuzelt subroutine:
Trims leading and trailing spaces from the point name.
Converts Turkish characters appropriately (\”İ\” → \”i\”, \”I\” → \”ı\”).
Converts the entire name to lowercase.
Capitalizes the first letter (e.g., \”i\” → \”İ\”, \”ı\” → \”I\”).
Applies the formatted name to the point.
Refreshes the screen and clears the selection set.
Built on Netcad’s VBScript framework, the macro delivers high performance and error-free results, even in large projects.

,NetcadMakro, ,VBScript, ,TürkçeKarakter, ,NoktaİsimDüzenleme, ,CADProgramlama, ,MakroOtomasyon, ,NetcadOtomasyon, ,VeriDüzenleme, ,HaritaYazılımı, ,TürkçeHarfDüzeltme, ,NoktaFormatlama, ,CADMakro, ,VBScriptProgramlama, ,NetcadKullanıcıları, ,OtomasyonAraçları, ,HaritaVeriYönetimi, ,TürkçeVeriİşleme, ,Netcadİpuçları, ,CADVeriTutarlılığı, ,MakroGeliştirme

,NetcadMacro, ,VBScript, ,TurkishCharacters, ,PointNameFormatting, ,CADProgramming, ,MacroAutomation, ,NetcadAutomation, ,DataFormatting, ,MappingSoftware, ,TurkishLetterCorrection, ,PointFormatting, ,CADMacro, ,VBScriptProgramming, ,NetcadUsers, ,AutomationTools, ,MappingDataManagement, ,TurkishDataProcessing, ,NetcadTips, ,CADDataConsistency, ,MacroDevelopment

📝 Netcad NVB Code

Sub Main
Dim i,j,o,SEL,u
  with Netcad
     set SEL = .NewSelectionSet
     set o = .NewObject
    ' Kullanıcıdan noktaları seçmesini isteyen seçim ekranı
    if SEL.SELECT("Başharfleri büyütülecek noktaları seçiniz. [SAGULCAD]",array(opoint)) then
      for i = 0 to SEL.NE-1
        j = SEL.GetSelectedObject(i, o)
          HarfDuzelt o
        .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

Sub HarfDuzelt(o)
dim i,str,k
o.pname=trim( o.pname) ' Boşlukları temizler
 o.pname=Replace( o.pname,"İ","i") ' Türkçe karakter dönüşümü: İ → i
 o.pname=Replace( o.pname,"I","ı") ' Türkçe karakter dönüşümü: I → ı
 o.pname=lcase(o.pname) ' Tüm harfleri küçük harfe çevirir
 o.pname=Replace( o.pname," ı"," I") ' Boşluk sonrası I düzeltmesi
 o.pname=Replace( o.pname," i"," İ") ' Boşluk sonrası İ düzeltmesi
str=left(o.pname,1)
if str="i" then str="İ" ' İlk harf i ise İ yap
if str="ı" then str="I" ' İlk harf ı ise I yap
   str=ucase(str) ' İlk harfi büyük harfe çevir
     for i=2 to len(o.pname)
       if mid(o.pname,i-1,1)<"A" then
        str=str+ucase(mid(o.pname,i,1)) ' Önceki harf A'dan küçükse büyüt
       else
        str=str+mid(o.pname,i,1) ' Diğer harfleri olduğu gibi bırak
        end if
      next
 o.s=str ' Son ismi noktaya uygula
end sub

netcad-nokta-adi-ilk-harf-buyuk