[编程交流] 需要lisp 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（（