Nokta Adlarından Tabaka Oluşturma Makrosu (Generate Layers from Point Names Macro)

Nokta Adlarından Otomatik Tabaka Oluşturma ve Harf Düzenleme ile Netcad Verimliliğinizi Artırın! 🚀

Boost Your Netcad Efficiency with Automatic Layer Creation and Text Formatting from Point Names!

Bu makro, Netcad ortamında seçilen noktaların adlarını (pname) kullanarak otomatik olarak tabaka oluşturur ve bu tabakalara noktaları atar. Ayrıca, nokta 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 sayede, projelerinizde düzenli ve profesyonel bir tabaka yapısı oluştururken zamandan tasarruf edersiniz. Özellikle büyük veri setleriyle çalışan kullanıcılar için idealdir. 🛠️

This macro creates layers automatically in Netcad based on the names (pname) of selected points and assigns the points to these layers. It also standardizes Turkish characters in point names (e.g., converting \”İ\” and \”I\” correctly) and formats the text to follow proper capitalization rules. This ensures a clean and professional layer structure, saving time, especially for users handling large datasets. 🛠️

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

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

nokta 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, Netcad otomasyon

point names, layer creation, Turkish character formatting, Netcad macro, automation, data formatting, text correction, CAD efficiency, project management, 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 Objeleri seçiniz. [SAGULCAD]",array(opoint)) then
      for i = 0 to SEL.NE-1
        j = SEL.GetSelectedObject(i, o)
        ' HarfDuzelt o ' Nokta 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-nokta-obje-adindan-tabaka-uret