Aller au contenu

[RESOLU] Image selon choix bouton radio


Bortch59

Messages recommandés

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.

Lien vers le commentaire
Partager sur d’autres sites

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")
 )
)

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité