Visual LISP集成开发环境简介

一、 Visual LISP概述

Visual LISP简称VLISP,是为加速AutoLISP程序开发而设计的软件工具，它提供了一个完整的集成开发环境，包括编译器、调试器和其他工具，它可以显著地提高自定义AutoCAD的效率。

VLISP提供的主要工具有：文本编辑器、格式编排器、语法检查器、源代码调试器、检验和监视工具、文件编译器、工程管理系统、上下文相关帮助与自动匹配功能和智能化控制台等。

二、 启动和退出Visual LISP集成开发环境

1. 启动步骤：（菜单方式）

（1） 启动AutoCAD

（2） 工具——AutoLisp——Visual LISP编辑器

若使用键盘命令，则：

命令：vlisp或vlide

2．退出：

文件——退出

三、 Visual LISP 集成开发环境介绍

包含以下几个部分：

1. 菜单栏

2. 工具栏：标准、调试、工具、搜索、视图 （共5个）

3. 控制台窗口

可输入AutoLisp命令，代替菜单和工具栏命令

4. 状态栏——屏幕底部

显示Visual LISP的状态信息

5. 跟踪窗口

启动时包含：关于Visual LISP当前版本的信息、启动Visual LISP遇到错误时的一些信息。

6. 文本编辑器

打开或新建一个Visual LISP源程序，就可以看到文本编辑器的全貌。

7. 其他Visual LISP窗口（必要时才打开）

（一）Visual LISP菜单介绍

¨菜单的内容：随着激活窗口的不同菜单内容将会不同。

1. 文件：打开、新建、保存

2. 编辑：复制、粘贴、括号匹配

3. 搜索：查找、替换文本、设置书签

4. 视图：查找、替换变量及符号值等

5. 工程：应用程序的工程功能——管理项目、编译程序等

6. 调试：提供程序调试功能——设置和删除断点、单步执行、检查变量状态、检查表达式结果等

7. 工具：设置Visual LISP选项文本格式、环境选项变量，如窗口和工具栏的位置

8. 窗口：提供窗口管理功能

9. 帮助：提供帮助功能，包括显示在线帮助

（二）工具栏介绍

工具栏——包括一系列功能的Vlisp命令组

1. 标准：新建、打开、保存、打印输出、剪切、复制、粘贴、取消、恢复、完成词语功能

2. 工具：加载整个活动窗口代码、加载指定部分代码、语法检查（全部、指定部分）、对窗口代码格式化（整个活动窗口、指定代码）、设置注释代码、取消整块注释块、在线帮助

3. 搜索：查找、替换、查找并替换、设置或取消书签、下一个书签、上一个书签

4. 视图：切换到AutoCAD窗口、选择窗口、Visual LISP控制台、打开检验窗口、堆栈跟踪、符号服务、自动匹配、显示监视窗口

5. 调试：下一层嵌套表达式、下一个表达式、跳出表达式、继续执行、退出、重置、设置或取消断点切换、添加监视、显示上一个断点

（三）控制台操作

1. 控制台的功能

这里是用命令操作的地方（Visual LISP命令、AutoLISP命令），并能看到结果，类似于AutoCAD的命令行窗口

如：(setq a “hello,The world!”)

查看a的值时

在控制台窗口用：a¿（¿表示回车）

AutoCAD命令：！a¿

2. Visual LISP控制台窗口中的独特特性

¨可以在新的一行上输入上一行没有完成的AutoLISP表达式

¨可在¿前输入多个表达式，并在Visual LISP给控制台返回一个值之前将为每一个表达式求值

¨光标在任意位置均可用¿移至提示符所在行上，如果选中的有文本，则同时移至提示符所在行（此功能可以复制）

¨使用Tab键可获得以前输入的文本，每按一次即可将上一次的文本显示，循环执行。Shift+Tab与Tab类似，只是方向相反

¨使用Tab键可以实现关联查找，如输入“（+Tab”会在以前输入的文本中查找以“（+”开头的文本

¨Esc键清除提示符下的所有字符，shift+Esc则离开当前行上的文本，并在新的提示符下准备接受用户的输入

3. 系统控制台的快捷菜单——单击右键

*小技巧：可在控制台窗口与AutoCAD命令行窗口之间复制和粘贴文本。

（四）文本编辑器概述

主要功能：

1. 彩色代码显示

2. 文本格式化

3. 括号匹配

4. 执行AutoLISP表达式（不离开文本编辑器）

5. 在多文件间进行查找

6. 语法检查

（五）加载和运行AutoLISP程序

1. 在AutoCAD窗口操作（略）

2. 在VLISP环境下操作

可加载完整的和部分的AutoLISP程序文件

¨加载完整的AutoLISP程序：文件——打开文件——选择文件内容——工具——加载选定代码

¨加载部分的AutoLISP程序：选择部分文件内容——工具——加载选定代码

四、 文本编辑器主要功能及其实现

1. 文件/编辑/保存操作

有关操作与Windows环境下的应用软件（如Word等）类似，这里从略。

2. 代码分色器

