petit soucis boite dcl

[Invité -=micka=-]

Bonjour,

 

je suis actuellement en train d'essayer de créer une boite dcl, mais je rencontre quelques dificultés:

j'aimerai savoir s'il existe une commande (ou autre) qui me permettrait d'avoir en temps réel une valeur qui varierait en fonction de la valeur d'une liste déroulante qui serait dans cette meme boite dcl.

 

Pour m'expliquer:

j'ai créé une boite dcl avec 4 listes déroulantes, elles servent a définir le nombre d'éléments que je veux insérer contre une ligne que j'aurait mesurer avant.

mais pour savoir combien j'en veux il me faudrait déja un "encart" qui affichrait la longueur de la ligne

et un deuxieme "encart" qui m'indiquerait la place que qui reste contre la ligne.

donc ce deuxième "encart" se metrait a jour à chaque fois que je changerais les valeurs des listes déroulantes.

 

Je joins le lisp et le dcl de ce que j'ai fait:

Le Lisp:

(defun c:bdcl_140611 (/ liste n nbre)

 (setq liste_rh (list "0" "1"))
 (setq liste_b3m (list "0" "1" "2" "3" "4" "5" "6" ))
 (setq liste_b2m (list "0" "1" "2" "3" "4" "5" "6"))
 (setq liste_sh (list "0" "1"))

 (setq dcl_id (load_dialog "BDCL_140611.dcl"))

 (if (not (new_dialog "bdcl_140611" dcl_id))

   (exit)

 )

 (start_list "nbr_rh")

 (mapcar 'add_list liste_rh)

 (end_list)

 (action_tile

   "accept"

   "(setq nbre_rh (atof (nth (atoi (get_tile \"nbr_rh\")) liste_rh)))

   (done_dialog))"

 )
 

 (start_list "nbr_b3m")

 (mapcar 'add_list liste_b3m)

 (end_list)

 (action_tile

   "accept"

   "(setq nbre_b3m (atof (nth (atoi (get_tile \"nbr_b3m\")) liste_b3m)))

   (done_dialog))"

 )
 
 
 (start_list "nbr_b2m")

 (mapcar 'add_list liste_b2m)

 (end_list)

 (action_tile

   "accept"

   "(setq nbre_b2m (atof (nth (atoi (get_tile \"nbr_b2m\")) liste_2m)))

   (done_dialog))"

 )
 
 
 (start_list "nbr_sh")

 (mapcar 'add_list liste_sh)

 (end_list)

 
 (action_tile

   "accept"

   "(setq nbre_sh (atof (nth (atoi (get_tile \"nbr_sh\")) liste_sh)))

   (done_dialog))"

 )

 (start_dialog)

 (unload_dialog dcl_id)

 (princ nbre_rh)
 (princ nbre_b3m)
 (princ nbre_b2m)
 (princ nbre_sh)

 (princ)

) 

 

et le DCL/

bdcl_140611:dialog{

 label="Vue en élévation";

:boxed_row{

:boxed_column{
   :boxed_column{
label="Hauteur de l'ouvrage";
   
   }
   :boxed_column{
label="Reste à coffrer";

   }
   }

:boxed_column{
  label="Choix des éléments";

 :boxed_column{

   label="Ré-hausse";

   :popup_list{

     label="Nombre :";

     key="nbr_rh";

     edit_width=10;

   }

 }

 :boxed_column{

   label="Banche de 3m";

   :popup_list{

     label="Nombre :";

     key="nbr_b3m";

     edit_width=10;

   }

 }

 
 :boxed_column{

   label="Banches de 2m";

   :popup_list{

     label="Nombre :";

     key="nbr_b2m";

     edit_width=10;

   }

 }

 
 :boxed_column{

   label="Sous-hausse";

   :popup_list{

     label="Nombre :";

     key="nbr_sh";

     edit_width=10;

   }

 }
 
 }
 
 }

 ok_cancel;

} 

 

 

Merci pour votre aide

 

[Tramber]

Bonjour,

Ici c'est le forum ObjectDCL. Faut pas confondre.

 

Toujours incapable de trouver 5 min pour monter une DCL et apprendre (depuis 10 ans !), je ne peux t'aider.

Mais je sais que tu viens de poster une réponse à un sujet qui semble le même à 8h26.

STP : le bon forum + pas de doublons.

 

Hoppla bon courage.

[Invité -=micka=-]

ok désolé,

c'est que j'ai déja posté ce message sur un autre forum, je pensais que celui-ci était plus adapté, car "objetDCL" et boite DCL se ressemble.

 

Merci

bonne journée