使用Visual LISP创建简单的LISP应用程序

本节通过一个简单的实例来讲述LISP程序的创建过程，介绍编制LISP程序的一些基本步骤，以及LISP程序在AutoCAD中的加载和运行的方法。首先来创建一个最简单的LISP程序—-“Hello.lsp”，在AutoCAD 2002中加载并运行该程序，将会在命令行出现－“Hello, Visual LISP!”。

36.2.1 Visual LISP与AutoCAD的通信

用户可以直接在AutoCAD命令行中键入AutoLISP表达式。AutoCAD通过括号来确认AutoLISP表达式。AutoCAD每当发现一个左括号，就确认为AutoLISP表达式，并由AutoLISP求表达式的值后返回AutoCAD，AutoCAD使用返回结果并继续进行其他工作。

注意 在AutoLISP表达式中，左、右括号必须配对，否则AutoCAD将给出提示符n>，n表示右括号丢失数目。

此外，在AutoCAD中调用并执行AutoLISP程序。在AutoLISP程序中采用COMMAND函数来与AutoCAD命令程序处理器通信，COMMAND从AutoLISP获得命令并将其传给AutoCAD。

36.2.2 实例1 最简单的LISP程序——“Hello.lsp”

Step 1 创建新文件

(1) 运行AutoCAD 2002系统，以“acadiso.dwt”为样板创建图形文件，并调用“vlisp”命令进入Visual LISP环境。

(2) 单击“Standard（标准）”工具栏中的 按钮，新建一个LISP文件。

Step 2 输入代码并保存文件

(1) 在编辑窗口中输入源文件“Hello.lsp”的代码，如图36-3所示。程序清单如下：

;;;* Hello.lsp – Visual LISP文件实例

(prompt "Pick point:") ;指定运行时的提示信息

(setq ipt (getpoint)) ;在屏幕上指定一点并将其坐标值赋予变量“ipt”