dcl captar textos
Publicado por APOLLO (33 intervenciones) el 10/01/2006 20:27:27
Hola. Mi problema es el siguiente: Cree este cuadro en DCL (esta mas abajo), pero no encuentro la forma de captar las variables que pueda introducir el usuario.
el cuadro es:
gb:dialog {label="parcelas";
:row {
:boxed_column {label="manzanado";
:edit_box {label="Direccion en &X";edit_width=3;edit_limit=3;key="dirx";}
:edit_box {label="Direccion en &Y";edit_width=3;edit_limit=3;key="diry";}
spacer_1;
}
}
spacer_1;
:row {:toggle {label="&Caño a la derecha";key="Caño1";}}
:row {:toggle {label="C&año arriba";key="Caño2";}}
:row {:toggle {label="Ca&ño a la izquierda";key="Caño3";}}
:row {:toggle {label="Cañ&o abajo";key="Caño4";}}
spacer_1;
:row {ok_cancel;}
}
quisiera saber si alguien me puede decir como meter en una variable (por ejemplo dirx) lo que el usuario escribe en dirx
yo probe esto, pero no sirve
(setq ind (load_dialog "n:/configuracion/lisp/gb.dcl"))
(new_dialog "gb" ind)
(start_dialog)
(setq val-x (atof (get_tile "dirx")))
(setq val-y (atof (get_tile "diry")))
(unload_dialog ind)
(done_dialog)
gracias por adelantado al que me pueda dar una mano!!!
el cuadro es:
gb:dialog {label="parcelas";
:row {
:boxed_column {label="manzanado";
:edit_box {label="Direccion en &X";edit_width=3;edit_limit=3;key="dirx";}
:edit_box {label="Direccion en &Y";edit_width=3;edit_limit=3;key="diry";}
spacer_1;
}
}
spacer_1;
:row {:toggle {label="&Caño a la derecha";key="Caño1";}}
:row {:toggle {label="C&año arriba";key="Caño2";}}
:row {:toggle {label="Ca&ño a la izquierda";key="Caño3";}}
:row {:toggle {label="Cañ&o abajo";key="Caño4";}}
spacer_1;
:row {ok_cancel;}
}
quisiera saber si alguien me puede decir como meter en una variable (por ejemplo dirx) lo que el usuario escribe en dirx
yo probe esto, pero no sirve
(setq ind (load_dialog "n:/configuracion/lisp/gb.dcl"))
(new_dialog "gb" ind)
(start_dialog)
(setq val-x (atof (get_tile "dirx")))
(setq val-y (atof (get_tile "diry")))
(unload_dialog ind)
(done_dialog)
gracias por adelantado al que me pueda dar una mano!!!
Valora esta pregunta


0