Simulieren Sie den linken Maustastendruck in einer Lispe

[christian_96]

Guten Morgen zu allen und guten Sonntag: Lächeln:
Einige gute Seele könnte erklären, wie Sie den Druck der linken Maustaste in einer Liste von Autolisp simulieren könnten?
Ich habe nach internen Tagen gesucht, aber ich kann keine Lösung finden. .

Vielen Dank im Voraus

p.s.: Ich weiß, dass es den grread Befehl gibt, aber ich kann es nicht funktionieren

 

[Cristallo]

Aber was brauchen Sie? Vielleicht kommen Sie anders dorthin.

 

[christian_96]

schnell zusammengefasst:

a) Ich bin in einer Weile Zyklus, der n° unbestimmte Drehungen wiederholt, so dass die Bedingung nicht auftritt.

b) während des Zyklus kann der Bediener (durch die Getkword-Funktion) nur drei Eingänge geben:

ANHANG den Zyklus fortsetzen, indem die Taste "c" gedrückt wird;
2. die letzte Operation durch Drücken der "a" Taste abbrechen;
3. Ende des Zyklus durch Drücken der "t" Taste.

c) um die Lispe effektiver und praktischer zu verwenden, würde ich die Funktion "1" (bezeichnet zuvor) durch den Druck des linken Schlüssels ersetzen müssen.

 

[GP.]

hängt davon ab, welche Schnittstelle Sie wollen, dass es den Befehl hat:
mit Das Wort die Eingabe erfolgt nur durch Tastatur, während der Bildschirm angezeigt wird Kreuzzeiger,
mit ♪ zeigt die Auswahlbereich und Sie können entweder auswählen oder eingeben.

die Differenz zwischen diesen Funktionen
Das Wort

(Defun c:tt)
(setq a t)
(while a
(Initget "c a t")
(setq a (getkword "\ndigitare opzione : "))
(cond)
( (= nil) (setq a "c")(prompt a) )
( (= "t") (setq a nil)
)
)
(princ)
)

♪

(Defun c:yy)
(satzq bis t)
(while a
(princ "\ndigitare opzione : ")
(Setq a (cadr (grread nil 14 2))
(cond)
(Gold (= bis 65) (= bis 67)
(Gold (= bis 67) (= bis 99)
(Gold (= bis 84) (= bis 116) (Setq bis nil)
(= 'list (type a) (setq a "c") (prompt a))
(t (setq a t) (princ "\opzione non valida")
)
)
(princ)
)

 

[GP.]

Ich habe vergessen, anzugeben, dass die erste Funktion (getkword) das Senden "c" erfordert
Tut mir leid.

 

[christian_96]

Okay danke sehr, sobald ich kann

 

[christian_96]

Ich habe die Liste versucht, die Sie mir angegeben haben, aber es tut nicht genau zu meinem Fall:frisch:
Ich frage mich, ob Sie den Druck der linken Maustaste in den getkword condizoni setzen können, oder anstatt die "c" Taste drücken ich die linke Maustaste

 

[rpor66]

; ritorna t se tasto mouse 1 premuto
(defun pressmouse(/schleife cod)
(Prompt "\nmouse 1 per continuare: ")
(Setq Loop t)
(while Schleife)
(setq cod (Auto))
(wenn (= cod 3) ; Maus 1
(Setq Loop nil)
)
)
t
)

Esempio:
(pressmouse) besuchen il click del tasto mouse 1 per continuare

Bye

 

[christian_96]

wäre perfekt als Code, nur ich kann es nicht mit getkword verwenden, weil es mir nicht die Möglichkeit gibt, die anderen Optionen zu wählen

 

[rpor66]

(defun pressmouseandkey(/ a b loop cod)
(Prompt " continua(Maus 1 o c) nichtigla termina ")
(Setq Loop t)
(while Schleife)
(setq a (grread t 2))
(Setq b (cadr a))
(falls = b -1)
(setq cod 0)
(setq cod)
)
(if (= cod 2)
(Prog.)
(cond)
((oder (= b 65) (= b 97)))) (Setq Schleife nil cod "a"))
(oder (= b 67) (= b 99))) (Setq-Schleife nil cod "c"))
(oder (= b 84) (= b 116))) (Setq-Schleife nil cod "t"))
)
)
)
; Maustaste 1
(if (= cod 3) (setq loop nil cod "c"))
)
Dorsch
)

Bye

 

[rpor66]

eine Vertiefung der von christian_96 angeforderten Diskussion

die Datei lisp ist die neue anpassbare Funktion.
die Zip-Datei enthält die im Detail erläuterte Funktion.

Bye