MsgBox

[Patrick_35]

Bonjour

 

Je viens de faire une recherche pour afficher une boite de dialogue et j'ai trouvé ceci.

Enfin une boite de dialogue avec icone possible sans utiliser vba. Donc traduction en vlisp.

 

(defun msgbox(titre message bouton / wsh)
; Types de bouton
; Valeur 	Description
; 0 		Affiche le bouton OK.
; 1 		Affiche les boutons OK et Cancel.
; 2 		Affiche les boutons Abort, Retry et Ignore.
; 3 		Affiche les boutons Yes, No et Cancel.
; 4 		Affiche les boutons Yes et No.
; 5 		Affiche les boutons Retry et Cancel.
; Types d'icônes
; Valeur 	Description
; 16 		Affiche l'icône "Stop".
; 32 		Affiche l'icône "Point d'interrogation".
; 48 		Affiche l'icône "Point d'exclamation".
; 64 		Affiche l'icône "Informations".

; Valeurs de retour
; Valeur 	Description
; 1 		Bouton OK
; 2 		Bouton Cancel
; 3 		Bouton Abort
; 4 		Bouton Retry
; 5 		Bouton Ignore
; 6 		Bouton Yes
; 7 		Bouton No

 (setq wsh (vlax-create-object "WScript.Shell")
res (vlax-invoke wsh 'popup message nil titre bouton)
 )
 (vlax-release-object wsh)
 res
)

 

Pour tester

(msgbox "Mon alerte" "Autocad coule..." (+ 2 16))

 

ps : le timer pour fermer automatiquement la bd n'a pas l'air de fonctionner sur Autocad (remplacer le nil dans la fonction par un chiffre (secondes)).

 

@+

[GEGEMATIC]

Chouette,

on peut relooker une appli à peu de frais ...

a+

Gégé

[x_all]

tu es développeur chez autodesk?

[Patrick_35]

Non, pas du tout.

Et je viens de me souvenir que j'avais déjà donné cette solution.

J'ai confondu avec InputBox.

 

Faut pas vieillir :huh:

 

@+

[x_all]

ha? non non.. rien pour toi...

 

le message était pour gégé qui veux faire une version 2019 de sa routine de 1984 en changeant les icônes

:)