lisp+dcl+紧密_LISP与DCL

选出《钢构

CAD

》中的任一个实例作为范例

此处选其中的

“

连续编号

”

程序

AAA : dialog{

label="

钢

构

C A D ---

连

续

编

号

" ;

key="dial";

:row { //

无框水平排列

:boxed_row//

有框水平排列

:image//

幻灯显示框

{

key="HD-01";

width=25;//

显示框宽

height=1;

color=0;

fixed_width=true;

}

:radio_column{//

其下为无框竖向平排列

:boxed_radio_column{//

其下为有框竖向平排列

:row{

:edit_box{label="

文字高度

:";key="VZG";width=5;}

:edit_box{label="

起点编号

:";key="QDH";width=5;}

}

:radio_row {//

无加框行

:boxed_radio_row{//boxed_radio_row

加框按钮行

radio_row {//

无加框行

label="

引

线

";

:row{

:radio_button{label="

有

";key="BH-Y";}

:radio_button{label="

无

";key="BH-W";}

}

}

:boxed_radio_row{//boxed_radio_row

加框按钮行

radio_row {//

无加框行

label="

方

式

";key="JDQJ";

:radio_button{label="

递增

";key="FS-Z";}

:radio_button{label="

递减

";key="FS-J";}

}

}

:boxed_radio_row{//boxed_radio_row

加框按钮行

radio_row {//

无加框行

label="

插入点位置

";key="YH--";

:radio_button{label="

上

";key="YH-S";}

:radio_button{label="

下

";key="YH-X";}

:radio_button{label="

左

";key="YH-Z";}

:radio_button{label="

右

";key="YH-Y";}

}

:row{//

其下为水平排列

:button{width=5;label="

编

号

";key="accept";alignment = centered;fixed_width = true;is_default =

true;}//

按钮