AutoCADDCL对话框设计示例六

AutoCADDCL对话框设计示例六，代码如下。

dcl:dialog {
    label = "第六个DCL设计" ;
    :text {
        alignment = centered ;
        label = "这是一个文本框" ;
    }
    :row {
        :edit_box {
            edit_width = 10 ;
            label = "图名：" ;
        }
        :edit_box {
            edit_width = 10 ;
            label = "日期：" ;
        }
    }
    :boxed_radio_row {
        alignment = centered ;
        label = "设计者" ;
        :radio_button {
            label = "月光宝盒" ;
        }
        :radio_button {
            label = "仙履奇缘" ;
        }
        :radio_button {
            label = "大圣娶亲" ;
            value = "1" ;
        }
    }
    :boxed_radio_row {
        label = "比例和曲率" ;
        :popup_list {
            edit_width = 8 ;
            label = "比例：" ;
            list = "1:1\n1:2\n1:3\n1:4" ;
        }
        :popup_list {
            edit_width = 8 ;
            label = "曲率：" ;
            list = "0.2\n0.4\n0.6\n0.8" ;
        }
    }
    spacer_1;
    ok_cancel;
}

代码完。