ObjectDCL学习笔记(1).pdfVIP

ObjectDCL 学习笔记(1) PLmap@163.com 初识ObjectDCL AutoLisp 简洁、易学、功能强大，可满足用户的绝大多数需求。对一般的AutoCAD 用 户来说，AutoLisp 是进行开发的首选语言。但AutoLisp 使用的对话框编程语言DCL 和PDB 却实在不敢恭维，其功能、界面、编程方法都不能令人满意。 ObjectDCL 应运而生。 1.安装和设置ObjectDCL 1.1 运行 ObjectDCL 文件包中的 Setup.exe，一路Next 下去，ObjectDCL 就被安装到 C:\Program Files\3rd Day Software\ObjectDCL 文件夹中。 1.2 在安装ObjectDCL 的文件夹中，有ObjectDCL.arx 和ObjectDCL2004.arx 两个arx 库 文件。ObjectDCL.arx 用于Acad2000/2002 ，ObjectDCL2004.arx 用于Acad2004 。为方便编程， 把它们拷贝到Acad 的支持搜索路径中，或直接把安装ObjectDCL 的文件夹设置为Acad 的 支持搜索路径。 1.3 创建一个准备存放ObjectDCL 编程结果的文件夹，假设为D:\MyOdcl 。把D:\MyOdcl 也设置为Acad 的支持搜索路径。 现在就可以开始学习ObjectDCL 了。 2.启动和认识ObjectDCL 在安装ObjectDCL 的文件夹中，有个ObjectDCL.exe 文件，它就是ObjectDCL 的主程 序。运行ObjectDCL.exe，即进入ObjectDCL 编辑环境。 ObjectDCL 的主窗口很简洁，各菜单项的意义也很清楚，且大部分都在工具条和4 个停 靠子窗口中有对应的功能，而View 菜单是ObjectDCL 工具条和下面要说明的4 个工具停靠 子窗口的开关。工具条中的第一个图标对应的是工程菜单Project 的前5 个菜单项，用来添 加对话框窗体；工具条中的最后一个图标（照相机）对应的是工程菜单 View/Edit Picture Folder 菜单项，用来管理图形资源文件夹。 在 ObjectDCL 窗体的左侧，上面是控件工具箱(ToolBox)，下面是控件上下次序显示调 整窗口(Z/Tab Order) 。 在ObjectDCL 窗体的右侧，上面是工程结构树窗口(Project Tree)，下面是对话框/控件属 性(Properties)和事件(Events)窗口。 ObjectDCL 窗体的中间，就是以后摆放新创建的对话框的位置了。 3.创建一个最简单的对话框 既然是要创建一个最简单的对话框，那就是所谓的“Hello ”了。 3.1 编写对话框驱动程序框架 在开始创建对话框以前，先创建一个对话框驱动程序的框架: (defun C:MyHello() (if (not (member objectdcl.arx (arx))) (arxload objectdcl.arx 加载objectdcl.arx 失败.) ) (princ) ) 以MyHello.lsp 为名保存到D:\MyOdcl 文件夹中备用。建议，MyHello.lsp 的编辑器不要 关闭，我们下面还要用到它。 3.2 创建对话框 (1)在Projects 菜单中选取Add Modal Form 菜单项，窗体中就添加了一个没有控件的对 话框。这个对话框的默认名为DclForm1 。用鼠标单击对话框窗体，则ObjectDCL 窗体中右 下方的属性页(Properties) 中显示出当前对话框的所有属性值。把标题栏文本 (TitleBarText) 项的内容改为: “Hello ”。 (2)在控件工具箱中选择Label 控件放到对话框适当的位置。这个Label 控件的默认名为 Label1 。 把Label1 的标题(Caption) 内容改为: “各位网友，新年好！”。 把Label1 的字体(Font)改为你喜欢的字体和大小。 把Label1 的背景颜色(BackCol