[LISP]哪位大虾帮忙看一下这个对话框，哪里有错？咋改！

jiang82040

我写了一个插入图框的对话框，因小弟我初学LISP，费了半天精神编出来了，却不知哪里有错，运行不了！请各位大虾帮忙看看，小弟在此谢谢了！ //插入图框程序对话框设计
tukuang: dialon{
lable="填写图幅及标题栏信息";
spacer_1;
:column{
:row{
:boxed_radio_row{
key="TF";
:radio_button{
label="A0";
key="A0";
value="0";
}
:radio_button{
label="A1";
key="A1";
value="0";
}
:radio_button{
label="A2";
key="A2";
value="0";
}
:radio_button{
label="A3";
key="A3";
value="1";
}
:radio_button{
label="A4";
key="A4";
value="0";
}
}
:boxed_radio_row{
key= "ZH";
:radio_button{
label="横向";
key="HX";
value="1";
}
:radio_button{
label="纵向";
key="ZX";
value="0";
}
}
}//第一行完成row :row {
:column {
:edit_box {
label="";
key= "K1";
edit_width=10;
}
:edit_box {
label="";
key= "K2";
edit_width=10;
}
:text {
label="标记/数量";
}
:text{
label="设计";
}
:text{
label="制图";
}
:text{
label="检查";
}
:text{
label="项目负责";
}
:text{
label="描图";
}
}//第一列完成 :column{
:edit_box{
label="";
key="K3";
edit_width=10;
}
:edit_box{
label="";
key="K4";
edit_width=10;
}
:text{
label="修改者";
}
:edit_box{
label="";
key="SJ";
edit_width=10;
}
:edit_box{
label="";
key="ZT";
edit_width=10;
}
:edit_box{
label="";
key="JC";
edit_width=10;
}
:edit_box{
label="";
key="XMFZ";
edit_width=10;
}
:edit_box{
label="";
key="MT";
edit_width=10;
}
}//第二列完成 :column{
:row{
:edit_box{
label="";
key="K5";
edit_width=10;
}
:edit_box{
label="";
key="K7";
edit_width=10;
}
}
:row{
:edit_box{
label="";
key="K6";
edit_width=10;
}
:edit_box{
label="";
key="K8";
edit_width=10;
}
}
:row{
:text{
label="批准者";
}
:text{
label="日期";
}
}
:row{
:text{
label="总工";
}
:edit_box{
label="";
key="ZG";
edit_width=10;
}
}
:row{
:text{
label="院长";
}
:edit_box{
label="";
key="YZ";
edit_width=10;
}
}
:row{
:edit_box{
label="";
key="K9";
edit_width=10;
}
:edit_box{
label="";
key="K11";
edit_width=10;
}
}
:row{
:edit_box{
label="";
key="K10";
edit_width=10;
}
:edit_box{
label="";
key="K12";
edit_width=10;
}
}
:edit_box{
label="";
key="RQ";
edit_width=20;
}
}//第三列完成 :column{
:row{
:column{
:text{
label="项 目";
}
:text{
label="名 称";
}
}
:edit_box{
label="";
key="XMMC";
edit_width=80;
height=12;
}
}
:row{
:edit_box{
label="";
key="SJTMC";
edit_width=40;
height=24;
}
:column{
:edit_box{
label="";
key="TH";
edit_width=40;
height=12;
}
:row{
:text{
label="共 页";
}
:edit_box{
label="";
key="ZYUE";
value="1";
edit_width=14;
}
:text{
label="比例";
}
}
:row{
:text{
label="第 页";
}
:edit_box{
label="";
key="DJY";
value="1";
edit_width=14;
}
:edit_box{
label="";
key="DJY";
value="1:2000";
edit_width=13;
}
}
:row{
:popup_list{
label="";
key="PMXZ";
width=40;
list="平面图\n平面示意图\n示意图";
value="1";
}
:edit_box{
label="";
key="SJDW";
value="XXX设计研究院";
}}
}
}
}
}
}
}

