Servus zusammen,
ich schaffe es leider nicht und bitte mal (wieder) um eure Hilfe:
mit
As IEnumerable(Of Circle)
komme ich so auch nicht ans ziel.
Bettelblick und danke fürs anschauen
mfg - r.b
ich schaffe es leider nicht und bitte mal (wieder) um eure Hilfe:
Code:
Dim circList As New List(Of Circle)() ' Create iterator for model space entities to search for lines. Dim iter As BlockTableRecordEnumerator = modelSpace.GetEnumerator() While iter.MoveNext() Dim obj As DBObject = iter.Current.GetObject(OpenMode.ForWrite) ' Check if object is a line. If TypeOf obj Is Circle Then Dim c As Circle = DirectCast(obj, Circle) circList.Add(c) End If End While ' aus dieser Liste möchte ich nun die "doppelten" Kreise rausholen ' Linq macht ja mit der Group By relativ einfach ne übersicht hierzu ' mein Problem ist allerdings nach der Gruppierung und Abfrage "Count > 1" wie ich nun die Classe ansprechen kann Dim gg = From cir As Circle In circList Group By cir.Radius Into Group, Count() Where Count > 1 ' folgendes klappt zwar (noch) nicht - sollte aber dann etwa so weitergehen For each c as Circle in gg c.color = doublecolor next for
As IEnumerable(Of Circle)
komme ich so auch nicht ans ziel.
Bettelblick und danke fürs anschauen
mfg - r.b
Comment