---

Hallöle.

Für eine Funktion sollen Objekte ausgewählt werden. Wenn der User ein einzelnes Objekt trifft, soll es dann zum SelectionSet hinzugefügt werden. Wird kein Objekt getroffen, möchte ich davon ausgehen, dass der Nutzer mehrere Objekte durch aufziehen eines Rechteckes wählt.
Und genau da hakt es. Klickt der User daneben, wird Err wahr und es sollte .GetCorner aufgerufen werden. Aber der gepickte Punkt vom ersten Versuch ist leer, wegen Fehler eben.

Wo liegt denn da nun mein Denkfehler, kann ich das überhaupt so einfach implementieren?

Code:

---

  Dim P1 As Variant, P2 As Variant
  Dim Objekt As AcadEntity
 
  ThisDrawing.Utility.GetEntity Objekt, P1, "Objekt wählen: "
  If Err Then
    P2 = ThisDrawing.Utility.GetCorner(P1, "Andere Ecke wählen: ")
  End If

---

Haut mich mit dem Zaunpfahl 
Christian

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

---

Hallo Christian,

Setz mal vor die Objekt-Auswahl ein "On Local Error Resume Next".
Und nach der Asuwahl folgendes : If TypeName(Object) <> "Nothing" Then...

Damit sollte es laufen.

Gruß, Carsten

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

---

Danke, Carsten, für die flotte Antwort.

Gelöst wurde das Problem nicht, wenigstens habe ich jetzt erfahren, dass das Objekt (AcadEntity), sofern ich kein Objekt wähle, sondern (beabsichtigt) daneben klicke, nicht initialisiert ist.

Es wäre nett, wenn es etwas wie .GetInput gäbe. Alternativ könnte ich mir vorstellen, zuerst einen Punkt picken zu lassen. Sollte auf dem Punkt ein Objekt liegen, füge ich das hinzu. Aber da fehlt mir dann zB das nette 'Highlight' bei überfahren von Objekten.

Ein Workaround wäre, wenn ich den Maustastendruck abfange und mir dort die Mauskoordinaten merke...

Ein scheinbar triviales Problem. Aber es sind immer die Kleinigkeiten...

Grüße,
Christian

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

---

Hallo Christian,

auch innerhalb der AutoCAD Befehle wird diese (deine) Vorgehensweise nie verwendet. Entweder (ein) Objekt wählen oder (mehrere) Objekte wählen.
Mit SelectOnScreen kann der Benutzer ein oder meherer Objekte mit allen Optionen wie hinzufügen, entfernen, Fenster etc. verwenden.
Eigentlich sollte auch deine Funktion damit auskommen.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Hi Stelli.

Da muss ich auf das heftigste widersprechen. Wenn ich SCHIEBEN verwende (Befehl vor Auswahl), wird nach einem Objekt gefragt. So kann ich beliebig viele Objekte wählen. Klicke ich jedoch daneben, wird ein Fenster aufgezogen. Vielleicht habe ich es nicht adäquat ausgedrückt, aber soetwas wollte ich machen.

Soweit ich das sehe, werde ich wirklich im 'OnMausClick' die Koordinaten speichern, damit der erste Punkt auf jeden Fall gespeichert ist, galls nämlcih die .GetEntity nicht funktioniert.

Viele Grüße und auf ein baldiges Wochenende,
Christian

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

---

Hallo Christian,

vielleicht hab ich's wirklich nicht verstanden,
aber mit

Code:

---

Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("MySel")

sset.Clear
sset.SelectOnScreen

Debug.Print sset.Count

---

hast du genau das Eingabeverhalten wie beim Befehl SCHIEBEN.
Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Ich sag nur K N U D D E L - egal ob Mann oder Frau, manchesmal muß das sein 

Christian

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

---

Hallo Christian,

... war es so wie du es wolltest ?

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Das wollte ich damit ausdrücken, ja.

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