王咣生

tukuang: dialog{
lable="填写图幅及标题栏信息";
spacer_1;
:column{
:row{
:boxed_radio_row{
key="TF";
:radio_button{
label="A0";
key="A0";
value="0";
}
:radio_button{
label="A1";
key="A1";
value="0";
}
:radio_button{
label="A2";
key="A2";
value="0";
}
:radio_button{
label="A3";
key="A3";
value="1";
}
:radio_button{
label="A4";
key="A4";
value="0";
}
}
:boxed_radio_row{
key= "ZH";
:radio_button{
label="横向";
key="HX";
value="1";
}
:radio_button{
label="纵向";
key="ZX";
value="0";
}
}
}//第一行完成row :row {
:column {
:edit_box {
label="";
key= "K1";
edit_width=5;
}
:edit_box {
label="";
key= "K2";
edit_width=5;
}
:text {
label="标记/数量";
}
:text{
label="设计";
}
:text{
label="制图";
}
:text{
label="检查";
}
:text{
label="项目负责";
}
:text{
label="描图";
}
}//第一列完成 :column{
:edit_box{
label="";
key="K3";
edit_width=5;
}
:edit_box{
label="";
key="K4";
edit_width=5;
}
:text{
label="修改者";
}
:edit_box{
label="";
key="SJ";
edit_width=5;
}
:edit_box{
label="";
key="ZT";
edit_width=5;
}
:edit_box{
label="";
key="JC";
edit_width=5;
}
:edit_box{
label="";
key="XMFZ";
edit_width=5;
}
:edit_box{
label="";
key="MT";
edit_width=5;
}
}//第二列完成 :column{
:row{
:edit_box{
label="";
key="K5a";
edit_width=5;
}
:edit_box{
label="";
key="K7";
edit_width=5;
}
}
:row{
:edit_box{
label="";
key="K6";
edit_width=5;
}
:edit_box{
label="";
key="K8";
edit_width=5;
}
}
:row{
:text{
label="批准者";
}
:text{
label="日期";
}
}
:row{
:text{
label="总工";
}
:edit_box{
label="";
key="ZG";
edit_width=5;
}
}
:row{
:text{
label="院长";
}
:edit_box{
label="";
key="YZ";
edit_width=5;
}
}
:row{
:edit_box{
label="";
key="K9";
edit_width=5;
}
:edit_box{
label="";
key="K11";
edit_width=5;
}
}
:row{
:edit_box{
label="";
key="K5b";
edit_width=5;
}
:edit_box{
label="";
key="K12";
edit_width=5;
}
}
:edit_box{
label="";
key="RQ";
edit_width=10;
}
}//第三列完成 :column{
:row{
:column{
:text{
label="项 目";
}
:text{
label="名 称";
}
}
:edit_box{
label="";
key="XMMC";
edit_width=40;
height=6;
}
}
:row{
:edit_box{
label="";
key="SJTMC";
edit_width=20;
height=12;
}
:column{
:edit_box{
label="";
key="TH";
edit_width=40;
height=12;
}
:row{
:text{
label="共 页";
}
:edit_box{
label="";
key="ZYUE";
value="1";
edit_width=14;
}
:text{
label="比例";
}
}
:row{
:text{
label="第 页";
}
:edit_box{
label="";
key="DJY1";
value="1";
edit_width=14;
}
:edit_box{
label="";
key="DJY2";
value="1:2000";
edit_width=13;
}
}
:row{
:popup_list{
label="";
key="PMXZ";
width=20;
list="平面图\n平面示意图\n示意图";
value="1";
}
:edit_box{
label="";
key="SJDW";
value="XXX设计研究院";
}}
}
}
}
}
}
ok_cancel;
}

jiang82040

谢谢王兄！谢谢！

王咣生

你的代码中:



         Key定义有重复;


         没有Ok或Cancel按钮;


         整个Dialog设计太大,超出显示范围;