Bloc informations

[steelbe]

Bonsoir à tous le monde,

 

Je souhaite créer une boite de dialogue avec deux frames 1ere(list_box et desux zone_list) 2eme (list_box et deux zone_list pour insérer des informations dans un bloc avec attribus. J'ai crée une boite de dialogue et un fichier Lisp. Mon problème est de faire le lien entre les informations sélectionnées dans la boite de dialogue et le bloc pour que ses informations apparaisse lors de l'utilisation de se bloc.

DCL:

 

peinture_form : dialog {

label = "Spécification Peinture";

:row {

 

: boxed_colum {

label = "Primary Coat";

fixed_width=true;

width=22;

: list_box {

label = " REFERENCE PC";

key = "REFERENCE 1";

height = 15;

width = 25;

multi_select = false;

fixed_width_front = true;

list1 = "select 1\nselect 2\nselect 3\nselect 4\nselect 5\nselect 6\nselect 7";

value = "0";

}

 

: popup_list {

label = "Thickness OF PC :";

key = "EP_1";

width = 40;

multi_select = false;

fixed_width_front = true;

list2 = " selec 1\nselec 2\nselec 3\nselec 4\nselec 5";

value = "0";

}

: popup_list {

label = "Teinte of PC :";

key = "TEINTE_1";

width = 40;

multi_select = false;

fixed_width_front = true;

list3 = " selec 1\nselec 2\nselec 3\nselec 4\nselec 5";

value = "0";

}

}

 

: boxed_colum {

label = "Secondary Coat";

fixed_width=true;

width=22;

: list_box {

label = " REFERENCE SC";

key = "REFERENCE_2";

height = 15;

width = 25;

multi_select = false;

fixed_width_front = true;

list1 = "select 1\nselect 2\nselect 3\nselect 4\nselect 5\nselect 6\nselect 7";

value = "0";

}

 

: popup_list {

label = "Thickness of SC :";

key = "EP_2";

width = 40;

multi_select = false;

fixed_width_front = true;

list2 = " selec 1\nselec 2\nselec 3\nselec 4\nselec 5";

value = "0";

}

: popup_list {

label = "Teinte of SC :";

key = "TEINTE_2";

width = 40;

multi_select = false;

fixed_width_front = true;

list3 = " selec 1\nselec 2\nselec 3\nselec 4\nselec 5";

value = "0";

}

}

 

:row {

:button {

key = "accept";

label = "OK";

is_default = true;

}

:button {

key = "Annuler";

label = "Cancel";

is_default = false;

is cancel = true;

}

}

}

 

LISP:

 

(defun c:peinture_choix (/ id REFERENCE_1 EP_1 TEINTE_1 REFERENCE_2 EP_2 TEINTE_2)

(setq id (load_dialog "peinture_form.dcl"))

(if (not (new_dialog "peinture_form" id)) (exit))

 

(setq REFERENCE_1 (list "select 1" "select 2" "select 3"

"select 4" "select 5" "select 6"

"select 7"))

(start_list "REFERENCE_1" 5)

(mapcar 'add_list REFERENCE_1)

(end_list)

(setq EP_1 (list "selec 1" "selec 2" "selec 3"

"selec 4" "selec 5"))

(start_list "EP_1" 5)

(mapcar 'add_list EP_1)

(end_list)

(setq TEINTE_1 (list "selec 1" "selec 2" "selec 3"

"selec 4" "selec 5"))

(start_list "TEINTE_1" 5)

(mapcar 'add_list TEINTE_1)

(end_list)

(setq REFERENCE_2 (list "select 1" "select 2" "select 3"

"select 4" "select 5" "select 6"

"select 7"))

(start_list "REFERENCE_2" 5)

(mapcar 'add_list REFERENCE_2)

(end_list)

(setq EP_2 (list "selec 1" "selec 2" "selec 3"

"selec 4" "selec 5"))

(start_list "EP_2" 5)

(mapcar 'add_list EP_2)

(end_list)

(setq TEINTE_2 (list "selec 1" "selec 2"

"selec 3" "selec 4"

"selec 5"))

(start_list "TEINTE_2" 5)

(mapcar 'add_list TEINTE_2)

(end_list)

 

(set_tile "REFENECE_1" (CAR "REFENECE_1"))

(set_tile "EP_1" (CAR "EP_1"))

(set_tile "TEINTE_1" (CAR "TEINTE_1"))

(set_tile "REFENECE_2" (CAR "REFENECE_2"))

(set_tile "EP_2" (CAR "EP_2"))

(set_tile "TEINTE_2" (CAR "TEINTE_2"))

 

(action_tile "annuler" "(done_dialog 0)")

(action_tile "accept"...................)

 

(if (= ddiag 1)

(princ "\n \n ...end of dialogue \n ")

)

 

(if (= ddiag 2)

(progn

)

 

)

 

Les termes, REFERENCE_1,EP_1,TEINTE_1,REFERENCE_2,EP_2 ET TEINTE_2 sont les attributs crée dans le block.

Existe t-il un code pour lier cette boite de dialogue avec le block ayant comme nom:(PEINTUREPROTECTIONCOAT).

 

 

Merci d'avance pour votre aide

 

STEELBE