AutoLisp 源代码 实用程序11_rev3

AutoCAD开发VisualLISP程序

本节通过一个简单的实例来讲述LISP程序的创建过程，介绍编制LISP程序的一些基本步骤，以及LISP程序在AutoCAD中的加载和运行的方法。

首先来创建一个最简单的LISP程序—-“Hello.lsp”，在AutoCAD2002中加载并运行该程序，将会在命令行出现－“Hello,VisualLISP!”。

VisualLISP与AutoCAD的通信

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

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

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

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

Step1创建新文件

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

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

Step2输入代码并保存文件

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

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

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

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

AutoLISP实用编程四例

-------------------------------------------------- 江苏

崔华明

AutoCAD是一个功能强大的通用图形设计软件，其内嵌的AutoLISP语言为用户进行二次开发提供了方便。下面就介绍几则用AutoLISP编写的实用程序，这些程序相当于新增的AutoCAD命令，可以弥补AutoCAD本身的一些不足，为日常使用带来方便。

1(快速更改文本的大小

在标准的AutoCAD中，要更改已有文本的大小，需要

使用Change命令。该命令的缺陷是:即使只更改文本的大小，也要重新确认文本的插入点、字型、倾斜角等一系列参数。也就是说，除输入文本的新高度值外，还需要按5次回车键才能完成一个文本的更改～而且每次只能修改一个文本。这对于同时更改多个文本的大小非常不便。本文的AutoLISP程序使这一工作变得十分方便和快捷。使用方法如下:

在AutoCAD的Command提示下，打入命令:

cth

AutoCAD将提示“Selectobjects:”，这时可以使用AutoCAD允许的任意方式选择目标。对于有多个文本需要更改的情况，使用窗口选择比较方便，而且你不用担心选择窗口中包含了非文本目标，程序能够自动在选择的目标中查找出文本实体，并只对文本进行更改。

选择目标后，AutoCAD提示“Newtextheight:”，这时输入一个新的文本高度值然后回车，则所有选中的文本被更改成新设定的高度。

2(延伸直线的长度 在实际使用中，常常要将一条直线延伸指定的长度。通常的做法是:在需要延伸的直线的端点画一个辅助圆，圆的半径等于直线要延伸的长度，然后使用Extend命令将直线延伸到与圆相交，最后删除辅助圆。 本文的AutoLISP程序将使你非常容易地实现这一点。

你只需选择要延伸的直线并输入要延伸的长度即可，其余

的工作由程序自动完成。使用方法如下:

下载

第4 3章A utoLISP编程

为了使用A utoLISP，你必须学会如何使用A utoLISP中的函数，还必须学习A utoLISP编程。

结束这一章之后，你应该会：• 实现基本的A utoLISP编程。

• 分析A utoLISP程序。

• 在A utoCAD中使用A utoLISP程序。

43.1 AutoLISP基础

A u t o L I S P编程可以非常简单，也可以非常复杂。A u t o L I S P程序由一系列指令构成。

A utoLISP编程语言包含许多对你的工作非常有用的函数，并内置于A utoCAD之中。让我们先

看一看这部分。

43.1.1 算术函数

你可以用A u t o L I S P进行算术运算。启动A u t o C A D，我们可以在命令行中直接使用A utoLISP子程。

在命令行，直接键入以下命令，并确保包括括号和空格。Command: (+ 5 4)

9

注意这时A utoCAD返回了值9。这是一个简单的5加4的算术运算，并在屏幕上显示出结果。

继续键入以下加、减、乘、除算式并注意结果。Command: (- 100 40)

Command: (* 5 6)

Command: (/ 100 20)

注意A utoLISP子程在命令行中被键入时的括号。括号告诉A utoCAD这是一个A utoLISP子

程。当A utoCAD检测到一个左括号时，它就把之后的文本交给A utoLISP处理。

右括号表明了语句的结束。在A utoCAD提示“1 >”时，你需要键入一个右括号，然后回

车。这一提示说明缺少右括号与左括号相配。如果想测试这一情况，可以键入前面的语句，

并省略右括号。

43.1.2 AutoLISP与A utoCAD命令

A utoCAD命令可以在A utoLISP子程中使用。为了在A utoLISP中使用A utoCAD命令，可以

把命令用引号括起来置于( command)函数之中，并在其后跟上正确的参数。参数用来响应命令

第十四章初步 AutoLISP

269第十四章 AutoLISP

14.1 关于AutoLISP

AutoLISP是由Autodesk公司开发的一种LISP程序语言（LISP是List Processor的

缩写）。第一篇关于LISP的参考文献是由John McCarthy 在1960年4月的《ACM通讯》

中发表的。

除了FORTRAN和COBOL，大多数在六十年代早期开发出来的语言都过时了，可是LISP

却生下来，并且已经成为人工智能（AI）的首选程序序言。AutoLISP解释程序位于AutoCAD

软件包中，然而AutoCAD R2.17及更低版本中并不包含AutoLISP解释程序，这样，只有

通过AutoCAD Ｒ2.18及更高版本才可以使用AutoLISP语言。

AutoCAD软件包中包含大多数用于产生图形的命令，但仍有某些命令末被提供。例如，

AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令。通过AutoLISP，你可以

使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。

事实上，可以用AutoLISP编制任何程序，或把它嵌入到菜单中，这样定制你的系统会取

得更高的效率。

现在，已经有数以百计的第三方软件开发人员使用AutoLISP语言编制各种应用程序

软件包，例如，本文作者开发了一个名为SMLayout的软件包，用它可以产生各种复杂几

何图形的平面布局图，这些几何图形包括管道的交叉部、过渡都、圆柱、弯管接头、圆锥

以及罐顶。目前社会上非常需要AutoLISP程序员为应用软件及客户菜单的开发提供顾问。

在本章中，我们假定读者已经熟悉了AutoCAD命令及AutoCAD的系统变量。但是，在

开始学习AutoLISP时，却并不需要你是一位AutoCAD或编程专家。同时，本章还假定读

者并无编程方面的知识。如果你熟悉任何一种编程语言，那么学习AutoLISP就会很容易。