---

Hallo,

ich habe eine Funktion geschrieben, die alle ausgewählten Linien miteinander vergleicht. Alle Linien, die zusammenhängen, also den Start- oder Enpunkt gleich haben werden in einer AutoCAD-Gruppe zusammengefasst. Das funktioniert eigentlich auch ohne Probleme. Nur wenn ich da mehrere Objekte habe dauert der ganze Vorgang doch etwas lange. (Bei ca. 2000 Linien an die 50 Sekunden). Und das möchte ich optimieren. Hat jemand von euch noch eine Idee?

Anbei mal der Code:

Nach der Auswahl der Objekte schreibe ich alle Linien in einen Array mit dem Typ entityList. Wenn eine Linie gefunden wurde wird in groupName der Gruppenname reingeschrieben. Somit konnte ich verhindern, dass bereits durchsuchte Objekte nochmal durchsucht werden, was alles schon ein bisschen beschleunigt hat. Sollte aber noch schneller werden.

Code:

---

Private Type entityList
    id As Long
    entity As AcadLine
    groupName As String
End Type

Private Sub findNextEntity(entitys() As entityList, index As Long, ByRef myGroup, grpName As String)
Dim i As Long
Dim myObjects(0 To 0) As Object
   
   
    On Error Resume Next
    For i = 1 To UBound(entitys)
        'If i <> index And StrComp(entitys(i).groupName, "", vbTextCompare) = 0 Then
        'If i <> index And entitys(i).groupName = "" Then
        If entitys(i).groupName = "" Then
            'MsgBox "Finde nächstes: " & grpName
            If (Round(entitys(index).entity.StartPoint(0), prez) = Round(entitys(i).entity.StartPoint(0), prez) And _
                Round(entitys(index).entity.StartPoint(1), prez) = Round(entitys(i).entity.StartPoint(1), prez) And _
                Round(entitys(index).entity.StartPoint(2), prez) = Round(entitys(i).entity.StartPoint(2), prez)) Or _
              (Round(entitys(index).entity.StartPoint(0), prez) = Round(entitys(i).entity.EndPoint(0), prez) And _
                Round(entitys(index).entity.StartPoint(1), prez) = Round(entitys(i).entity.EndPoint(1), prez) And _
                Round(entitys(index).entity.StartPoint(2), prez) = Round(entitys(i).entity.EndPoint(2), prez)) Or _
              (Round(entitys(index).entity.EndPoint(0), prez) = Round(entitys(i).entity.StartPoint(0), prez) And _
                Round(entitys(index).entity.EndPoint(1), prez) = Round(entitys(i).entity.StartPoint(1), prez) And _
                Round(entitys(index).entity.EndPoint(2), prez) = Round(entitys(i).entity.StartPoint(2), prez)) Or _
              (Round(entitys(index).entity.EndPoint(0), prez) = Round(entitys(i).entity.EndPoint(0), prez) And _
                Round(entitys(index).entity.EndPoint(1), prez) = Round(entitys(i).entity.EndPoint(1), prez) And _
                Round(entitys(index).entity.EndPoint(2), prez) = Round(entitys(i).entity.EndPoint(2), prez)) Then
               
                Set myObjects(0) = entitys(i).entity
                entitys(i).groupName = grpName
                myGroup.AppendItems myObjects
               
                findNextEntity entitys, i, myGroup, grpName
            End If
        End If
    Next

End Sub

---

------------------
Grüsse Benny

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

---

Hi,

wenn Du schon mit gerundeten Koordinaten arbeitest, dann mach die Berechnung der Rundung beim Einlesen der Linien und speichere den gerundeten Wert in Deinem ObjektTyp 'entityList' gleich mit ab.

In diesem Vorgang machst Du Dir 2 Punktdefinitionen, in dem Du auch gleich festlegst, daß immer der 'linkere' Punkt, und wenn die Linie senkrecht ist, der untere Punkt als PKT1 abgespeichert wird und der andere als PKT2, damit brauchst Du nicht mehr Start<<>>Start | | Start<<>>End | | End<<>>Start | | End<<>>End vergleichen, sondern nur mehr PKT1<<>>PKT1 | | PKT2<<>>PKT2

