NumaralandirAlan (NumberArea) [yz!]

Makro Bilgileri:

1. Makro Adı: NumaralandirAlan (NumberArea)
2. Makronun İşlevi:
   • Türkçe: Bu makro, Netcad’de ekrandan seçilen alan (opline) objelerinin adlarını, kullanıcı tarafından belirtilen bir önek ve artan sayısal indeks ile otomatik olarak numaralandırır. Örneğin, önek “PARSEL_” ve başlangıç numarası 1 ise, seçilen alanların adları “PARSEL_1”, “PARSEL_2” şeklinde atanır. Önek boş bırakılırsa sadece numaralar kullanılır. Kadastro, imar veya düzenli adlandırma gereken projelerde zaman kazandırır.
   • English: This macro automatically numbers the names of selected area (opline) objects in Netcad with a user-specified prefix and an increasing numerical index. For example, if the prefix is “PARSEL_” and the starting number is 1, the selected areas are named “PARSEL_1”, “PARSEL_2”, etc. If the prefix is left blank, only numbers are used. It saves time in projects requiring systematic naming, such as cadastre or urban planning.
3. Makronun Çalışma Şekli:
   • Türkçe:
     1. Netcad projenizi açın ve makroyu çalıştırın.
     2. Açılan dialog penceresinde, alan adlarına eklenecek öneği (örn. “PARSEL_”) girin. Boş bırakırsanız sadece numara kullanılır.
     3. Başlangıç numarasını (örn. 1 veya 100) girin ve “Tamam” butonuna basın.
     4. Ekranda numaralandırmak istediğiniz alan (opline) objelerini seçin ve seçimi tamamlayın.
     5. Makro, seçilen her alana önek + numara atar (örn. “PARSEL_1”, “PARSEL_2”).
     6. İşlem bittiğinde, kaç alanın numaralandırıldığı ve kullanılan önek/numara aralığı gösterilir.
   • English:
     1. Open your Netcad project and run the macro.
     2. In the dialog window, enter the prefix for the area names (e.g., “PARSEL_”). Leave it blank to use only numbers.
     3. Enter the starting number (e.g., 1 or 100) and click “OK.”
     4. Select the area (opline) objects you want to number on the screen and complete the selection.
     5. The macro assigns prefix + number to each selected area (e.g., “PARSEL_1”, “PARSEL_2”).
     6. When finished, a message shows how many areas were numbered and the prefix/number range used.
4. Etiketler:
   • Netcad makro, Alan numaralandırma, Otomatik adlandırma, VBScript makro, Netcad otomasyon, Kadastro numaralandırma, Parsel adlandırma, Şaban GÜL makro, Netcad alan objesi, Pratik Netcad araçları

Kullanım Örneği:

Sonuç: Adlar “PARSEL_100”, “PARSEL_101”, …, “PARSEL_104” olur.

Dialogda önek: “PARSEL_”, başlangıç numarası: 100.

Ekrandan 5 alan seçiliyor.

⚠️ Uyarı: Yapay Zeka Destekli Netcad Makrosu ⚙️🤖

Bu sayfada paylaştığım Netcad makroları, tamamen yapay zeka desteğiyle oluşturulmuştur.
📌 Makrolar gerçek projelerde kullanılmadan önce dikkatlice test edilmelidir.

🔍 Neden bu uyarıyı yapıyorum?
Yapay zeka, kod üretiminde oldukça başarılı olsa da;
🧠 Her proje, her sistem ve her kullanıcı senaryosu farklıdır.
Bu nedenle, üretilen makroların doğrudan kullanılması bazı durumlarda beklenmeyen sonuçlara yol açabilir.

💡 Ne yapmalısınız?

• Makroyu kendi verilerinize göre gözden geçirin. 👁️
• Gerekirse kod üzerinde düzenleme yapın. 🛠️
• Yedek almadan uygulama yapmayın. 💾
• Kodun hangi amaçla yazıldığını ve sınırlarını iyi anlayın. 📘

🛑 Sorumluluk Reddi:
Yapay zeka ile oluşturulan bu içerikler, sadece örnek niteliğindedir. Hiçbir şekilde resmi Netcad destek servisi yerine geçmez. Bu kodları kullanmanızdan doğabilecek herhangi bir veri kaybı veya proje hatasından sorumluluk kabul edilmez.

📝 Netcad NVB Code

' www.sabangul.com Web Sayfasından İndirilmiştir
' Şaban GÜL, Harita Mühendisi
' Her Türlü Hata, İstek ve Öneriler İçin
' sabangul67@gmail.com adresine durumu anlatan bir e-posta gönderiniz.
'
' Amaç: Ekrandan seçilen alan (opline) objelerinin adlarını, kullanıcı tarafından
' belirtilen bir önek (prefix) ve artan bir sayısal indeks ile otomatik olarak
' numaralandırır. Örneğin, önek "PARSEL_" ise, adlar "PARSEL_1", "PARSEL_2" vb. olur.

Sub Main
Dim sabangul1, sabangul2, sabangul3
Dim i, j, indeks
Dim secimkumesi, obje

With Netcad
    ' Dialog penceresi oluştur
    Set sabangul1 = .NewBDialog("Alan Adlarını Otomatik Numaralandırma [Şaban GÜL, sabangul.com]")
    sabangul1.PutPrompt "Seçilen alan objelerine önek ve artan numara eklenecektir."
    sabangul1.GetString "onek", "Önek Giriniz (örn: PARSEL_):", "", 20
    sabangul1.GetInteger "baslangic", "Başlangıç Numarası:", 1
    sabangul1.PutPrompt "Önek boş bırakılırsa sadece numara kullanılır."

    ' Dialog penceresini göster
    If sabangul1.ShowModal Then
        sabangul2 = sabangul1.ValueByName("onek") ' Önek
        sabangul3 = sabangul1.ValueByName("baslangic") ' Başlangıç numarası
    Else
        Exit Sub
    End If

    ' Seçim kümesi ve obje oluştur
    Set secimkumesi = .NewSelectionSet
    Set obje = .NewObject

    ' Kullanıcıdan alan objelerini seçmesini iste
    If secimkumesi.Select("Numaralandırılacak Alan Objelerini Seçiniz...", Array(opline)) Then
        indeks = sabangul3 ' Başlangıç indeks
        For i = 0 To secimkumesi.NE - 1
            j = secimkumesi.GetSelectedObject(i, obje)
            obje.pname = sabangul2 & CStr(indeks) ' Önek + numara
            .PutObject j, obje ' Objeyi güncelle
            indeks = indeks + 1 ' İndeksi artır
        Next
        secimkumesi.RedrawAndRewind ' Ekranı yenile
        MsgBox "Seçilen " & secimkumesi.NE & " adet alanın adı başarıyla numaralandırıldı." & vbCrLf & _
               "Önek: " & sabangul2 & vbCrLf & _
               "Numaralar: " & sabangul3 & " - " & (sabangul3 + secimkumesi.NE - 1), 64, "Şaban GÜL, sabangul.com"
    Else
        MsgBox "Hiçbir alan objesi seçilmedi!", 48, "Şaban GÜL, sabangul.com"
    End If

    ' Belleği temizle
    Set secimkumesi = Nothing
    Set obje = Nothing
    Set sabangul1 = Nothing
End With
End Sub