LiSP文件: (defun c:JJZJ () (setq dcl_id (load_dialog "JJZJ.DCL")) (if (not (new_dialog "jjzj" dcl_id)) (exit) ) (start_dialog) (start_image "aaa") (setq x (dimx_tile "aaa") y (dimy_tile "aaa")) (fill_image 0 0 x y -2) (slide_image 0 0 x y "test") (end_image) (unload_dialog dcl_id) ) DCL对话框: jjzj:dialog{ label="铰接柱脚"; :column{ :row{:image{key="aaa";height=30;width=50;color=0;}} :row{ label="确认这是需要的节点吗?";fixed_width=true;fixed_height=true; :edit_box{label="请输入图纸比例:";key=JJBL1;edit_width=4;edit_limit=4;} :button{label="指定插入点& <";key=base1;alignment=centered;fixed_width=true;} } } ok_cancel;} |