Petite boite de dialogue

[mitnix]

Salut tout le monde

 

Dans un code a un moment je fait afficher un résultat dans la ligne de commande par la fonction "print" mais je prefèrerai que ca s'affiche dans une boite de dialogue et le problème c'est que je sais pas faire.

Alors si quelqu'un sais . Je voudrait juste faire apparaitre une petite boite avec un texte mon resultat et un petit bouton ok pour pouvoir sortir de cet fenetre. V'la c'est tout

Puis si vous savait ou je peut trouver des tuto sur le DCL ca m'intèresse.

[didier]

bonsoir,

je vais essayer d'être clair,

Premièrement,

tu doid créer un fichier qui va contenir ceci :

message : dialog {

label = " INFORMATION MITMIX ";

: text_part {

key = "mess";

alignment = centered;

label = "";

width = 32;

height = 2;

}

ok_only;

}

tu vas le sauvegarder sous le nom message_mitmix, avec l'extension DCL

 

ensuite tu mets ce qui suit dans ton fichier Lisp

(defun message (text / Fic)

(setq Fic (load_dialog "message_mitmix.dcl"))

(if (not (new_dialog "message" Fic))

(exit)

) ;_ Fin de if

(set_tile "mess" text)

(action_tile "accept" "(done_dialog)")

 

(start_dialog)

(unload_dialog Fic)

(princ)

)

au moment où tu veux afficher le message

la ligne dans ton Lisp sera :

(message "ceci est mon message")

la chaîne "ceci est mon message",

est ce qui apparaitra dans le case de dialogue,

donc tu y mets ce que tu veux,

TANT QUE C'EST DU TEXTE,

si c'est du numérique, transforme-le avant.

 

c'est tout ce que j'ai à dire,

ah non : amicalement

[x13]

Tutoriels en anglais: http://www.jefferypsanders.com/

http://www.afralisp.com/

http://www.gregmacg.com/

Tutoriels en esopagnol: http://www.gr-acad.arq.br/paginas/efer100.htm

 

Bon apprentissage.

[mitnix]

http://smileyonline.free.fr/images/gif/pascompris/vignette/thumbnails/Wow1_gif.gif

 

Ouha, ben la va falloir que je mit pose un petit peu. pas tout comprit mais je vait essayer de comprendre.

 

Merci pour les explication et pour les tuto

 

Byebye

[CoolM@n]

Encore plus simple. Utilise le message d'alerte d'Acad.

 

Ex:

 

(defun c:user ()

(setvar "cmdecho" 0)

(setvar "dimzin" 0)

 

(alert (strcat

 

"Variables Utilisateurs AutoCad.\n"

"\nUser Integer 1 :" (itoa (getvar "useri1") )

"\nUser Integer 2 :" (itoa (getvar "useri2") )

"\nUser Integer 3 :" (itoa (getvar "useri3") )

"\nUser Integer 4 :" (itoa (getvar "useri4") )

"\nUser Integer 5 :" (itoa (getvar "useri5") )

"\n_______________________________"

"\nUser Real 1 :" (Rtos (getvar "Userr1") 2 5)

"\nUser Real 2 :" (Rtos (getvar "Userr2") 2 5)

"\nUser Real 3 :" (Rtos (getvar "Userr3") 2 5)

"\nUser Real 4 :" (Rtos (getvar "Userr4") 2 5)

"\nUser Real 5 :" (Rtos (getvar "Userr5") 2 5)

"\n_______________________________"

"\nUser String 1 :" (getvar "Users1")

"\nUser String 2 :" (getvar "Users2")

"\nUser String 3 :" (getvar "Users3")

"\nUser String 4 :" (getvar "Users4")

"\nUser String 5 :" (getvar "Users5")

)

)

 

(setvar "dimzin" 8)

(setvar "cmdecho" 1)

(princ)

)

[didier]

bonjour Jean Paul,

il est certain que c'est plus simple,

et je m'en sert souvent,

mais j'ai répondu, dans le sens d'une boîte spécifique,

il y a même un titre qui est personnel.

ceci dans le but de commencer avec le DCL.

 

ton message va intéresser tous ceux qui veulent faire vite.

merci d'avoir complété ma réponse

amicalement