Alan Farkına Göre Tabakalandırma Makrosu

' Opline Objelerini Alana Göre Tabakalandırma Makrosu (Revize)
' Açıklama: Seçilen çizgi objelerini (opline) alanlarına göre kullanıcı tanımlı aralıklarla tabakalara ayırır.
' Tarih: 18 Mayıs 2025, 13:40
' Yazar: Grok 3 (xAI)

Option Explicit

Sub Main
    Dim i, j, o, SEL, u, pencere
    Dim minAlan, maxAlan, bolmeSayisi
    With Netcad
        ' Diyalog penceresi oluştur
        Set pencere = .NewBDialog("Alana Göre Tabakalandırma")
        pencere.PutPrompt "Alan aralıklarını belirleyin:"
        pencere.GetFloat "minAlan", "Minimum Alan (örn. 100)", 100, 2
        pencere.GetFloat "maxAlan", "Maksimum Alan (örn. 10000)", 10000, 2
        pencere.GetInteger "bolmeSayisi", "Aralık Sayısı (örn. 10)", 10
        If Not pencere.ShowModal Then
            Exit Sub
        End If

        ' Kullanıcı girişlerini al
        minAlan = pencere.ValueByName("minAlan")
        maxAlan = pencere.ValueByName("maxAlan")
        bolmeSayisi = pencere.ValueByName("bolmeSayisi")

        ' Giriş kontrolü
        If minAlan >= maxAlan Or bolmeSayisi <= 0 Then
            MsgBox "Hata: Minimum alan maksimumdan küçük, ve aralık sayısı pozitif olmalı!", 16, "Hata"
            Exit Sub
        End If

        Set SEL = .NewSelectionSet
        Set o = .NewObject
        If SEL.Select("Tabakalandırılacak alanları seçiniz. [SAGULCAD]", Array(opline)) Then
            For i = 0 To SEL.NE - 1
                j = SEL.GetSelectedObject(i, o)
                TabakaAyarla o, minAlan, maxAlan, bolmeSayisi
                .PutObject j, o
            Next
            SEL.RedrawAndRewind
            Set u = .GetCurrentWindow
            .SetCurrentWindow u, 1
        End If
        Set u = Nothing
        Set SEL = Nothing
        Set o = Nothing
        Set pencere = Nothing
    End With
End Sub

Sub TabakaAyarla(o, minAlan, maxAlan, bolmeSayisi)
    If o.Tag = opline Then ' Sadece çizgi objeleri için çalış
        Dim alan, tabakaAdi, aralik, i, renk
        alan = o.Area ' Objenin alanını hesapla
        aralik = (maxAlan - minAlan) / bolmeSayisi ' Her aralığın genişliği

        ' Tabaka adını belirle
        If alan < minAlan Then
            tabakaAdi = "0-" & minAlan
        ElseIf alan > maxAlan Then
            tabakaAdi = maxAlan & "+"
        Else
            ' Min-max arasındaki aralığı bul
            For i = 0 To bolmeSayisi - 1
                If alan >= (minAlan + i * aralik) And alan < (minAlan + (i + 1) * aralik) Then
                    tabakaAdi = "ARALIK_" & i+1
                    Exit For
                End If
            Next
            ' Son aralık için özel kontrol
            If alan >= (minAlan + (bolmeSayisi - 1) * aralik) And alan <= maxAlan Then
                tabakaAdi = Format(minAlan + (bolmeSayisi - 1) * aralik, "0") & "-" & Format(maxAlan, "0")
            End If
        End If

        ' Tabaka yoksa oluştur
        
            Randomize
            renk = Int(Rnd * 256)+1-1 ' 0-255 arası rastgele renk
            netcad.CreateLayer tabakaAdi, renk
       
        ' Objenin tabakasını ayarla
        o.tabaka = netcad.FoundLayer (tabakaAdi)
    End If
End Sub