---

Guten Abend,

Ich habe eine Zeichnung, in der viele Linien unterschiedliche große Vielecke bilden.
Mit den Linien, die jeweils ein Vieleck bilden, erzeuge ich eine Region mit der "CreateFromCuves"-Methode der "Region"-Klasse.
Von allen erzeugeten Regionen, möchte ich die Regionen herausfiltern, welche sich aus zwei oder mehreren kleinsten möglichen Regionen "sozusagen" zusammensetzen.

Ist das so überhaupt umsetzbar? Anbei der Code.

Grüße Bill

Code:

---

Option Strict On

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Public Class Class7
    <CommandMethod("ErstelleRegionen")> _
    Public Sub ErstelleRegionen()

        Dim acDocEd As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
        Dim acDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database

        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Try

                Dim acBlkTbl As BlockTable
                acBlkTbl = CType(acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead), BlockTable)

                Dim acTypValAr(1) As TypedValue
                acTypValAr.SetValue(New TypedValue(DxfCode.Start, "LINE"), 0)
                acTypValAr.SetValue(New TypedValue(DxfCode.LayerName, "GEB_HAUPT"), 1)
                Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)

                Dim acSSPromt As PromptSelectionResult
                acSSPromt = acDocEd.SelectAll(acSelFtr)

                Dim acObjIdColl As ObjectIdCollection = New ObjectIdCollection()
                Dim acSSet As SelectionSet

                If acSSPromt.Status = PromptStatus.OK Then

                    acSSet = acSSPromt.Value
                    acObjIdColl = New ObjectIdCollection(acSSet.GetObjectIds)

                End If

                Dim acBlkTblRec As BlockTableRecord
                acBlkTblRec = CType(acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)

                Dim acDBObjColl As DBObjectCollection = New DBObjectCollection()

                For Each acObjId1 In acObjIdColl

                    If Not IsDBNull(acObjId1) Then

                        Dim acCurLine As Line = CType(acTrans.GetObject(CType(acObjId1, ObjectId), OpenMode.ForWrite), Line)

                        If Not IsDBNull(acCurLine) Then

                            acDBObjColl.Add(acCurLine)

                        End If

                    End If
                Next

                Dim myRegionColl As DBObjectCollection = New DBObjectCollection()

                myRegionColl = Region.CreateFromCurves(acDBObjColl)

                Dim i As Integer
                For i = 0 To myRegionColl.Count - 1
                    Dim acRegion As Region = CType(myRegionColl(i), Region)

                    acBlkTblRec.AppendEntity(acRegion)

                    acTrans.AddNewlyCreatedDBObject(acRegion, True)
                Next i

                acTrans.Commit()

            Catch ex As Exception

                Application.ShowAlertDialog("Folgender Fehler ist aufgetreten:" & vbLf & ex.Message)

            Finally

                acTrans.Dispose()

            End Try
        End Using
    End Sub
End Class

---

[Diese Nachricht wurde von BillFrankShepard91 am 30. Okt. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bill,

ich verstehe die Frage nicht ganz. Wenn du Regionen aus Linien, die Vielecke darstellen, bildest, dann ist theoretisch (bzw. so wie ich ein Vieleck definiere) immer eine einzelne Region ohne Inseln zu erwarten.
Du kannst aber mal das große Ganze beschreiben, dann kann ich beurteilen, ob der Ansatz, den du verfolgst so ideal gewählt ist. Womöglich kommt man mit der Erstellung von Umgrenzungen weiter?

Grüße!
Holger

------------------
Holger Brischke
Freier C#.NET-Workshop Ende Oktober geplant. Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger, 

Ich habe eine Karte in Form einer DWG-Datei. In dieser Karte sind Gebäude eingezeichnet, allerdings sind die Gebäude nur mit Linien gezeichnet. Einige dieser Gebäude berühren sich an einer Linie.
Erstelle ich nun Regionen aus all diesen Linien tritt Folgendes auf:

Beispiel Doppelhaus:
Es werden nicht nur die einzelnen Doppelhaushälften als Regionen, sondernd auch das gesamte Doppelhaus als Region erstellt.
Ich möchte aber nun lediglich die beiden Doppelhaushälften und nicht das gesamte Doppelhaus als Regionen in meiner Zeichnung haben.

Anschließend hatte ich vor alle erstellten Regionen zu schraffieren.

Ich hoffe mein Problem halbwegs verständlich dargestellt zu haben.

Grüße Billw

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... und wenn du die Flächen der erstellten Regionen vergleichst .. die Größte wäre dann die Äußere.

Grüße!
Holger

------------------
Holger Brischke
Freier C#.NET-Workshop Ende Oktober geplant. Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger,
Danke für diesen Tipp! Es funktioniert jetzt, dass so gut wie alle "größten" Flächen herausgefiltert werden.
Ich erstelle eine Arraylist, in der ich alle möglichen Flächen Kombinationen erstelle. So gehe ich sicher, dass die "kleinsten" Flächen nicht vorhanden sind. Anschließend frage ich ab, ob die Fläche meiner jeweilige Region in der Arraylist vorhanden ist. Ist sie das nicht, wird mit ihr weiter gearbeitet.

Trotzdem wird noch immer eine einzelne, (immer die gleiche) "größte" Region erstellt, wieso weiß ich aber nicht...! ;-) Was aber nichts macht, denn die kann ich Problemlos per Hand rauslöschen.

