---

Hallo an alle,

bin neu hier, habe aber schon alles abgesucht.

Ich wähle über SelectObjects verschiedene Kreisbögen, falls ich mich verklicke kann ich meine Auswahl nur durch "Alles auswählen" und "Auswahl umkehren" wieder rückgängig machen und muss dadurch wieder von vorne beginnen. Nun möchte ich falls ich mich verklicke nur diese Auswahl rückgängig machen. Kann mir jemand helfen?

Hier der Codeausschnitt:

Code:

---

If SelectObjects("Halbkreis wählen",
                       mySelectedObjects) = Selection.Response.Ok Then

....
End if

---

Hoffe der Ausschnitt reicht für das Verständnis.

Vielen Dank schonmal

[Diese Nachricht wurde von Daniel285 am 18. Jun. 2017 editiert.]

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

---

Zitat:

---

Original erstellt von Daniel285:

Hoffe der Ausschnitt reicht für das Verständnis.

[Diese Nachricht wurde von Daniel285 am 18. Jun. 2017 editiert.]

---

Für's Verständnis schon, für eine Antwort nicht. 

Welcher Dialog wird in SelectObjects aufgerufen ?

Gruß, Michael

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit seltner als das "Bitte, Bitte".

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

---

Unbenannt.JPG

Hier der Code zur Funktion und im Anhang das angezeigte Fenster wenn schon zwei Halbkreise gewählt sind:

Code:

---

    Function SelectObjects(prompt As String,
               ByRef selObj As NXObject()) As Selection.Response

        Dim theUI As UI = UI.GetUI

        Dim typeArray() As Selection.SelectionType =
            {Selection.SelectionType.Edges}

        Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(
                prompt, "Selection",
                Selection.SelectionScope.AnyInAssembly,
                False, typeArray, selObj)

        If resp = Selection.Response.ObjectSelected Or
                resp = Selection.Response.ObjectSelectedByName Or
                resp = Selection.Response.OK Then
            Return Selection.Response.Ok
        Else
            Return Selection.Response.Cancel
        End If

    End Function

---

[Diese Nachricht wurde von Daniel285 am 19. Jun. 2017 editiert.]

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

---

Hallo Daniel,

die Methode SelectObjects ist als "deprecated", also veraltet gekennzeichnet und sollte durch SelectTaggedObjects ersetzt werden. Elemente abwählen funktioniert in beiden Versionen wie auch sonst interaktiv durch die Shift-Taste, also Shift+Click.

Gruß, Michael

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit seltner als das "Bitte, Bitte".

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

---

Hallo Michael,

vielen Dank für die schnelle Antwort, das mit der Shift-Taste wusste ich nicht. Jedoch funktioniert die SelectTaggedObjects bei meiner Ausführung nicht, weshalb ich weiter mit SelectObjects arbeite.

Vielen Dank nochmals.

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