| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Pick- oder EnterTaste (2033 mal gelesen)
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 07. Mai. 2007 11:33 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied | |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 07. Mai. 2007 12:56 <-- editieren / zitieren --> Unities abgeben:
|
Claudio Mitglied Architekt
Beiträge: 334 Registriert: 13.04.2002
|
erstellt am: 07. Mai. 2007 13:15 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
|
Ex-Mitglied | |
Ex-Mitglied | |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 07. Mai. 2007 15:28 <-- editieren / zitieren --> Unities abgeben:
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 |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 07. Mai. 2007 16:04 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied | |
mkl-cad Mitglied Technischer Zeichner
Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme
|
erstellt am: 09. Mai. 2007 08:52 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
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 |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 09. Mai. 2007 18:57 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied | |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 09. Mai. 2007 21:21 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
@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 |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 10. Mai. 2007 07:42 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 10. Mai. 2007 07:53 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
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 |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 10. Mai. 2007 08:25 <-- editieren / zitieren --> Unities abgeben:
|
mkl-cad Mitglied Technischer Zeichner
Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme
|
erstellt am: 10. Mai. 2007 09:46 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
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 |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 21. Mai. 2007 13:04 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
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 |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 22. Mai. 2007 07:28 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied | |
Ex-Mitglied | |
mkl-cad Mitglied Technischer Zeichner
Beiträge: 378 Registriert: 23.07.2003 ACAD 2002 Express Tools 1-9 Architektural Desktop Windows XP Server Windows 2003 3 GHz Rechner 1 GB RAM 80 GB Festplatte ATI FireGL V3100 2 17" Flachbildschirme
|
erstellt am: 22. Mai. 2007 16:22 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
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 |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 22. Mai. 2007 16:51 <-- editieren / zitieren --> Unities abgeben:
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 |