蚌埠学院本科毕业设计（论文）
(6) 全面的检验和监视功能：用户可以方便地访问变量和表达式的值，以便浏览和修改数据结构。这些功能还可用来浏览AutoLISP数据和AutoCAD图形的图元。
(7) 上下文相关帮助：提供AutoLISP函数的信息。强大的自动匹配功能方便了符号名查找等操作。
(8) 工程管理系统：维护多文件应用程序更加容易。
(9) 打包功能：可将编译后的AutoLISP文件打包成单个模块。
(10) 桌面保存和恢复能力：可保存和重用任意VLISP任务的窗口环境。 (11) 智能化控制台窗口：它给AutoLISP用户提供了极大的方便，从而大大提高了用户的工作效率。控制台的基本功能与AutoCAD文本屏幕类似，还提供了许多交互功能，例如历史记录功能和完整的行编辑功能等。
3.3 Auto LISP语言的特点
LISP是一种计算机的表处理语言，是在人工智能学科领域广泛应用的一种程序设计语言。AutoLISP语言是嵌套于AutoCAD内部，将LISP语言和AutoCAD有机结合的产物。使用AutoLISP可直接调用几乎所有的AutoCAD命令。AutoLISP语言既具备一般高级语言的基本结构和功能又具有高级语言所没有的强大的图形处理功能，是当今世界上CAD软件中被广泛采用的语言之一。利用AutoLISP对AutoCAD进行二次开发，可以实现直接增加和修改AutoCAD命令，随意扩大图形的编辑功能，建立图形库和数据库对当前图形进行直接访问和修改。
Auto LISP语言的特点
（1）AutoLISP语言是在普通的LISP语言基础上，扩充了许多适用于CAD应用的特殊功能而形成的，一种仅能以解释方式运行于AutoCAD内部的解释性程序设计语言。
（2）AutoLISP语言中的一切成分都是以函数的形式给出的，它没有语句概念或其他语法结构。执行AutoLISP程序就是执行一些函数，再调用其他函数。
（3）AutoLISP把数据和程序统一表达为表结构，即S-表达式，故可把程序当作数据来处理，也可把数据当作程序来执行。
（4）AutoLISP语言中的程序运行过程就是对函数求值的过程，是在对函数求值的过程中实现函数的功能。
（5）AutoLISP语言的主要控制结构是采用递归方式。递归方式的使用使得程序设计简单易懂。
3.4 运行AutoLISP程序
- 11 -
赵辉：AutoCAD环境下的液压系统符号开发
(1) 确认编辑窗口处于前台状态，选择菜单【Tools（工具）】→【Load Text in Editor（加载编辑器中的文字）】，则该程序被加载并运行。系统将返回AutoCAD窗口，并提示用户选择一点，并以指定点为基点来绘制文字。
(2) 如果用户退出Visual LISP环境并返回AutoCAD系统窗口，则需要对该程序进行加载后，才能运行。选择菜单【Tools（工具）】→【Load Appcation...（加载应用程序）】，弹出\（加载/卸载应用程序）\对话框。查找并选择上一步中所创建的\文件，并单击按钮进行加载。加载后的文件名称将显示在\（已加载的应用程序）\列表中，并在对话框的左下部显示加载信息。
(3) 完成加载后，单击按钮关闭对话框，系统将运行\程序。
4 典型液压元件Autolisp程序开发
1. 按钮式人力控制器
按钮式人力控制器是液压系统的控制机构，其图形符号如图4-1-1所示：
图4-1-1 按钮式人力控制器图形符号
建立坐标、尺寸（可以自行比例确定）及基点，标定线如图4-1-2所示： 基点：x0,y0 x1=x0+12 x2=x0-12 X3=x0-15
y1=y0+8 y2=y0+10 y3=y0+12 y4=y0+14
- 12 -
蚌埠学院本科毕业设计（论文）
图4-1-2 按钮式人力控制器图形坐标图
用到的命令只有圆弧“arc”和直线“line”或“pline”。用“arc”命令绘制圆弧p7p10p8，“pline”命令绘制线段p6 p3 p2 p0 p1，“line”命令绘制直线p7 p8、p3 p4、p5 p2。
程序代码如下所示： (defun c:button()
(setq cp(getpoint\确定基点\ (setq x0(car cp)); 取拾取点X坐标 (setq y0(cadr cp));取拾取点Y坐标 (setq x1(+ x0 12)) (setq x2(- x0 12)) (setq x3(- x0 15)) (setq y1(+ y0 8)) (setq y2(+ y0 10)) (setq y3(+ y0 12)) (setq y4(+ y0 14)) (setq p0(list x0 y0)) (setq p1(list x1 y0)) (setq p2(list x0 y2)) (setq p3(list x0 y3)) (setq p4(list x1 y3)) (setq p5(list x2 y2)) (setq p6(list x2 y3)) (setq p7(list x2 y4)) (setq p8(list x2 y1))
(setq p9(polar p5(* 0.5 pi) 1)) (setq p10(polar p9 pi 3))
- 13 -
赵辉：AutoCAD环境下的液压系统符号开发
(command \ (command\ (command\
(command\ (command\ (princ) )
2. 双作用单活塞杆液压缸
双作用单活塞杆液压缸是实现直线往复运动执行元件，它是将流体的压力能转化为机械能的元件，其图形符号如图4-2-1所示：
图4-2-1 单杆活塞图形符号
建立坐标、尺寸（可以自行比例确定）及基点，标定线如图4-2-2所示： 基点：x0,y0 x1=x0+1 x2=x0+3 x3=x0+9
x4=x0+10 x5=x0+14
y1=y0+3.5 y2=y0+7 y3=y0-2
图4-2-2 单杆活塞图形坐标图
- 14 -
蚌埠学院本科毕业设计（论文）
用到的命令只有直线“line”或“pline”。P0是图形的插入点，用“setq”命令分别确定各点的坐标，“pline” 绘制四边形p0 p1 p2 p3 ，“line”绘制直线p4 p5、p6 p7、p8 p9、p10 p11长度分别为2、2、7、11，单位为cm。
程序代码如下所示： defun c:piston()
(setq cp(getpoint\确定基点\ (setq x0(car cp));取拾取点X坐标 (setq y0(cadr cp));取拾取点Y坐标 (setq x1(+ x0 1)) (setq x2(+ x0 3)) (setq x3(+ x0 9)) (setq x4(+ x0 10)) (setq x5(+ x0 14)) (setq y1(+ y0 3.5)) (setq y2(+ y0 7)) (setq y3(- y0 2)) (setq p0(list x0 y0)) (setq p1(list x0 y2)) (setq p2(list x4 y2)) (setq p3(list x4 y0)) (setq p4(list x1 y0)) (setq p5(list x1 y3)) (setq p6(list x3 y0)) (setq p7(list x3 y3)) (setq p8(list x2 y0)) (setq p9(list x2 y2)) (setq p10(list x2 y1)) (setq p11(list x5 y1))
(command\ (command\ (command\
- 15 -