和在控制台窗口中相同，一旦在文本编辑器中输入文本后，Visual LISP会判断所输入的文本是否是一个AutoLISP内部函数、数字、字符串或者其它的已知元素，并用每一种元素自己的颜色显示这些文本。

默认的AutoLISP语言代码配色方案

AutoLISP元素	颜色
内部函数和被保护的符号	蓝色
字符串	粉色
整数	绿色
实数	浅蓝色
注释	粉色，背景为灰色
括号	红色
其他（如用户变量名等）	黑色

¨Visual LISP可以按照一些语言的种类确定代码颜色，方法是：

工具——窗口属性——按语法着色

¨用户可以自定义颜色配置，方法是：

工具——窗口属性——配置当前窗口——打开“窗口属性”对话框进行配置

3. 文本格式化

（1）设置AutoLISP代码格式的对话框

工具——环境选项——Visual LISP格式选项

（2）AutoLISP代码格式的总体式样

有普通、宽行、窄行和分栏四种式样。

4. 语法检查

（1） 括号匹配

向前匹配——将插入点（光标位置）移到和开括号相匹配的闭括号之后

向后匹配——将插入点（光标位置）移到和闭括号相匹配的开括号之后

向前选择——插入点的移动和“向前匹配”相同，同时选中文本

向后选择——插入点的移动和“向后匹配”相同，同时选中文本

（2） 检查语法错误

¨应用彩色代码功能检查语法错误

¨用语法检查功能检查语法错误

主要检查的语法错误为：

·圆括号不匹配

·函数的参数数目不正确

·函数的参数类型不正确

·某些特殊函数的语法不正确

方法：工具——“检测编辑器中的文字”

如果检测到错误，就会在“编译输出”窗口看到错误信息。

五、 调试程序

VLISP提供的调试程序工具有：

¨监视窗口：在程序执行过程中查看变量的值

¨检验窗口：在“检验”对话框中显示指定对象的详细信息

¨“符号服务”对话框：符号可以使变量或函数名。通过符号服务对话框可以查看变量的当前值、函数的定义和设置变量及函数的一些特性

¨断点循环模式：在程序内部设置断点，中断程序的执行，并允许用户在中断时查看和修改对象值

下面再看几个用AutoLISP语言编程画图的例子：

1. 绘制太极图案

程序源代码：

(defun yinyang(/ origin radius i-radius half-r origin-x origin-y os)                   ；

(setq os (getvar "OSMODE"))   ；

(setvar "OSMODE" 0)            ；

(setq origin (getpoint "\n图案的中心:"))

(setq radius (getdist "\n图案的半径:" origin))

(setq i-radius (getdist "\n内部圆的半径:" origin))

(if (> i-radius radius) (setq i-radius (/ radius 4)))

；

(setq half-r (/ radius 2))

(setq origin-x (car origin))

(setq origin-y (cadr origin))

(command "CIRCLE" origin radius)

(command "ARC"

"C"

(list origin-x (+ origin-y half-r))

(list origin-x (+ origin-y radius))

origin

)

(command "ARC"

"C"

(list origin-x (- origin-y half-r))

(list origin-x (- origin-y radius))

origin

)

(command "CIRCLE"

(list origin-x (+ origin-y half-r))

i-radius

)

(command "CIRCLE"

(list origin-x (- origin-y half-r))

i-radius

)

(setvar "OSMODE" os)

(princ)                  ；

)

2. 绘制正弦函数曲线：Y=ASin(X)

;给定坐标原点、周期数和振幅，绘制正弦曲线，自变量以“弧度”为单位

(defun c:drawsin () ;

(initget 1) ;见辅导材料P47

(setq lp  (getpoint "\n 坐标原点:") ;

lpx (car lp)

lpy (cadr lp)

)

(initget 7) ;

(setq n (getint "\n 周期数:")) ;

(setq a (getint "\n 振幅:"))

(setq x    0

step 0.02

)

(command "pline") ;

(while (<= x (* 2 n pi)) ;

(command (list (+ lpx x) ;

(+ lpy (* a (sin x)))

)

)

(setq x (+ x step))

)

(command "")                     ;结束正弦曲线绘制

(command "line" lp (list (+ lpx (* 2 n pi)) lpy) "")

;画水平轴

(command "line"

(list lpx (+ lpy (* 2 a)))

(list lpx (- lpy (* 2 a)))

""

)                         ;画垂直轴

(command "zoom" "e" "")           ；图形极大化

(command)                        ;中断执行任何命令

)

3．绘制极坐标方程R=1+2cos2a在区间[0，2p]的图像

;绘制极坐标方程曲线

(defun c:draw (/ cp)

(setq cp (getpoint "\n基点:"))

(command "ucs" "w" "ucs" "o" cp "pline")

(drawl 0)                ；函数调用

(command "zoom" "e")           ；图形极大化

)

(defun drawl (x / r)

(if (>= x (* 2 pi)) ;

(command "3,0" "" "ucs" "w")

(progn (setq r (+ 1 (* 2 (cos (* 2 x))))) ;

(command (list (* r (cos x)) (* r (sin x))))

(drawl (+ x 0.05)) ;函数的递归调用

)

)

)