---

Moin!

ich habe mit SelectALL in vb.net Objekte eingesammelt.

Code:

---

Dim filter As New SelectionFilter(filterlist)
        Dim selRes As PromptSelectionResult = _Editor.SelectAll(filter)

        Try
            If selRes.Status <> PromptStatus.OK Then
                _Editor.WriteMessage(vbLf & "Fehler beim der Elementauswahl")
                Return False
            End If

            Dim ObjectIds As ObjectId() = selRes.Value.GetObjectIds()

---

Nun möchte diese abarbeiten und wenn ich das bis jetzt richtig verstanden habe brauche ich dafür Entity.

Was ich aber noch nicht ganz zusammen gebracht habe ist der Weg von ObjektIds(i) zum Entity.

Kann mir einer weiterhelfen?

Gruß Jan

------------------
jan :-)

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

---

Hallo Jan,
du stocherst dich so durch :-( und dabei ist dir sicher auch schon mehr als einmal eine Transaction vor die Füße gefallen. Schau mal deinen Code durch, da ist das sicher mehrere male enthalten, wie man von einer ObjectId zu einem Entity oder einem DbObject kommt.

Grüße!
Holger

------------------
Holger Brischke
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 Jan,

vieleicht hilft dir das hier, hab ich so ähnlich in einem meiner Programme verwendet. 

Code:

---

Dim ObjectIds As ObjectId() = selRes.Value.GetObjectIds()

For Each oid As ObjectId In ObjectIds
    Dim ent As Entity = CType(oid.GetObject(OpenMode.ForRead), Entity)
    Select Case ent.GetRXClass.Name.ToString
      Case "AcDbLine"
            Dim element As Line = CType(ent, Line)
            ' ... Code für Linie
      Case "AcDbPolyline"
            Dim element As Polyline = CType(ent, Polyline)
            ' ... Code für Polylinie
            ' ... usw.
    End Select
Next

---

mfg, bccad

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