1

(alert "Hello, world!")

回车提交，发现弹出一个警告对话框，里面写着 Hello, world! 。

这就是你的第一段 AutoLisp 脚本。怎么样，简单吧！

正如上一章中所说，本程序中我们使用 AutoLisp 语言只写了一行语句。这行语句被圆括号 () 括起来，形成了一个所谓的 表 （也就是我们所说的“表处理语言”中的“表”）。这个 表 中有两个元素， alert 和 "Hello, world!" 。 其中 alert 是函数名，表示在这个语句中，我们要调用 alert 这个函数。 "Hello, world!" 是一个字符串（字符串是一种数据类型）。这个字符串作为 alert 这个函数的参数。程序在解释这句话时，调用 alert 函数，它的功能是弹框输出一条警告信息，内容为其后根随的字符串。因此产生了您看到的对话框。

首先，用文本编辑软件新建一个文本文件，命名为 hello_world.lsp 。这里推荐使用 Visual Studio Code 。也可以根据您的喜好选择 Notepad++ 、 UltraEdit 等文本编辑软件，不要使用 Windows 操作系统自带的 记事本 软件。在文本文件中输入如下代码

1
2

(defun c:hello(/)
(alert "Hello, world!"))

打开 AutoCAD ，输入命令

1

appload

在弹出的对话框中选择刚才创建的 hello_world.lsp 文件，单击 load ，忽略安全提示。在控制台中出现

1

hello_world.lsp successfully loaded.

说明脚本已经成功加载。这时输入我们在脚本中定义的命令

1

hello

用回车或空格提交，发现弹出了对话框，内容显示：Hello, world!

在本例中， defun 定义了一个 lisp函数 。在 AutoLisp 中，以 c: 开头的函数表示注册一条可执行的命令。本例中 c:hello 就表示注册一个命令 hello 。 alert 函数的用法和上一小节中所述相同。

创建一个新文件 hello_name.lsp ，键入如下代码

1
2
3
4

(defun c:hello(/ name)
(setq name (getstring "What's your name? "))
(setq msg (strcat "Hello, " name))
(write-line msg))

重新加载，在控制台中输入

1

hello

会发现出控制台中出现提示

1

What's your name?

1

Jack

回车，控制台中输出字符串

1

"Hello, Jack"

在本例中，对函数的定义多了一个参数 name 。这一参数通过 getstring 命令从控制台读入，再通过 setq 命令存储在变量 name 中。再通过 strcon 函数将两个字符串连接起来，最后用 write-line 在控制台输出。

以上是一些最简单的入门。下面我们通过几个实例由浅入深地学习 AutoLisp 语言。建议读者每一个实例的代码都自己输入并测试一遍。这样读完本文后就基本可以掌握 AutoLisp 的使用方法了。

1

(defun [函数名](/ [局部变量1] [局部变量2]) [表达式1] [表达式2] ... )

函数名： 函数名在定义时，如果采用 c: 开头，表示注册一个 AutoCAD 命令。此后可以在控制台中直接输入 c: 后面的命令来调用这一函数，而无输再输入 AutoLisp 代码。

局部变量： 局部变量的含义是，这一变量在函数执行完毕后就被释放。通常把用户输入的变量设为局部变量。这里我们把用户输入的弧度值 rad 设为局部变量。

表达式： 当函数被调用时，表达式的内容被执行。

1

(setq [变量名] [值])

变量名： 即要被赋值的变量名。

值： 即要赋的值。

在 AutoLisp 中，有以下几种数据类型

在 setq 语句中可以把上述任意数据类型赋给变量。

setq 语句还支持多个变量的同时赋值，方法为

1

(setq [变量名1] [值1] [变量名2] [值2] ...)

1

(getreal [字符串])

这里的字符串为引导用户输入的提示字符。

与 getreal 函数相似，还有一些用户输入用的函数，列举如下。

在本例中，还使用了一个默认值输入的方法。 get 类函数本身是不支持默认值的，但是我们通过对用户输入空值情况的处理来实现默认值输入。这里我们用了一个 if 函数。

1

(if [布尔表达式] [条件为真执行] [条件为假执行])

在 AutoLisp 中，数学表达式和布尔表达式用以下几种常见形式

此外还有一些常用的数学运算函数，如 log 、 sin 、 max 等，请读者自行尝试。

在本例中，如果用户没有输入，则 getreal 函数返回 nil，触发 getq 表达式，给变量 rad 赋值为 1.0。

1

(command [命令名] [参数1] [参数2] ...)

命令名： 即 AutoCAD 命令的名字，用一个字符串来表示，也就说要用双引号引起来。在本例中，我们使用了 "line" 、 "text" 、 "circle" 、 "arc" 几个命令。

参数： 即在执行命令时，所需要用户输入的参数。

以 "line" 命令为例，首先我们要确定输入哪些参数。打开 AutoCAD ，在控制台中输入

1

line

回车，看到提示输入一个点，这就是我们要给出的第一个参数。

按提示输入点后，又提示再输入一个点，这是我们要给出的第二个参数。

输入好第二个点后，提示再输一个点，会再画一条线，这时我们不想继续画，输入回车结束命令。这是我们要给出的第三个参数。

这样，我们就确定了要输出的三个参数，分别是两个点和一个回车。因此本例中，我们用两个列表来表示点，用一个空字符串来表示回车（ AutoLisp 的约定）。得到

1

(command "line" '(-120 0) '(120 0) "")

1

(osnap [点] [捕捉模式])

它的用法和 AutoCAD 中临时捕捉点时的用法基本相同。其中 捕捉模式 包括

1

(rtos [实数] 2 [小数位数])

在本例的第 13、16、17 行有这个函数的应用。

其中 2 就表示十进制模式，对于其它模式不是很常用，本例中不作介绍。

对于数字和字符串的转换是经常需要用到的。这里介绍一些其它常用的字符串转换函数。

1

(polar [基点] [方向角] [距离])

返回一个新的点。这在确定点的方位的时候常常用到。

类似的常用图形处理函数列举如下

其中， inters 后面的 nil 表示可以在延长线上相交。