需要lisp dcl幻灯片的帮助
我想在通过另一个edit\u box edit\u box时更改处于活动状态的图像，以尽可能显示我的其他图像，我不需要edit\u列表DCL
test_dcl : dialog { label = "Lee Mac Modified";
spacer;
:row {
:boxed_column{label="Setari Corpuri Baza Bucatarie";
: edit_box { //define edit box
key = "eb1" ; //give it a name
allow_accept = false;
is_tab_stop = false;
is_enabled= true;
label = "&Gaura din fata fund/mm" ; //give it a label
edit_width = 4 ; //4 characters only
}//edit_box
: edit_box { //define edit box
key = "eb2" ; //give it a name
label = "&Gaura din spate fund/mm" ; //give it a label
edit_width = 4 ; //4 characters only
}// edit_box
: edit_box { //define edit box
key = "eb3" ; //give it a name
label = "&Gaura din spate lateral/mm" ; //give it a label
edit_width = 4 ; //4 characters only
}// edit_box
: edit_box { //define edit box
key = "eb4" ; //give it a name
label = "&Gaura din fata lateral/mm" ; //give it a label
edit_width = 4 ; //4 characters only
}// edit_box
}// end boxed_column
: boxed_column { label = "Image Slide";
: image { key = "sld";
height = 15;
fixed_height = true;
width = 50;
fixed_width = true;
color = 0;
aspect_ratio = 1;
is_enabled = false;
is_tab_stop = false;
}
}
}
ok_cancel;
}
Lisp程序
（defun c:test（/slide path dch lst）（setq path“c:\\acad\”）（defun slide（key file）（if（setq file（findfile file））（progn（start\u image key）（fill\u image 0 0（dimx\u tile key）（dimy\u tile key）0）（slide\u image 1（-dimx\u tile key）2）（（dimy\u tile key）2）文件）（end\u image））（cond（（
页:
[1]