Visual LISP 是 Autodesk 公司为增强 AutoLISP 程序开发能力，加速 AutoLISP 程序开发 而设计的一种软件工具，它内嵌于 AutoCAD2000 中。VLISP 的集成开发环境提供了许多功 能，使编写、修改代码以及测试和调试程序更加容易。另外，VLISP 还提供了工具，用于 发布用 AutoLISP 编写的独立应用程序。 ㈠ 启动步骤： 1 启动 AutoCAD。 2 在 AutoCAD 菜单中选择“工具/AutoLISP/Visual LISP 编辑器”，或在命令提示处输入
参数一致。空字符串 ("") 表示从键盘键入 ENTER 键。不带参数调用 command 相当于键
入 ESC 键，这样可取消大多数 AutoCAD 命令。
command 函数将每一个参数顺序传给 AutoCAD 以响应提示。它以字符串形式提交命
令名和选项；以两个实数组成的表的形式提交二维点；以三个实数组成的表的形式提交三维
如下命令：vlisp 首次启动 VLISP 时，它将显示如下屏幕：
VLISP 屏幕包括如下区域： ⊙ 菜单
1
用户可以通过选取各个菜单项来发出 VLISP 命令。如果您亮显菜单上的某一个菜单 项，VLISP 将在屏幕底部的状态栏上显示相关命令功能的简介。 ⊙ 工具栏
单击工具栏按钮可以快速发出 VLISP 命令。VLISP 中一共有五个工具栏：标准、视图、 调试、工具和搜索，各自代表不同功能的 VLISP 命令组。（在本页的图中，五个工具栏衔
drawline 函数：
二、AutoLISP 基本函数
在此，对 AutoLISP 函数语法的描述遵循如下惯例：
在本样例中，函数 foo 有一个必要参数 string 和一个可选参数 number。还可以提供
附加的 number 参数。参数的名称经常表明所需的数据类型。下面的样例同时展示了对 foo
函数的有效和无效调用：
1
第一部分： AutoLisp 语言简介
AutoLISP 是为扩展和自定义 AutoCAD 功能而设计的一种编程语言，它的起源可以追 溯到五十年代末的 LISP 语言。LISP 最初是为编写人工智能 (AI) 应用程序设计的，现在 仍是许多人工智能程序的基础。用户可以十分方便地利用 AutoLISP 编程语言对 AutoCAD 进行二次开发，它非常适合于图形的应用。
确定距离值。
用户不能输入另一个 AutoLISP 表达式来响应 getdist 的请求。
参数说明：
pt 二维或三维点。用作当前 UCS 中的基点。如果已经提供了 pt，则仅提示用户输入
第二点。
msg 用于提示用户的字符串。如果未指定该参数，则 AutoCAD 不显示提示信息。
4. 求某点的坐标
(polar pt ang dist) **在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返
AutoLISP 程序实际上是由函数名、自变量和参数等构成的函数表的集合。从 AutoLISP 程序中所得到的是一个个的表，每一个表相当于一条语句，所以 LISP 语言就是对表进行处 理的语言，简单来说：AutoLISP 程序=（函数名，变量，参数）的集合，如（Setq A 3） 表示 A=3。
一、启动 Visual LISP
《机械 CAD/CAM 技术》实验指导书
1
目录
第一部分： AutoLisp 语言简介...................................................................................... 1 一、启动 Visual LISP....................................................................................................... 1 二、AutoLISP 基本函数................................................................................................... 2 三、基本函数.....................................................................................................................3 第二部分 三维几何建模技术........................................................................................ 5 一、常用的建模方法.........................................................................................................5 二、PRO/E 系统三维实体造型功能................................................................................ 5 三、PRO/E 系统三维实体造型的关键技术....................................................................6 四、实例.............................................................................................................................6 五、PRO/E NC 加工系统的的关键技术......................................................................... 8 用 AutoLISP 设计传动轴的参数化绘图.......................................................................... 8 《机械 CAD/CAM》标准实验报告...............................................................................12
AutoCAD 命令一样在 AutoCAD 命令行提示中使用。无论任务是在 Visual LISP 中还 是在 AutoCAD 命令提示下定义和加载此函数，情况都是一样。可以用这个功能为 AutoCAD 添加新命令或重定义现有的命令。
要将函数用作 AutoCAD 命令，必须确保它们遵循如下规则： 函数名必须使用格式 C:XXX 格式（大写或小写字符）。名称的 C: 部分必须存
点。只有在命令提示下 AutoCAD 才能识别命令名。
要注意的是，如果从 Visual LISP 中使用 command 函数，控制并不会转移到 AutoCAD
3
用户可以通过选择两个点来指定距离，如果提供了基点的话，则只需选择第二个点。用
户还可以通过输入一个以 AutoCAD 的当前距离单位格式表示的数来指定距离。虽然当前
距离单位格式可能是以英尺和英寸（建筑单位制）表示的，getdist 函数总是以实数形式返
回这个距离值。getdist 函数从第一个点到当前十字光标位置显示一条拖引线，以帮助用户
参数说明： sym 函数名。 arguments 函数需要的形式参数名。 / variables 函数使用的一个或多个局部变量名。局部变量名称前的斜线和第一个局部
名称之间，以及该斜线和最后一个参数（如果存在的话）之间，都必须保持至少一个空 格的距离。
expr 执行函数时要执行的任意数目 AutoLISP 表达式。 1 如果没有声明任何参数或局部符号，则在函数名称后必须使用空括号。 2 如果定义了名称格式为 C:XXX 的 AutoLISP 函数，则该函数可以象内置的
AutoLISP 命令，方式与在 AutoCAD 命令窗口中式类似。也可以不用菜单或工具栏而直接 在控制台窗口中发出很多 Visual LISP 命令。
⊙状态栏 位于屏幕底部的状态栏中显示的信息因您在 VLISP 中所做的工作不同而异。
㈡ 在 VLISP 文本编辑窗口中加载和运行程序的步骤 1 首先请确认包含程序 drawline.lsp 的文本编辑窗口是活动窗口。如果不能肯定该窗口是 否是活动的，请在窗口的任何地方单击它，使它成为活动窗口。 2 从“工具”工具栏中选择“加载活动编辑窗口”按钮，或从 VLISP 菜单中选择“工具” “加载编辑器中的文字”。VLISP 将在控制台窗口中显示一条信息,表明已加载该程序。 3 在控制台提示下输入括号和函数名（函数名包括在括号内），按 ENTER 键后就可运行
在；XXX 部分是用户选择的命令名。C:XXX 可以用来替代内置的 AutoCAD 命令。函 数必须定义为不带参数。然而，允许使用局部变量，并且使用局部变量是一个很好的编 程习惯。 2．AutoLISP 的基本赋值函数 将一个或多个符号的值设置为相应表达式的值
(setq sym expr [sym expr]...) 可以在对 setq 函数的一次调用中给多个符号赋值。 3． 输入函数 ① (getpoint [pt] [msg]) **暂停以等待用户输入点，并返回该点 用户既可以通过拾取点来指定点，又可以通过输入以当前单位格式表示的坐标来指定 点。如果提供了 pt 参数，那么 AutoCAD 会从该点到当前十字光标位置画一条拖引线。该 函数的返回值是当前 UCS 中的一个三维点。 用户不能输入一个 AutoLISP 表达式来响应 getpoint 的请求。 参数说明： pt 当前 UCS 中的二维或三维基点。 请注意 getpoint 函数还可以接受一个整数或实数作为 pt 参数，并使用直接距离输入法 来指定点。这种方法以 LASTPOINT 系统变量的值作为起点，将 pt 作为距离，根据当前 光标相对于 lastpoint 的位置确定方向。其结果是在当前光标位置的方向上和上一点之间的 距离为指定值的点。 msg 用于提示用户的字符串。 ② (getdist [pt] [msg]) **暂停以等待用户输入距离