Last but not least: vergleiche nicht alle Werte, wenn ein Kriterium schon nicht erfüllt ist, brauchst Du zweites nicht mehr prüfen (Deine Routine hat zuviele 'OR' drin)

- alfred -

[EDIT]Deine Rekursive Arbeitsweise fährt hier falsch!! Wenn ich das richtig lese, arbeitest Du Dich 2000^(2000-1) mal durch (bei 2000 Elementen)[/EDIT]

[Diese Nachricht wurde von a.n. am 25. Nov. 2008 editiert.]

---

Hi,

wow das mit den Punkten schon gerundet abspeichern hat ja Wunder bewirkt. Bin von 50sec auf 3sec runter gekommen.

Super, vielen Dank!

------------------
Grüsse Benny

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

---

Hi,

beachte bitte auch das nachträglich (gerade eben) editierte, die falsch angelegte Rekursion!!

- alfred -

---

Hi,

das mit der rekursiven Funktion verstehe ich nicht ganz, was da falsch ist.

Mein Gedankengang war der:
Wenn ich eine Linie finde, die den selben Start- oder Enpunkt hat wie die vorherige, dann suche ich in allen Objekten nach neuen Linien, die an die neu gefundene angrenzt. Weil es kann ja durchaus sein, dass die neu gefunden Linie angrenzende Linien hat die an vorheriger Stelle in meiner Liste gespeichert wurden.

------------------
Grüsse Benny

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

---

Hi,

wenn ich es kurz formulieren soll, dann folgende Erklärung:

Wenn Du schon Element 1 mit Element 9 verglichen hast, dann brauchst Du, wenn Du beim Element 9 bist, dieses nicht nochmals mit 1 vergleichen

- alfred -

---

ich würde das problem anders angehen.

Zuerst einen Auswahlsatz über alle Linien (nennen wir ihn MasterAusdwahlsatz).

Hiervon die erste Linie nehmen. Dann einen Auswahlsatz erstellen von allen Linien in der zeichnung, wo entweder der Startpunkt mit dem Start oder Endpunkt meiner Linie (und bzw. umgekehrt). Alle diese gefundenen Linien aus dem MasterAuswahlsatz entfernen.
Jetzt für alle dies gefunden Linien wiederum rekursiv angrenzende Linien suchen, bis jede dieser Suchen ins Lehre läuft.

Jetzt nimmt man wiederum die erste Linie aus dem MasterAuswahlsatz (die gefundenen Linien wurden ja aus diesem entfernt) und wiederholt dieses Spielchen, bis auch der Masterauswahlsatz leer ist.

Ich glaube, dass ein Selectionset auf die Zeichnungsdatenbank wesentlich schneller ist, als mathematische Vergleiche von hunderten von Endpunkten.

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

---

Sorry no!

Ich widerspreche ungern, aber in diesem Fall muss ich die 'Regel der Ausnahme' in Anspruch nehmen (bitte nicht böse verstehen, ich bin nicht so ).

a) SelectionSets sind alles andere als schnell

b) zum Verwalten von Listen (Hinzufügen und Entfernen von Items) ist SelectionSet IMHO die langsamste Version

c) Wenn ich ein SelectionSet erstelle, welches mit Option Window oder Crossing arbeitet, dann geht das nicht, wenn die Elemente nicht am Bildschirm sichtbar sind, Fehler sind auch vorprogrammiert für alle Elemente, die zwar sichtbar, aber weit weg gezoomt sind (kleiner 1 Pixel). Damit muss für jede SelectionSet-Bildung zum entsprechenden Ausschnitt hingezoomt werden (was aber z.B. wenn die Anwendung auch in einem Ansichtsfenster laufen soll, das aber gesperrt ist, nicht geht). Das Zoomen einer grösseren Zeichnung zu jedem Endpunkt jeder Line kann nicht schnell sein.

- alfred -

[Diese Nachricht wurde von a.n. am 26. Nov. 2008 editiert.]