驱动连接程序错了，不知如何正确的修改，恳求各位高手帮忙看一下？

shichenxi

对话框程序：
dlg_ch:dialog
{label="无抽屉的柜子";
:row{
:column{
:boxed_column{
label="旁板的参数设置";
:row{
:popup_list{
label="旁板的长度";
key="pl";
width=5;
list="850\n1330\n1472\n";
}
:edit_box{width=4;key="ple";}
}
:row{
:popup_list{
label="旁板的宽度";
key="pw";
width=5;
list="450\n500\n";
}
:edit_box{width=4;key="pwe";}
}
:row{
:popup_list{
label="旁板的厚度";
key="pt";
width=5;
list="18\n";
}
:edit_box{width=4;key="pte";}
}
}
:boxed_column{
label="门板的参数设置";
:row{
:popup_list{
label="门板的长度";
key="ml";
width=5;
list="800\n1280\n1440\n";
}
:edit_box{width=4;key="mle";}
}
:row:{
:popup_list{
label="门板的宽度";
key="mw";
width=5;
list="397\n447\n";
}
:edit_box{width=4;key="mwe";}
}
:row{
:popup_list{
label="门板的厚度";
key="mt";
width=5;
list="18\n";
}
:edit_box{width=4;key="mte";}
}
}
:boxed_column{
label="顶板的参数设置";
:row{
:popup_list{
label="顶板的长度";
key="dl";
width=5;
list="800\n900\n";
}
:edit_box{width=4;key="dle";}
}
:row{
:popup_list{
label="顶板的宽度";
key="dw";
width=5;
list="472\n522\n";
}
:edit_box{width=4;key="dwe";}
}
:row{
:popup_list{
label="顶板的厚度";
key="dt";
width=5;
list="25\n";
}
:edit_box{width=4;key="dte";}
}
}
:column{
:boxed_column{
label="底板的参数设置";
:row{
:popup_list{
label="底板的长度";
key="bl";
width=5;
list="760\n860\n";
}
:edit_box{width=4;key="ble";}
}
:row{
:popup_list{
label="底板的宽度";
key="bw";
width=5;
list="448\n498\n";
}
:edit_box{width=4;key="bwe";}
}
:row{
:popup_list{
label="底板的厚度";
key="bt";
width=5;
list="18\n";
}
:edit_box{width=4;key="btw";}
}
}
label="望板的参数设置";
:row{
:popup_list{
label="望板的长度";
key="wl";
width=5;
list="760\n860\n";
}
:edit_box{width=4;key="wle";}
}
:row{
:popup_list{
label="望板的宽度";
key="ww";
width=5;
list="50\n";
}
:edit_box{width=4;key="wwe";}
}
:row{
:popup_list{
label="望板的厚度";
key="wt";
width=5;
list="18\n";
}
:edit_box{width=4,key="wte";}
}
}
:boxed_column{
label="搁板的参数设置";
:row{
:popup_list{
label="搁板的长度";
key="gl";
width=5;
list="760\n860\n";
}
:edit_box{width=4;key="gle";}
}
:row{
:popup_list{
label="搁板的宽度";
key="gw";
width=5;
list="430\n490\n";
}
:edit_box{width=4;key="gwe";}
}
:row{
:popup_list{
label="搁板的厚度";
key="gt";
width=5;
list="18\n";
}
:edit_box{width=4;key="gte";}
}
}
:column{
:boxed_column{
label="背板的参数设置";
:row{
:popup_list{
label="背板的长度";
key="cl";
width=5;
list="791\n1271\n1431\n";
}
:edit_box{width=4;key="cle";}
}
:row{
:popup_list{
label="背板的宽度";
key="cw";
width=5;
list="760\n860\n";
}
:edit_box{width=4;key="cwe";}
}
:row{
:popup_list{
label="背板的厚度";
key="ct";
width=5;
list="8\n";
}
:edit_box{width=4;key="cte";}
}
:boxed_column{
label="拉条板的参数设置";
:row{
:popup_list{
label="拉条板长度";
key="ll";
width=5;
list="760\n860\n";
}
:edit_box{width=4;key="lle";}
}
:row{
:popup_list{
label="拉条板宽度";
key="lw";
width=5;
list="80\n";
}
:edit_box{width=4;key="lwe";}
}
:row{
:popup_list{
label="拉条板厚度";
key="lt";
width=5;
list="18\n";
}
:edit_box{width=4;key="lte";}
}
}
ok_cancel；
}

驱动程序：
(defun showsub1 ()
  (setq jd (load_dialog "dlg_ch"))
  (if (=jd nil)
    (exit)
  )
  (while (>sdt1 1)
    (if (not (new_dialog "dlg_ch" id))
      (exit)
  )
  (action_tile "pl" "(setq pop 1) (sub_pop $value)")
  (action_tile "pw" "(setq pop 2) (sub_pop $value)")
  (action_tile "pt" "(setq pop 3) (sub_pop $value)")
  (action_tile "ml" "(setq pop 4) (sub_pop $value)")
  (action_tile "mw" "(setq pop 5) (sub_pop $value)")
  (action_tile "mt" "(setq pop 6) (sub_pop $value)")
  (action_tile "dl" "(setq pop 7) (sub_pop $value)")
  (action_tile "dw" "(setq pop 8) (sub_pop $value)")   
  (action_tile "dt" "(setq pop 9) (sub_pop $value)")
  (action_tile "bl" "(setq pop 10) (sub_pop $value)")
  (action_tile "bw" "(setq pop 11) (sub_pop $value)")
  (action_tile "bt" "(setq pop 12) (sub_pop $value)")
  (action_tile "wl" "(setq pop 12) (sub_pop $value)")
  (action_tile "ww" "(setq pop 13) (sub_pop $value)")
  (action_tile "wt" "(setq pop 14) (sub_pop $value)")
  (action_tile "gl" "(setq pop 15) (sub_pop $value)")
  (action_tile "gw" "(setq pop 16) (sub_pop $value)")
  (action_tile "gt" "(setq pop 17) (sub_pop $value)")
  (action_tile "cl" "(setq pop 18) (sub_pop $value)")
  (action_tile "cw" "(setq pop 19) (sub_pop $value)")
  (action_tile "ct" "(setq pop 20) (sub_pop $value)")
  (action_tile "ll" "(setq pop 21) (sub_pop $value)")
  (action_tile "lw" "(setq pop 22) (sub_pop $value)")
  (action_tile "lt" "(setq pop 22) (sub_pop $value)")
  (setq sdt1 (start_dialog))
  (if (= sdt1 1)
    (progn
      (load"c:\\程序\\柜子.lsp")
      (cabinet)
    )
  )
  (unload_dialog sdt1)
  (princ)
)




该贴已经同步到 shichenxi的微博

mandala

神马玩意？

shichenxi

回复 mandala 的帖子

就是上面一个是对话框，另一个是对话框驱动程序，我知道我驱动程序肯定错了，但是不知道怎么弄？