Un bouton Icone

[Clément.a]

Bonjour tous le monde,

 

Est il possible de faire un bouton sur une DCL avec une icone dessus au lieu du texte "label"??

 

Merci

[alala]

Bonjour,

 

regarde sur ce site, le "image_button" peu te convenir!?

 

http://web2.airmail.net/terrycad/Tutorials/MyDialogs.htm#MyImageButton

 

@+

[Clément.a]

Ouais ça serait plus comme "My Pick Button" le bouton que je aimerais mais y dit pas dans le lisp comment il charge son icone, non?

et dans le lisp il y a :

(select_pick);* included

mais c'est jamais définie (select_pick)?

Bref j'ai pas tout compris comment il a fait!

[zebulon_]

Bonjour,

 

dans le DCL il faut définir un bouton image

            : image_button {
              key = "NomB";
              width                   = 18;
              aspect_ratio            = 0.75;
              color = 0;
            }

 

Dans le lisp, l'appel à ce bouton se fait

 (setq dcl_id (load_dialog "machin.dcl"))
 (if (not (new_dialog "machin" dcl_id)) (exit))
...
 (setq LARG (dimx_tile "NomB"))
 (setq HAUT (dimy_tile "NomB"))
 (start_image "NomB")
   (fill_image 0 0 LARG HAUT 1)  ;; 1 = Autocad rouge
   (slide_image 0 0 LARG HAUT "image")
 (end_image)
...
 (action_tile "NomB" "(do_NomB)")
...
 (setq What_next (start_dialog))
...
 (unload_dialog dcl_id)

 

fill_image inonde le bouton avec la couleur donnée.

Avec slide_image, "image" est le nom d'un fichier .sld, créé avec la fonction MCLICHE d'Autocad (donc, il n'est pas question de .jpg, ou autre fichier image courant. Que du .sld, comme slide. Un peu pauvre, en somme). Cette image .sld est à placer dans un répertoire référencé dans les chemins de recherche de fichiers support (outil OPTION)

 

A la place de slide_image on peut aussi utiliser vector_image, qui permet de tracer des vecteurs à l'intérieur du bouton image. A utiliser lorsque l'image est relativement simple...

 (setq LARG (dimx_tile "NomB"))
 (setq HAUT (dimy_tile "NomB"))
 (start_image "NomB")
   (fill_image 0 0 LARG HAUT 1)  ;; 1= autocad rouge
   (vector_image 0 0 LARG HAUT 2)  ;; 2 = autocad jaune
 (end_image)

 

C'est pas le Pérou...

 

Amicalement

Vincent

[Patrick_35]

Salut

 

Extrait di site en question

GetIcon is a great utility to add to your library of dialog functions

 

Tes icones, c'est pour quelle utilisation ?

Si c'est pour un message d'alerte, on peut aussi utiliser MsgBox

 

@+