---

hallo...mal wieder eine frage...

ich hätte da eine lisp, die ich per rechter maustaste abbrechen will.
gehe ich recht in der annahme, dass das während einer getpoint-abfrage
geht, während entsel aber nicht?

enn ja...was kann ich tun? es sollte nunmal während entsel passieren!

------------------
.......good vibrations make the world go round 

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

---

doch, musst nil halt nur gegen die Wand fahren lassen.
wenn du entsel nimmst, ist die Rückgabe nil bei rechter Maus, oder nichts gewählt. Dann rufst du eben (exit) auf.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

[/URL]

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

---

hmmm....stimmt...
allerdings glaube ich, dass wenn ich bei entsel danebenklicke...
in meinem fall die linie nicht treffe, die rückgabe auch nil ist.
kann man das differenzieren?

------------------
.......good vibrations make the world go round 

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

---

baue dir einfach programmschleifen (while), die das klicken "überwachen"

- wurde ein objekt gewählt ?
- wurde mehr als X mal danebengeklickt oder rechtsgeklickt ?

ein danebenklicken passiert schnell, also eine 2.chance, daß man es nochmal versuchen darf.
bsp. zweimal rechtsklicken, oder nix klicken = programmende

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

---

jo..ne option...nicht suuuuuuuuuper toll
aber ne möglichkeit...thnx 

------------------
.......good vibrations make the world go round 

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

---

ja mit getpoint kann man sowas realisieren
habe da eine eigene entsel-routine gebaut, die genauso reagiert wie du es möchtest
rechte maustaste -> abbruch rückgabe nil
nichts(daneben) angecklickt -> routine bleibt im abfragemodus
element angecklickt -> (list ancklickpunkt elementname)

(defun fa:entsel ( / abbr pkt ss1 osmodeold)
  (setq osmodeold (getvar "OSMODE"))
  (while (not abbr)
    (setvar "OSMODE" 512)
    (if (setq pkt (getpoint))
        (if (setq ss1 (ssget "_C" pkt pkt))
    (setq abbr t erg (list pkt (ssname ss1 0)))
)
        (setq abbr t erg nil)
    )
  )
  (setvar "OSMODE" osmodeold)
  erg
)

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

---

@ fuchsi

bist ja ein fuchs 

------------------
.......good vibrations make the world go round 

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