Yazı İçeriklerinden Tabaka Oluşturma Makrosu (Generate Layers from Text Content Macro)

Yazı İçeriklerinden Otomatik Tabaka Oluşturma ve Harf Düzenleme ile Netcad Verimliliğinizi Zirveye Taşıyın! 📝

Elevate Your Netcad Efficiency with Automatic Layer Creation and Text Formatting from Text Content!

Bu makro, Netcad ortamında seçilen yazı (otext) nesnelerinin içeriklerinden (o.s) tabaka oluşturur ve bu yazı nesnelerini ilgili tabakalara atar. Ayrıca, yazı içeriklerinde Türkçe karakterleri düzenler (örneğin, \”İ\” ve \”I\” karakterlerini doğru formata çevirir) ve metni büyük-küçük harf kurallarına uygun hale getirir. Büyük veri setleriyle çalışan kullanıcılar için projelerde düzenli bir tabaka yapısı oluşturmayı kolaylaştırır ve zamandan tasarruf sağlar. 🚀

This macro creates layers in Netcad based on the content (o.s) of selected text (otext) objects and assigns these text objects to the corresponding layers. It also standardizes Turkish characters in text content (e.g., correcting \”İ\” and \”I\”) and formats text to follow proper capitalization rules. This ensures a professional layer structure, saving time for users managing large datasets. 🚀

Yazı Seçimi: Kullanıcıdan Netcad ekranında yazı (otext) nesnelerini seçmesi istenir. Tabaka Oluşturma: Seçilen her yazı nesnesinin içeriği (o.s) alınır ve bu içerikle bir tabaka oluşturulur. Harf Düzenleme: Yazı içeriklerinde metin, Türkçe karakter kurallarına uygun şekilde düzenlenir:

• \”İ\” ve \”I\” gibi karakterler doğru formata çevrilir.
• İlk harf büyük, diğerleri uygun şekilde küçük harfe dönüştürülür.

Atama ve Güncelleme: Yazı nesneleri, oluşturulan tabakalara atanır ve ekran yenilenir. Temizlik: Kullanılan nesneler bellekten temizlenir, böylece sistem performansı korunur.

Text Selection: Prompts the user to select text (otext) objects on the Netcad screen.
Layer Creation: Retrieves the content (o.s) of each selected text object and creates a layer with that content.
Text Formatting: Standardizes the text content according to Turkish character rules:
Corrects characters like \”İ\” and \”I\”.
Capitalizes the first letter and adjusts the rest accordingly.
Assignment and Update: Assigns text objects to the created layers and refreshes the screen.
Cleanup: Clears used objects from memory to maintain system performance.

yazı içeriği, tabaka oluşturma, Türkçe karakter düzenleme, Netcad makro, otomasyon, veri düzenleme, harf düzeltme, CAD verimliliği, proje yönetimi, yazı tabaka atama, Netcad otomasyon

text content, layer creation, Turkish character formatting, Netcad macro, automation, data formatting, text correction, CAD efficiency, project management, text layer assignment, Netcad automation

📝 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("Lütfen Yazıları seçiniz. [SAGULCAD]",array(otext)) then
      for i = 0 to SEL.NE-1
        j = SEL.GetSelectedObject(i, o)
        ' HarfDuzelt o ' Yazı içeriğindeki metni Türkçe karakter kurallarına göre düzenler
        o.tabaka = .createlayer(o.s,2)
        .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.s=trim(o.s)
o.s=Replace(o.s,"İ","i")
o.s=Replace(o.s,"I","ı")
o.s=lcase(o.s)
o.s=Replace(o.s," ı"," I")
o.s=Replace(o.s," i"," İ")
str=left(o.s,1)
if str="i" then str="İ"
if str="ı" then str="I"
   str=ucase(str)
     for i=2 to len(o.s)
       if mid(o.s,i-1,1)<"A" then
        str=str+ucase(mid(o.s,i,1))
       else
        str=str+mid(o.s,i,1)
        end if
      next
 o.s=str
end sub

netcad-yazi-obje-adindan-tabaka-uret