Visual LISP入门指南：CAD二次开发实战教程

需积分: 46 75 浏览量更新于2024-07-22 收藏 477KB PDF 举报

本指南深入介绍了CAD二次开发中的Visual LISP技术，旨在帮助读者理解和掌握如何利用这一强大的编程环境进行Autodesk AutoCAD应用的定制和扩展。以下章节概要： 1. **第一章：简介** - 介绍Visual LISP的基本概念，包括其在CAD环境中的应用以及作为开发工具的优势。 - 学习如何开始使用Visual LISP，包括如何等待控制台返回操作结果，以及如何编写简单的应用程序。 2. **第二章：设计和开始编程** - 设计程序目标，强调规划和结构的重要性。 - 教导基本的编程步骤，如查看Visual LISP控制流程，设置代码格式，分析和填充代码。 - 提供实例，如创建空函数和运行程序，以及如何使用调试工具检查和优化代码。 3. **第三章：使用Visual LISP调试工具** - 区分局部和全局变量，讲解它们在程序中的作用。 - 教授如何通过关联表绑定数据，以及如何监控程序变量、设置断点和单步执行代码。 - 详细介绍如何调试gp:getPointInput等关键函数，以便更好地理解和控制程序流程。 4. **第四章：绘制小路边界** - 开发实用函数如度转弧度和三维点转换，为图形绘制做准备。 - 介绍使用ActiveX、entmake和命令行创建图元的方法，以及如何调用gp:drawOutline绘制边界。 - 关注参数传递、角度处理和ActiveX代码的理解，确保所有组件的整合。 5. **第五章：创建工程和添加界面** - 探讨模块化编程，提高代码复用性和维护性。 - 教授如何利用Visual LISP工程组织代码，实现更复杂的项目结构和用户界面设计。通过以上章节，读者将建立起对Visual LISP在CAD环境中编程的基础，掌握从设计到实现，再到调试和优化完整开发流程的关键技能。无论是初学者还是经验丰富的开发者，都能在这个指南中找到提升自己技能的实用内容。

4. 您检验完变量后，可以关闭所有“检验”窗口，但请使“监视”窗口保

持打开。

3.4 修改程序代码

您已经看到如何在 AutoLISP 代码中使用关联表，现在可以用该方法编写

完整的 gp:getPointInput 函数了。可以使用下面的代码，替换或修改您以前保

存在文件 gpmain.lsp 中的函数 gp:getPointInput。

注意如果要将代码键入到文件 gpmain.lsp 中，而不是将它从其他文件

中复制过来，您可以不键入注释（所有以分号 (;) 开头的行）以节约时间。但

写代码时千万要加注释！

;;;--------------------------------------------------------------;

;;; 函数：gp:getPointInput ;

;;;--------------------------------------------------------------;

;;; 说明：此函数让用户在图形中选取 ;

;;; 三个点，以确定;

;;; 小路的位置、方向和大小。 ;

;;;--------------------------------------------------------------;

;;; 如果用户输入有效值响应 get 函数， ;

;;; 用 startPt 和 endPt 来确定所画小路的 ;

;;; 位置、长度和角度。 ;

;;;--------------------------------------------------------------;

;;; 此函数的返回值是包含以下内容的表： ;

;;; (10 . 起点) ;; 含三个实数的表，用来指定 ;

;;; ;; 花园小路的起点。 ;

;;; (11 . 端点) ;; 含三个实数的表，用来指定 ;

;;; ;; 花园小路的端点。 ;

;;; (40 . 宽度) ;; 实数，用来指定小路边界 ;

;;; ;; 宽度。 ;

;;; (41 . 长度) ;; 实数，用来指定小路边界 ;

;;; ;; 长度。 ;

;;; (50 . 小路方向) ;; 实数，以弧度为单位指定 ;

;;; ;; 花园小路的方向。 ;

;;;--------------------------------------------------------------;

