---

Servus

Ich würde gern unterscheiden, ob auf (entsel) die Entertaste gedrückt wurde (liefert nil) oder mit der Picktaste in Leere (liefert auch nil).

Wenn ich mich recht erinnere, gabs das Thema schon mal, ich finds aber nimmer (vielleicht hat jemand ein besseres Gedächtnis).
Oder täusch ich mich und das geht gar nicht?

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Hallo Rabbit

Ja, zur Not ginge das. Aber mir wäre zur Objektwahl die Pickbox und zur Punktwahl das Fadenkreuz lieber.
Dank Dir trotzdem.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Hallo Ernst!
(grread) gibt die Art der Eingabe zurück.

Hab jetzt Termin, kann Dir falls notwendig
später noch mehr darüber sagen.

Gruß Claudio

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

---

Das Tool schaltet den Layer des angeklickten Objekts aus und bei Enter wieder ein. Ein Pick ins Leere würde mir eine zusätzliche Möglichkeit eröffnen (wenn von Enter unterscheidbar), nämlich das Aus-/Einschalten mit dem vorherigen Layer zu wiederholen ohne ein neues Objekt anzuklicken. (weil nach dem Verschieben des Bildausschnitts könnte das gewünschte Objekt wieder unter einem anderen liegen).

grread werd ich mir gleich mal anschauen.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Danke - grread ist die Lösung

(if (= 5 (car (grread (setq #obj (entsel)))))... >>> Objekt gewählt
(if (= 3 (car (grread (setq #obj (entsel)))))... >>> ins Leere geklickt
(if (= 12 (oder 11) (car (grread (setq #obj (entsel)))))... >>> Rechte Maustaste gedrückt
(if (= 2 (car (grread (setq #obj (entsel)))))... >>> Enter (Tastatur) gedrückt

(und wenn man alle Möglichkeiten verwenden will: cond statt if    )

------------------
Schöne Grüße
Ernst

www.geopaint.at

[Diese Nachricht wurde von Geos am 07. Mai. 2007 editiert.]

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

---

Hallo

Ist ja ne schöne Sache, aber sehe ich das Richtig das bei "ins Leere klicken" und bei "Enter" der Vorgang noch nicht beendet ist und nochmals ins Leere geklickt werden muß, oder nochmals Enter eingegeben werden muß ?. War zumindest bei meinen Tests so.

------------------
  Martin  

Viele Grüße aus dem schönen Münsterland!

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

---

Also ich habs so gebaut, dass ich ein Objekt wähle, mit "ins Leere klicken" aus/einschalte (dazwischen in der Regel Bildausschnitt verschiebe), nach "Eingabe" kann ich ein neues Objekt wählen oder mit einer (weiteren) "Leer-Eingabe" beenden.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

@mkl-cad : das siehst du richtig, außer bei Objekt gewählt, wo (car(entsel)) was ungleich nil zurückliefert. muß 2x geklickt werden..

deshalb (auch @Geos) guckt euch mal folgendes an :
(defun OBJWAHL (/ PB A OBJ AWS)
  (setq PB(* 0.5(getvar "PICKBOX")))
  (while(and(or(not(vl-catch-all-error-p
                    (setq A(vl-catch-all-apply
                            'grread(list 1 8 2)
                            )
                    )
                  )
              )
              (setq a nil)
            )                               
            (=(car a)5)
        )
  )   
  (cond
    ((not a)      (princ "\nESC\n"))
    ((=(cadr a)13)(princ "\nENTER\n"))
    ((=(car a) 3) (princ "\nLMC\n")
      (if(setq AWS(ssget
                    (mapcar '- (cadr a)(list PB PB 0))
                    (mapcar '+ (cadr a)(list PB PB 0))
                  )
        )     
        (progn
          (princ "\nObjekt gewählt")
          (setq OBJ (ssname AWS 0))
        )
        (princ "\nNichts gewählt\n")     
      )         
    )
    ((=(car a)25)(princ "\nRMC\n"))
  )
  OBJ
)
.. und bastelt was schönes draus.

@Rabbit : wenn ich den ersten Layer ausgeschaltet habe, Enter drücke ..neues Objekt wähle .. kann ich den Layer des neuen an uns aus schalten aber den Layer des ersten Objekts nicht mehr .. und : deinstallier mal deine *Error*-Funktion bei Error und Programmende!
Als User finde ich es nicht so toll, wenn ich das nachträglich händisch machen muß!!

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Servus Thomas

Mit ssget würde ich aber wieder das Fadenkreuz zur Objektwahl kriegen (was ich nicht möchte). Und mit entsel brauchts ein zusätzliches Pick (um über grread drüberzukommen !?)

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Teste einfach ... und ersetzt mal für den Pickboxcursor
'grread(list 1 8 2)
durch 'grread(list 1 (+ 4 8) 2)
..

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:
'grread(list 1 (+ 4 8) 2)

---

damit gefällts mir schon viel besser  - danke

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

Prima CADmium

das war genau das was ich meinte!

Konnte gestern leider wegen der nötigen aber machmal lästigen Arbeit nicht mehr antworten.

------------------
  Martin  

Viele Grüße aus dem schönen Münsterland!

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

---

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
)

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Servus Fuchsi

Mein Programm schaut jetzt so aus:
(Objektwahl mit Pickbox)

Code:

---

(defun c:ausblenden ()
  (while (= 5 (car (grread (setq #obj (entsel "\nLayer aus-/einschalten - Objekt wählen: <Ende> ")))))
    (setq #llay (cdr (assoc 8 (entget (car #obj)))))
    (setq #vorlay (getvar "CLAYER"))
    (command "_LAYER" "_set" "0" "")
    (print "Umschalten mit Pick-Taste / <Neue Auswahl>")
    (while (= 3 (setq #taste (car (grread ))))
      (if (minusp (cdr (assoc 62 (setq #laylist (tblsearch "LAYER" #llay)))))
        (command "_LAYER" "_ON" #llay "")
        (command "_LAYER" "_OFF" #llay "")
      )
    );while
    (command "_LAYER" "_set" #vorlay "")
  );while
  (print "Danke")(princ)
)

---

Aber Deine Funktion kann man sicher auch mal brauchen.

Gut Wehr

------------------
Schöne Grüße
Ernst

www.geopaint.at

[Diese Nachricht wurde von Geos am 22. Mai. 2007 editiert.]

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

---

Ich habs mit Layer 0 Geos Programm getestet, bei mir funzt es. Geos Programm finde ich auch schöner da man ohne Tastatur auskommt. Prima!

------------------
       Martin      

Viele Grüße aus dem schönen Münsterland!

[Diese Nachricht wurde von mkl-cad am 22. Mai. 2007 editiert.]

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

---

Zitat:

---

Original erstellt von Rabbit 007:
@Geos das funktioniert so nicht hast du mal den layer "0" ein und ausgeschaltet !!!

---

Auf dem Layer "0" sollte eigentlich nichts gezeichnet werden - ich kann deshalb drauf verzichten.

------------------
Schöne Grüße
Ernst

www.geopaint.at

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