Simuler la pression du bouton gauche de la souris dans un lisp

[christian_96]

Bonjour à tous et bon dimanche:smile:
Une bonne âme pourrait expliquer comment simuler la pression du bouton gauche de la souris dans une liste d'autolisp ?
Je cherche depuis des jours, mais je ne trouve pas de solution. . . .

Merci beaucoup à l'avance

p.s.: Je sais qu'il y a la commande grread, mais je ne peux pas la faire fonctionner

 

[Cristallo]

Mais exactement de quoi avez-vous besoin ? Peut-être que tu y arrives différemment

 

[christian_96]

rapidement résumé:

a) Je suis dans un cycle de temps qui répète n° tours indéfinis, afin que la condition ne se produise pas.

b) pour le moment, pendant le cycle, l'opérateur (par la fonction getkword) ne peut donner que trois entrées:

1. poursuivre le cycle en appuyant sur la touche "c";
2. annuler la dernière opération en appuyant sur le bouton "a" ;
3. terminer le cycle en appuyant sur le bouton "t".

c) pour rendre le lisp plus efficace et plus pratique à utiliser, j'aurais besoin que la fonction "1" (cité précédemment) soit remplacée par la pression de la clé de gauche.

 

[GP.]

dépend de l'interface que vous voulez qu'elle ait la commande :
avec mot de passe l'entrée ne se produit que par clavier pendant que l'écran s'affiche pointeur croisé,
avec ♪ montre le Panneau de sélection et vous pouvez sélectionner ou taper.

voir la différence entre ces fonctions
mot de passe

(défun c:tt ()
(setq a t)
(alors que
(initget "c a t")
(setq a (mot de passe "\ndigerare opzione : "))
(cond
(= un zéro) (setq a "c")(prompt a) )
(= un "t")
)
)
(principal)
)

♪

(pourfun c:yy ()
(setq à t)
(alors que
(principal "\ndigerare opzione : ")
(setq a (cadr (grain zéro 14 2))
(cond)
(or (= à 65) (= à 67) (setq à "a") (principal a)
(or (= à 67) (= à 99) (setq à « c ») (principal a)
(or (= à 84) (= à 116) (à zéro)
(= 'liste (type a) (setq a " c)) (prompt a))
( t (setq a t) (principal "\opzione non validea")
)
)
(principal)
)

 

[GP.]

J'ai oublié de spécifier que la première fonction (getkword) nécessite l'envoi pour retourner "c"
Désolé.

 

[christian_96]

Merci beaucoup, dès que je peux.

 

[christian_96]

J'ai essayé la liste que vous m'avez indiquée mais elle ne fait pas exactement mon cas:frown:
Je me demande si vous pouvez régler la pression du bouton gauche de la souris dans le getkword condizoni, ou au lieu d'appuyer sur le bouton "c" j'appuie sur le bouton gauche de la souris

 

[rpor66]

; ritorna t se tasto souris 1 prémuto
(défun pressmouse(/ boucle cod)
(prompt "\nmouse 1 per continuare: ")
(setq loop t)
(tout en boucle
(Cabillaud setq (voiture (grain t 8)))
(si (= morue 3) ; souris 1
(la boucle setq est nulle)
)
)
t
)

Oui.
(pressmouse) assister il clic del tasto souris 1 per continuare

Au revoir.

 

[christian_96]

serait parfait comme code, seulement je ne peux pas l'utiliser avec getkword parce qu'il ne me donne pas la chance de choisir les autres options

 

[rpor66]

(défun pressmouseandkey(/ a b loop cod)
(prompt " continua(mouse 1 o c) annulla termina ")
(setq loop t)
(tout en boucle
(setq a (grain t 2))
(setq b (cadre a))
(si (= b -1)
(setq cod 0)
(cod de setq (voiture a))
)
(si (= cabillaud 2)
(progrès
(cond
((ou (= b 65) (= b 97)) (cabillère setq «a»))
(ou (= b 67) (= b 99)) (c'est-à-dire qu'il n'y a pas de cabillaud)
(ou (= b 84) (= b 116)) (cabillère setq « t »))
)
)
)
; bouton de souris 1
(si (= cabillaud 3) (cabillère de la ligne zéro))
)
morue
)

Au revoir.

 

[rpor66]

un approfondissement du débat demandé par christian_96

le fichier lisp est la nouvelle fonction personnalisable.
le fichier zip contient la fonction expliquée en détail.

Au revoir.