(defun gp:getPointInput (/ StartPt EndPt HalfWidth)

(if (setq StartPt (getpoint "\nStart point of path: "))

(if (setq EndPt (getpoint StartPt "\nEndpoint of path: "))

(if (setq HalfWidth (getdist EndPt "\nhalf-width of path: "))

;; 按上面所述创建

;; 关联表，该关联表将成为函数

;; 的返回值。

(list

(cons 10 StartPt)

(cons 11 EndPt)

(cons 40 (* HalfWidth 2.0))

(cons 50 (angle StartPt EndPt))

(cons 41 (distance StartPt EndPt))

) ) ) ) )

然后，您需要更新 gpmain.lsp 中的主函数 C:GPath，将它修改成以下代码所示：

(defun C:GPath (/ gp_PathData)

;; 要求用户输入：先输入小路的位置和

;; 方向，然后是小路的各项参数。只有在输入了有效的参数之后，

;; 才继续工作。数据存储在 gp_PathData 中。

(if (setq gp_PathData (gp:getPointInput))

(if (gp:getDialogInput)

(progn

;; 此时，已经获得用户的有效输入。

;; 画出轮廓，将得到的多段线指针存入名为

;; PolylineName 的变量中。

(setq PolylineName (gp:drawOutline))

(princ "\nThe gp:drawOutline function returned <")

(princ PolylineName)

(princ ">")

(Alert "Congratulations - your program is complete!")

) ;_ 结束 progn

(princ "\nFunction cancelled.")

) ;_ 结束 if

(princ "\nIncomplete information to draw a boundary.")

) ;_ 结束 if

(princ) ; 静默退出

) ;_ 结束 defun

对于复制和粘贴代码，请将以下注释加在 C:GPath 前面：

;;;**************************************************************;

;;; 函数：C:GPath 花园小路的主函数 ;

;;;--------------------------------------------------------------;

;;; 说明:这是花园小路的主函数。它是 ;

;;; C:函数，说明它已成为 ;

;;; 名为 GPATH 的 AutoCAD 命令。该函数 ;

;;; 决定花园小路应用程序的;

;;; 整个流程。 ;

;;;**************************************************************;

;;; gp_PathData 变量是以下格式的关联表： ;

;;; (10 . 起点) - 含三个实数的表，用来指定 ;

;;; 花园小路的起点。 ;

;;; (11 . 端点) - 含三个实数的表，用来指定 ;

;;; 花园小路的端点。 ;

;;; (40 . 宽度) - 实数，用来指定小路边界 ;

;;; 宽度。 ;

;;; (41 . 长度) - 实数，用来指定小路边界 ;

;;; 长度。 ;

;;; (50 . 小路方向) - 实数，以弧度为单位指定 ;

;;; 花园小路的方向。 ;

;;; (42 . 砖大小) - 实数，用来指定花园小路 ;

;;; 砖的大小（单位为半径）。 ;

;;; (43 . 砖的间距) - 砖的间距，边界到边界的距离。 ;

;;; ( 3 . 对象的创建方法) ;

;;; - 对象的创建方法是指绘制砖的方法;

;;; 其值是一个字符串。;

;;; 它应该是以下三个值之一 ;

;;; （字符串中字符的大小写 ;

;;; 无关紧要）： ;

;;; "ActiveX" ;

;;; "Entmake" ;

;;; "Command" ;

;;; ( 4 . 多段线边界样式) ;

;;; - 多段线样式确定 ;

;;; 小路边界所用 ;

;;; 多段线类型。您所期望的值 ;

;;; 应该是以下字符串之一（字符串中字符的大小

写;

;;; 无关紧要）： ;

;;; "Pline" ;

;;; "Light" ;

;;;**************************************************************;

测试修改后代码的步骤

1. 保存更新后的文件。

2. 用检查功能来查找语法错误。

3. 设置代码格式，增强其可读性。

4. 加载代码，使 VLISP 重新定义该函数，覆盖原有版本。

5. 在控制台提示下输入 (c:gpath)，运行该程序。