Code:

Code:

---

Option Strict On

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Public Class Class7
    <CommandMethod("ErstelleRegionen")> _
    Public Sub ErstelleRegionen()

        Dim acDocEd As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
        Dim acDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database

        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Try

                Dim acBlkTbl As BlockTable
                acBlkTbl = CType(acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead), BlockTable)

                Dim acTypValAr(1) As TypedValue
                acTypValAr.SetValue(New TypedValue(DxfCode.Start, "LINE"), 0)
                acTypValAr.SetValue(New TypedValue(DxfCode.LayerName, "GEB_HAUPT"), 1)
                Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)

                Dim acSSPromt As PromptSelectionResult
                acSSPromt = acDocEd.SelectAll(acSelFtr)

                Dim acObjIdColl As ObjectIdCollection = New ObjectIdCollection()
                Dim acSSet As SelectionSet

                If acSSPromt.Status = PromptStatus.OK Then

                    acSSet = acSSPromt.Value
                    acObjIdColl = New ObjectIdCollection(acSSet.GetObjectIds)

                End If

                Dim acBlkTblRec As BlockTableRecord
                acBlkTblRec = CType(acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)

                Dim acDBObjColl As DBObjectCollection = New DBObjectCollection()

                For Each acObjId1 In acObjIdColl

                    If Not IsDBNull(acObjId1) Then

                        Dim acCurLine As Line = CType(acTrans.GetObject(CType(acObjId1, ObjectId), OpenMode.ForWrite), Line)

                        If Not IsDBNull(acCurLine) Then

                            acDBObjColl.Add(acCurLine)

                        End If

                    End If
                Next

                Dim myRegionColl As DBObjectCollection = New DBObjectCollection()
                Dim areaList As ArrayList = New ArrayList()
                myRegionColl = Region.CreateFromCurves(acDBObjColl)

                ' Erstellen aller theoretisch größtmöglichen Flächen.

                Dim m, n As Integer
                For m = 0 To myRegionColl.Count - 1
                    For n = 0 To myRegionColl.Count - 1

                        Dim acRegion1 As Region = CType(myRegionColl(m), Region)
                        Dim acRegion2 As Region = CType(myRegionColl(n), Region)

                        areaList.Add(acRegion1.Area + acRegion2.Area)

                    Next
                Next

                ' Filtern der Flächen. Wenn Fläche nicht enthalten, dann wird sie gezeichnet!

                Dim j As Integer
                For j = 0 To myRegionColl.Count - 1

                    Dim acRegion As Region = CType(myRegionColl(j), Region)
                    If areaList.Contains(acRegion.Area) = False Then

                        acBlkTblRec.AppendEntity(acRegion)

                        acTrans.AddNewlyCreatedDBObject(acRegion, True)

                    End If
                Next

                acTrans.Commit()

            Catch ex As Exception

                Application.ShowAlertDialog("Folgender Fehler ist aufgetreten:" & vbLf & ex.Message)

            Finally

                acTrans.Dispose()

            End Try
        End Using
    End Sub
End Class

---

Grüße Bill

[Diese Nachricht wurde von BillFrankShepard91 am 02. Nov. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP