[RESOLU] Image selon choix bouton radio

[Bortch59]

Bonjour,

 

est-il possible dans une boite de dialogue dcl d'afficher "en temps réel" (sans validation de l'utilisateur) une image selon le bouton radio choisi?

 

Ex:

Face => Image Face

Dessus => Image Dessus

Coupe => Image Coupe

 

Je bricole du côté de "action_tile" mais sans grand succès.

 

Merci.

[(gile)]

Salut,

 

Tu peux utiliser action_tile pour mettre à jour l'image.

 

Un petit exemple qui suppose que les fichiers Face.sld, Dessus.sld et Coupe.sld soient dans les chemin de recherche d'AutoCAD.

 

Un petit DCL basique avec 3 boutons radio et une image :

 

ImageOption :dialog{
 label = "Test";
 :row{
   :boxed_radio_column{
     label = "Choix de la vue";
     key = "view";
     :radio_button{ label = "Face"; key = "front"; }
     :radio_button{ label = "Dessus"; key = "top"; }
     :radio_button{ label = "Coupe"; key = "section"; }
   }
   :column{
     :image{
       key = "img";
       aspect_ratio = 1.0;
       height = 8;
     }
   }
 }
 spacer;
 ok_cancel;
}

 

Le LISP qui contrôle la boite de dialogue :

 

(defun imgdlg (/ updateImage view dcl_id status)

 ;; met à jour l'image en fonction du bouton radio
 (defun updateImage (key / sld x y)
    (setq sld (cond ((= key "front") "Face")
                    ((= key "top") "Dessus")
                    ((= key "section") "Coupe")
              )
          x   (dimx_tile "img")
          y   (dimy_tile "img")
    )
   (start_image "img")
   (fill_image 0 0 x y 0)
   (slide_image 0 0 x y sld)
   (end_image)
 )

 (setq view "front") ; valeur par défaut
 (if (< 0 (setq dcl_id (load_dialog "ImageOption.dcl")))
   (if (new_dialog "ImageOption" dcl_id)
     (progn
       (set_tile "view" view)
       (updateImage view)
       (action_tile "view" "(updateImage (setq view $value))")
       (setq status (start_dialog))
       (unload_dialog dcl_id)
       ;; si OK
       (if (= status 1)
         view
       )
     )
     (prompt "\nLa boite de dialogue 'ImageOption' n'est pas définie.")
   )
   (prompt "\nLe fichier 'ImageOption.dcl' est introuvable")
 )
)

[Bortch59]

Salut,

 

la réponse colle parfaitement à la demande.

 

Merci.