这里写的是一个简单对话框驱动程序的实例,对话框文件的名字是“1.dcl”,存放在d驱动器的example\dcl\目录下,对话框的名字是yuan,外观见图。
首先是对话框布局DCL文件
yuan:dialog{ //定义名字为yuan的对话框
label= "绘制圆";//显示在对话框顶部的标签
:row{ //引用行
:image //引用图像控件
{width=30;//图像的宽
height=8;//图像的高
key="img_cr";//图像的关键字
color=-2;//图像的背景色为AutoCAD的背景色
}//图像引用结束
:boxed_column{//引用加框列
label="几何数据";//加框列的标签
:edit_box{ //引用编辑框1
label="圆心X(mm):";//编辑框1的标签
edit_width=8;//编辑框1的宽度
key="X";//编辑框1的关键字
mnemonic="X";//编辑框1的热键
}//编辑框1引用结束
:edit_box{ //引用编辑框2
label="圆心&Y(mm):";//编辑框2的标签&之后的字符是热键
width=8;//编辑框2的宽度
key="Y";//编辑框2的关键字
}//编辑框2引用结束
:edit_box{ //引用编辑框3
label="半径R(mm):";//编辑框3的标签
width=8;//编辑框3的宽度
key="R";//编辑框3的关键字
mnemonic="R";//编辑框3的热键
}//编辑框3引用结束
}//加框列引用结束
}//行引用结束
ok_cancel;// 引用ok_cancel组合控件
}
然后是驱动程序LS