【字体：
小
大
】
a>
本节通过一个简单的实例来讲述
LISP
程序的创建过程，介绍编制
LISP
程序的一些基本步骤，以及
LISP
程序在
AutoCA
D
中的加载和运行的方法。首先来创建一个最简单的
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‖
(setq
hgt
15)
;
给变量
―hgt‖
赋值
(Command
"_.TEXT"
"_S"
"STANDARD"
ipt
hgt
0
"Hello,
Visual
LISP!")
;
调用
―Commnad‖
函数与
AutoCAD
进行通信
