Yazı Objelerinde Tüm Harfleri Büyük Harfe Çevirme (Convert All Characters in Text Objects to Uppercase)

📝 Netcad’de Yazı Objelerini Hızlıca Büyük Harfe Çeviren Kullanışlı VBScript Makrosu

🌟 Handy VBScript Macro to Swiftly Convert Text Objects to Uppercase in Netcad

Bu makro, Netcad yazılımında seçilen yazı objelerinin tüm harflerini büyük harfe çevirmek için geliştirilmiştir. Türkçe karakterler için özel dönüşümler (örneğin, “i” → “İ” ve “ı” → “I”) yaparak metin düzenlemelerini hatasız ve hızlı bir şekilde gerçekleştirir. Kullanıcı, düzenlemek istediği metinleri seçer; makro, seçilen metinleri büyük harfe çevirir ve ekranı yenileyerek sonucu gösterir. Harita, plan veya teknik çizimlerde metin düzenleyen CAD kullanıcıları için oldukça pratik bir çözümdür.

This macro is developed to convert all characters in selected text objects to uppercase in Netcad software. It performs accurate conversions for Turkish characters (e.g., “i” to “İ” and “ı” to “I”), ensuring error-free and fast text editing. Users select the texts to edit, and the macro converts them to uppercase, refreshing the screen to display the result. It’s a highly practical solution for CAD users editing texts in maps, plans, or technical drawings.

• Makro, Netcad platformunda şu şekilde çalışır:
• Ekran, güncellenmiş metinlerle yenilenir.
  Makro, işlem sonunda seçim setlerini ve nesneleri temizleyerek sistem kaynaklarını korur.
• Kullanıcıdan yazı objelerini seçmesi istenir.
• Seçilen her bir yazı objesi sırayla işlenir.
• Türkçe karakterler için özel düzenlemeler yapılır: “i” → “İ” ve “ı” → “I”.
• Metin, ucase fonksiyonu kullanılarak tamamen büyük harfe çevrilir.
• Dönüştürülen metin, orijinal yazı objesine geri kaydedilir.

• Prompts the user to select text objects.
• Processes each selected text object sequentially.
• Applies special adjustments for Turkish characters: “i” to “İ” and “ı” to “I”.
• Converts the text entirely to uppercase using the ucase function.
• Saves the converted text back to the original text object.
• Refreshes the screen to show updated texts.
• The macro cleans up selection sets and objects at the end to preserve system resources.

Netcad, VBScript, makro, yazı objesi, büyük harf, metin düzenleme, Türkçe karakter, CAD, harita düzenleme, plan çizimi, metin dönüştürme, otomasyon, Netcad makro, metin formatlama, hızlı düzenleme, teknik çizim

Netcad, VBScript, macro, text object, uppercase, text editing, Turkish characters, CAD, map editing, plan drawing, text conversion, automation, Netcad macro, text formatting, quick editing, technical drawing

📝 Netcad NVB Code

Sub Main
Dim i,j,o,SEL,u
  with Netcad
     ' Yeni bir seçim seti oluştur
     set SEL = .NewSelectionSet
     ' Yeni bir nesne oluştur
     set o = .NewObject
    ' Kullanıcıdan metin nesnelerini seçmesini iste
    if SEL.SELECT("Büyük harfe çevrilecek yazıları seç.",array(otext)) then
      ' Seçilen her nesneyi döngüyle işle
      for i = 0 to SEL.NE-1
        ' Nesneyi al
        j = SEL.GetSelectedObject(i, o)
        ' Türkçe karakter dönüşümleri
        o.s=Replace( o.s,"i","İ")
        o.s=Replace( o.s,"ı","I")
        ' Metni büyük harfe çevir
        o.s=ucase(o.s)
        ' Nesneyi güncelle
        .putobject j, o
       next
       ' Ekranı yenile
       SEL.RedrawAndRewind
       ' Mevcut pencereyi al
       set u=.GetCurrentWindow
       ' Pencereyi güncelle
      .SetCurrentWindow u,1
     end if
    ' Nesneleri temizle
    set u=nothing
    set SEL = nothing
    set o = nothing
   end with
end sub

netcad-yazi-tumu-buyuk-harf