《AutoCAD二次开发技术》实验指导书.docxVIP

PAGE PAGE 10 《AutoCAD 二次开发》 实验指导书 环境与建筑工程学院测绘教研室 实验 1 Visual Lisp 开发环境的认识和程序运行方法 【实验目的】 熟悉所用计算机系统的基本操作方法。 学习Visual Lisp 的使用方法，掌握程序编辑、编译、打包、运行及查看运行结果的方法。 掌握Visual Lisp 程序的基本结构。 【实验内容】 熟悉使用的计算机系统的基本操作，创建自己的工作目录，参照附录中介绍的方法， 掌握Visual Lisp 的启动方法（一种或多种），了解 AutoCAD 系统的安装路径和结构。 进入Visual Lisp 的工作环境，熟悉Visual LISP 用户界面。 熟悉Visual Lisp 的系统菜单组成及功能。学习使用功能键和快捷键调用菜单项的方法。掌握文件建立、编辑、修改和保存的方法。落实文件的存储位置是否是你的工作目录， 如果不是，回第二步重新设置。 了解控制台窗口 了解 Visual LISP 文本编辑器 加载和运行 AutoLISP 程序 退出 Visual LISP 实验 2 Visual Lisp 应用程序 【实验目的】 掌握Visual Lisp 语言基本数据类型的概念，理解数据类型与运算的关系。 熟悉简单变量的定义和赋值方法，掌握不同类型数据之间赋值的规律。 学习 Visual Lisp 语言运算符优先级和结合性的概念，掌握算术表达式的计算方法及表达式计算中的类型转换方法。 掌握数学表达式的程序表示方法。 进一步熟悉Visual Lisp 程序的编辑、编译、连接和运行的过程。 【实验内容】 掌握用 Visual LISP 开发程序步骤 使用控制台窗口 使用文本编辑器 使用控制台和编辑器的编码辅助工具 用 Visual LISP 设置代码格式 检查语法错误 通过样例学习调试程序 使用 Visual LISP 调试功能 使用 Visual LISP 数据查看工具 编译和链接程序 创建应用程序模块样例程序： (defun yinyang (/ origin radius i-radius half-r origin-x origin-y os) (setq os (getvar OSMODE)) ;; Save OSNAP mode (setvar OSMODE 0) ;; Turn off OSNAP (setq origin (getpoint \nOrigin of inyn sign: )) (setq radius (getdist \nRadius of inyn sign: origin)) (setq i-radius (getdist \nRadius of internal circle: 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)) ;;center (list origin-x (+ origin-y radius)) ;;start point origin ;;end point ) (command _.ARC _C (list origin-x (- origin-y half-r)) ;;center (list origin-x (- origin-y radius)) ;;start point origin ;;end point ) (command _.CIRCLE (list origin-x (+ origin-y half-r)) ;;centre i-radius ) (command _.CIRCLE (list origin-x (- origin-y half-r)) ;;centre i-radius ) (setvar OSMODE os) ;; Restore OSNAP mode (princ) ) 实验 3 Visual Lis程p 序设计 【实验目的】 熟练掌握AutoLISP 表达式。 熟练掌握AutoLISP 数据类型。 熟练掌握AutoLISP 变量。 熟练掌握数字处理。 熟练掌握字符串处理 熟练掌握基本输出函数 熟练掌握等量和条件 熟练掌握表处理 熟练掌握符号和函数处理 熟练掌握错误处理 【实验内容】 编写一个解算二元一次方程的Visual Lisp 应用程序