menu contextuel

[tiboulen]

salut

j'ai remarque que :(setq kk (getpoint "------------[trucmuche]"))

donnait un menu contextuel court avec "trucmuche" en 3eme ligne

comment expliquez vous ça ?

merci

 

 

[bonuscad]

L'usage d'initget avec les fonctions (getxxx) permet de retrouver les options dans le menu contextuel (click-droit) et de valider l'options via ce menu (sans saisie clavier, vous ne lachez pas la souris). On retrouve ainsi le mode de fonctionnement des commandes standard d' Autocad avec les options dans le menu contextuel ou en ligne de commande.

 

Attention la variable "SHORTCUTMENU" influe sur ce comportement.

 

Un petit exemple lisp qui illustre la syntaxe (en language international) pour obtenir ce menu.

Boucle tant que l'option "Rien" n'est pas sélectionné.

 

(defun c:test ( / sh_mnu key)
(setq sh_mnu (getvar "SHORTCUTMENU"))
(setvar "SHORTCUTMENU" 11)
(initget "Bonjour Aurevoir Rien _Hello Goodbye Nothing")
(while (/= key "Nothing")
	(if (not (setq key (getkword "\nDites moi [bonjour/Aurevoir/Rien]? : ")))
		(setq key "Hello")
	)
	(cond
		((eq key "Hello")
			(princ "\nBonjour")
		)
		((eq key "Goodbye")
			(princ "\nAurevoir")
		)
		((eq key "Nothing")
			(princ "\nRien")
		)
	)
	(initget "Bonjour Aurevoir Rien _Hello Goodbye Nothing")
)
(setvar "SHORTCUTMENU" sh_mnu)
(prin1)
)

[tiboulen]

merci pour la reponse, pour moi initget etait une commande remontant

a la version 12 d'autocad donc obsloete, je vois que non et je vais l'uitliser

pour fair des menus contextuels