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

jiang82040 发表于 2005-1-8 22:02:00

我写了一个插入图框的对话框，因小弟我初学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设计研究院"; }} } } } } } }

王咣生 发表于 2005-1-8 22:39:00

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 发表于 2005-1-8 22:58:00

谢谢王兄！谢谢！

王咣生 发表于 2005-1-8 23:09:00

本帖最后由作者于 2005-1-9 11:52:20 编辑

你的代码中:

Key定义有重复;

没有Ok或Cancel按钮;

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

页: [1]

明经CAD社区's Archiver

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

回复

回复