由于您在第 3 课中所做的工作,您的gpmain.lsp文件变得相当大。这对于 Visual LISP 来说不是问题,但是如果将内容拆分为包含逻辑相关函数的文件,则维护代码会更容易。调试代码也更容易。例如,如果单个文件包含 150 个函数,则可能很难找到缺少的单个括号。
在本教程中,文件将按如下方式组织:
教程文件组织
|
文件名
|
内容
|
gp-io.lsp
|
所有输入和输出 (I/O) 功能),例如获取用户输入。还包含要添加的对话框界面所需的 AutoLISP 代码。
|
utils.lsp
|
包括可在其他项目上再次使用的所有泛型函数。还包含加载时初始化。
|
gpdraw.lsp
|
所有图形例程 - 实际创建 AutoCAD 图元的代码。
|
gpmain.lsp
|
基本的 C:GPath 函数。
|
将 gpmain.lsp 拆分为四个文件
- 创建一个新文件,然后将以下函数从gpmain.lsp剪切并粘贴到新文件中:
-
gp:getPointInput
-
gp:getDialogInput
将工作目录中的新文件保存为gp-io.lsp。
- 创建一个新文件,然后将以下函数从gpmain.lsp剪切并粘贴到新文件中:
-
Degrees->Radians
-
3Dpoint->2Dpoint
-
gp:list->variantArray
此外,在文件的开头,插入代码行以建立 ActiveX 功能 () 并提交全局变量赋值 ()。vl-load-com*ModelSpace*
将文件另存为utils.lsp。
- 创建一个新文件,然后将以下函数从gpmain.lsp剪切并粘贴到新文件中:
将此文件另存为gpdraw.lsp。
- 从gpmain.ls p 中剥离代码后,保存并检查它。只有原始函数 ,,应保留在文件中。C:GPath
您的桌面开始变得拥挤。您可以最小化 Visual LISP 中的任何窗口,并且它保持可访问性。单击工具栏上的“选择窗口”按钮从列表中选择一个窗口,或者从“Visual LISP”菜单中单击“窗口”并选择一个要查看的窗口。
|