Alan Adlarından Tabaka Oluşturma Makrosu (Generate Layers from Area Names Macro)

Alan Adlarından Otomatik Tabaka Oluşturma ve Harf Düzenleme ile Netcad’de Verimliliği Maksimize Edin! 🌟

Maximize Netcad Efficiency with Automatic Layer Creation and Text Formatting from Area Names!

Bu makro, Netcad ortamında seçilen alanların (opline) adlarını (pname) kullanarak otomatik olarak tabaka oluşturur ve bu tabakalara alanları atar. Ayrıca, alan adlarındaki 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. Bu, 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 automatically creates layers in Netcad based on the names (pname) of selected areas (opline) and assigns the areas to these newly created layers. It also standardizes Turkish characters in area names (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. 🛠️

Alan Seçimi: Kullanıcıdan Netcad ekranında alanları (opline) seçmesi istenir. Tabaka Oluşturma: Seçilen her alanın adı (pname) alınır ve bu adla bir tabaka oluşturulur. Harf Düzenleme: Alan adlarındaki 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: Alanlar, oluşturulan tabakalara atanır ve ekran yenilenir. Temizlik: Kullanılan nesneler bellekten temizlenir, böylece sistem performansı korunur.

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

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

area names, layer creation, Turkish character formatting, Netcad macro, automation, data formatting, text correction, CAD efficiency, project management, area 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 Alanları seçiniz. [SAGULCAD]",array(opline)) then
      for i = 0 to SEL.NE-1
        j = SEL.GetSelectedObject(i, o)
        ' HarfDuzelt o ' Alan adındaki metni Türkçe karakter kurallarına göre düzenler
        o.tabaka = .createlayer(o.pname,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-alan-obje-adindan-tabaka-uret