AutoLISP对话框DCL按钮Button设计实例

AutoLISP对话框DCL按钮设计实例，绘制三种形式的图形，DCL对话框设计代码如下。

dia5b:dialog {
    label = "按钮测试" ;
    :boxed_row {
        label = "图形尺寸" ;
        :edit_box {
            edit_width = 8 ;
            key="kww";
            label = "宽度WW:" ;
        }
        :edit_box {
            edit_width = 8 ;
            key="khh";
            label = "高度HH:" ;
        }
    }
    :button {
        key = "bb1" ;
        label = "DIA5B1-L型" ;
    }
    :button {
        key = "bb2" ;
        label = "DIA5B2-X型" ;
    }
    :button {
        key = "bb3" ;
        label = "DIA5B3-漏斗型" ;
    }
    spacer_1;