如果程序运行不成功，可试着改正错误，然后再运行它。重复上述操作，直到您

不能再继续下去。如果多次修改后还不能正确运行，您可以从

Tutorial\VisualLISP\Lesson2 目录下复制正确的代码。

3.5 给程序代码加注释

VLISP 将任何以分号开头的 AutoLISP 语句看作注释。上面的两个代码样

例中就包含了许多注释。AutoLISP 程序中的注释是写给自己而不是写给程序的。

给代码加上注释是编程应该养成的好习惯。给程序加注释有以下好处：

• 如果您很长时间以后再编辑程序，注释可以向您解释代码的含义。随着时

间的推移，记忆是会消退的，连那些最明显的函数序列都会变得难以理解。

• 如果有其他人要接替您的工作，负责更新和维护程序，这些注释可以向他

们解释代码的含义。阅读其他人的程序是很费劲的事，尤其在代码中注释

很少时更加困难。

VLISP 中包括了一些工具，可以在您为代码加入注释时给您提供帮助。请

注意，样例中的注释有时开头有三个分号 (;;;)，有时是两个 (;;)，而有时则

只有一个 (;)。如果想知道 VLISP 如何对待这些不同的注释，请参阅 AutoLISP

Developer's Guide 中的 Applying Visual LISP Comment Styles。

为了节省空间，本教程后面的代码样例不再包括样例源文件中的任何注释。

我们假设您已经养成了给代码加注释的好习惯，并假设您不需要提示就可以做到

这一点。

3.6 设置断点并进行更多监视

断点是您放到源代码中的一种符号，它用来指定您希望程序暂停运行的位

置。当您运行代码时，VLISP 会正常执行代码，直到它碰到断点。在断点处，VLISP

会挂起程序的运行，等待您的指令来决定下一步的工作。此时 VLISP 并没有终

止程序，它只是让程序处于挂起状态而已。

当程序挂起时，您可以

• 单步执行代码，一个函数接一个函数，或一个表达式接一个表达式。

• 在任意位置使程序恢复正常运行。

• 动态修改变量的值，还可以修改正在运行的程序的结果。

• 将变量添加到“监视”窗口中。

3.6.1 使用“调试”工具栏

“调试”工具栏中包含了几个工具，您在学习本节时会用到它们。默认情

况下，该工具栏附着在“视图”和“工具”工具栏上，看起来就象一个 VLISP 工

具栏。

“调试”工具栏包括最左边的那几个图标。该工具栏上的大多数项目在平

时都处于禁用状态，只有在调试模式（例如定义了一个或几个断点）下运行程序

时它们才会变为可用状态。

如果您尚未将“调试”工具栏从屏幕顶部拖下来，那您现在可以试试。要

拖动它，只需用鼠标点中工具栏最左边的两个竖条并拖动即可。用这种拖动方法

可以将 VLISP 的任何工具栏拖到屏幕的任意位置，以满足工作的需要。

“调试”工具栏上的按钮分为三组，每组包括三个按钮。在调试模式下运

行程序时，该工具栏如下图所示：

• 前面三个按钮让您单步执行程序代码。

• 接下来的三个按钮用来确定在断点处暂停或因错误而暂停时，下一步该

如何继续。

剩余86页未读，继续阅读

qq_18163081

粉丝: 0

Visual LISP入门指南：CAD二次开发实战教程

清华大学cad二次开发

清华大学的《CAD二次开发》电子教（LISP）.rar

清华大学的《CAD二次开发》电子教（LISP）

kfy.rar_autocad_autocad 二次开发_lisp

FZ.rar_cad_cad lisp_lisp_复制

Layer-settings.zip_CAD二次开发_VB CAD图层_cad图层_vb cad 图层_图层

CAD二次开发课件包含visual lisp\vb\.net多种语言开发的教程！

基于Visual LISP的链传动CAD二次开发应用.pdf

几个小CAD二次开发LISP程序

Visual LISP CAD二次开发实战指南

最新资源