Lisp et double clic

[pingoo666]

Bonjour,

 

j'aimerai rendre certains de mes lisp plus user friendly et pour se faire il faudrait qu'il puissent s'éxécuter avec un double clic (sur un bloc ou une polyligne).

 

Mais j'ai du mal à comprendre comment faire.

 

Quelqu'un pourrait il me fournir un exemple avec un pitilisp qui récupère le ename de l'objet double cliqué...

 

Merci d'avance !

[Tramber]

Tu vas rentrer dans les réacteurs, si je ne m'abuse (tu peux faire une recherche et t'y mettre ou demander de l'aide pour aller plus loin)

 

Par contre, tu sais que désormais on peut associer une action par double-clic à un type d'objet dans le CUI. Donc, il te suffit d'associer un lisp qui regarde si ton objet est concerné par tes routines.

 

Dans ma petite besace, je n'ai qu'un code comme celui-ci :

 

(defun poilobec()
 (setq sel(cdr(ssgetfirst)))  
 )

 

où je suis en mesure de récupérer un jeu de sélection. C'est pas idéal mais dans la mesure où l'action déclenchée par dble-clic n'utilisera la macro ^C^C(poilobec) [que tu auras programmé dans le CUI] que si aucun autre objet n'est selectionné. Sinon l'action ouvre les propriétés.

 

Ca peut déjà être un début...

[pingoo666]

je connais les réacteurs et dans ce cas précis je ne pense pas que ce soit la bonne solution.

 

Pour donner le contexte j'ai crée des blocs aves des propriétés peronnalisées et en cas de double clic autocad ouvre une fenetre de dialogue user friendly.

 

Et en cas de réacteur soit je dois les recontruire à l'ouverture du dessin sois en cas de persistant ca va mettre un bordel monstre en cas de transmission extérieure du dessin.

 

c'est un truc genre (polibec) que je cherchais qui reste cantonné aux utilisateurs de ma société.

[(gile)]

Salut,

 

Tu peux utiliser l'évènement :vlr-beginDoubleClick du réacteur vlr-mouse-reactor :

 

(setq *dbleclickrea*
      (vlr-mouse-reactor
 nil
 '((:vlr-beginDoubleClick . doubleclickcallback))))

(defun doubleclickcallback (rea lst / elst ent)
 (if (setq elst (nentselp (car lst)))
   (progn
     (setq ent	(if (= 2 (length elst))
	  (car elst)
	  (last (last elst))
	)
     )
     (alert (cdr (assoc 0 (entget ent))))
   )
 )
)