Yazı Objelerinde Tüm Harfleri Küçük Harf Yapma (Convert All Characters in Text Objects to Lowercase)

✨ Netcad\’de Yazı Objelerini Hızla Küçük Harfe Çeviren Pratik Makro Kodu 🚀

Effortlessly Convert Text Objects to Lowercase in Netcad with This Handy Macro Code

Bu makro, Netcad ortamında seçilen yazı objelerinin içeriğini tamamen küçük harfe çevirmek için geliştirilmiştir. Kullanıcı, metin nesnelerini seçer ve bu makro, seçilen tüm metinlerin harflerini otomatik olarak küçük harfe dönüştürür. Büyük ölçekli projelerde metin düzenlemelerini standardize etmek, tutarlılık sağlamak ve zaman tasarrufu yapmak için ideal bir çözümdür. Netcad\’in VBScript diliyle yazılmış bu makro, metin nesnelerini hızlıca işler ve sonuçları anında çizim ekranında gösterir. 🖌️

The macro operates in the Netcad environment as follows:

Creating a Selection Set: A new selection set (SelectionSet) is created, allowing only text objects (otext) to be selected.
Text Selection: A dialog box instructs the user to select the text objects to be converted to lowercase.
Conversion Process: Each selected text object is processed in sequence, its content is converted to lowercase using the lcase function, and the updated object is saved back to the Netcad environment.
Screen Update: Upon completion, the selection set is refreshed, and the current drawing window is updated to make changes immediately visible.
Memory Cleanup: Used objects (selection set, text object, etc.) are cleared from memory.
This macro streamlines text editing, accelerating the workflow for Netcad users. It’s user-friendly and highly effective. ⚙️

Makro, Netcad platformunda şu şekilde çalışır:

Bellek Temizliği: Kullanılan nesneler (seçim kümesi, metin nesnesi vb.) bellekten silinir.

Seçim Kümesi Oluşturma: Yeni bir seçim kümesi (SelectionSet) oluşturulur ve sadece metin nesneleri (otext) seçilebilir.

Metin Seçimi: Kullanıcıya bir iletişim kutusu ile küçük harfe çevrilecek metin nesnelerini seçmesi için talimat verilir.

Dönüştürme Süreci: Seçilen her metin nesnesi sırayla alınır, içeriği lcase fonksiyonu kullanılarak küçük harfe çevrilir ve güncellenmiş nesne Netcad ortamına kaydedilir.

Ekran Güncelleme: İşlem tamamlandığında seçim kümesi yenilenir ve mevcut çizim penceresi güncellenerek değişiklikler anında görünür hale gelir.

İngilizce Nasıl Çalışır ?

Türkçe

İngilizce

📝 Netcad NVB Code

 
'
Sub Main
Dim i,j,o,SEL,u
  with Netcad

     set SEL = .NewSelectionSet
    set o = .NewObject
    if SEL.SELECT("Küçük harfe çevrilecek yazıları seçiniz. [SAGULCAD]",array(otext)) then
      for i = 0 to SEL.NE-1
        j = SEL.GetSelectedObject(i, o)
        o.s=Replace( o.s,"İ","i")
        o.s=Replace( o.s,"I","ı")
        o.s=lcase(o.s)
        .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-yazi-tumu-kucuk-harf