---

Moin !

ich möchte im Modellbereich alle (LW)Polylinien auswählen. Der MSpace ist auch aktiv!

Aus http://adndevblog.typepad.com/autocad/2012/06/editorselectall-with-entity-and-layer-selection-filter.html habe ich mir den Code nach vb.net übersetzt und dann folgendes daraus gemacht:

Code:

---

Private Function ImportEntities() As Boolean
        ReInit()

        'Quelle: http://adndevblog.typepad.com/autocad/2012/06/editorselectall-with-entity-and-layer-selection-filter.html
        Dim filterlist As TypedValue() = New TypedValue(1) {}
        'select Elementtypen - Kommagetrennt
        filterlist(0) = New TypedValue(0, "LWPOLYLINE,POLYLINE")

        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 ids As ObjectId() = selRes.Value.GetObjectIds()
            _Editor.WriteMessage("Entity found: " + ids.Length.ToString() + vbLf)

        Catch ex As System.Exception
            _TryReport.Show("unerwarteter Fehler in  EBL.Import.Karten > Karten > AbgleichLayer2DB", ex.ToString)
            Return False
        End Try

        Return True
    End Function

---

Es kommt bei der Ausführung aber "Fehler beim der Elementauswahl" dabei heraus. In der aktuell geöffneten Zeichnung sind betreffende Elemente vorhanden!

Kann mir einer von Euch weiterhelfen?

Gruß Jan

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

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

---

... wie ist denn der zurückgegebene PromptStatus?

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

---

Moin!

erst einmal Danke für die Rückmeldung.

Zitat:

---

Error {-5001}

---

Kann man damit was anfangen?

Gruß Jan

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

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

---

Hallo Jan,

Probiere doch mal aus wenn Du die Definition

Code:

---

        Dim filterlist As TypedValue() = New TypedValue(1) {}

---

auf

Code:

---

        Dim filterlist As TypedValue() = New TypedValue(0) {}

---

änderst
Zumindest interpretiere ich dies so aus der Autocad-Hilfe. VB.net hat anscheinend Option Base 0, c# Option Base 1

bzw. wird bei c# die Anzahl der benötigten Felder angegeben
in Deinem Beispiel-Link:  TypedValue[] filterlist = new TypedValue[2];
werden zwei Felder definiert die mit filterlist[0] und filterlist[1] angesprochen werden
Durchlauf wäre dann : for (int i=0; i<2; i++)  { System.Console.Writeln(filterlist[j]); };

in VB (oder VBA) erfolgt die Definition mit
Dim filterlist(1) As TypedValue ' 2 Werte mit Option base 0
For i = 0 to 1 : Debug.WriteLine(filterlist(i)) : Next i

Der Fehler dürfte aus dem nicht definierten zweiten Filterwert entstehen

Grüße
Klaus  

[Diese Nachricht wurde von KlaK am 27. Jul. 2017 editiert.]

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